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CALCULATION  OF  WATER  DROP  TRAJECTORIES  TO  AND  ABOUT 
ARBITRARY  THREE-DIMENSIONAL  BODIES  IN  POTENTIAL  AIRFLOW 


by  Hillyer  G.  Norment 
Atmospheric  Science  Associates 

SUMMARY 

Computer  programs  are  described  by  which  trajectories  of  water  drops 
can  be  calculated  to  and  about  three-dimensional,  non-lifting  bodies  of 
arbitrary  shape.  External  potential  airflow  about  the  body  is  computed; 
flow  into  (but  not  through)  inlets  also  can  be  simulated.  Calculations  can 
be  done  for  any  atmospheric  conditions  and  for  any  subsonic  airspeed.  Ex- 
perimentally derived  relations  between  Reynolds  and  Davies  numbers  for  water 
drops  of  all  sizes,  from  the  smallest  cloud  droplets  to  large  raindrops, 
are  used  to  represent  effects  of  aerodynamic  drag  on  the  particles  during 
integration  of  the  water  drop  equations  of  motion,  and  effects  of  gravity 
settling  are  included.  A variable  time  step  numerical  integration  method 
is  used. 

The  surface  of  the  three-dimensional  body  is  approximated  by  plane 
quadrilateral  panels,  over  each  of  which  a uniform  potential  source  is 
assumed  to  be  distributed.  Source  densities  and  the  resulting  potential 
flow  field  are  calculated  by  the  Hess-Smith  metho.d. 

The  following  seven  codes  are  described: 

1.  A code  used  to  debug  and  plot  the  body  surface  data. 

2.  A modified  version  of  the  Hess-Smith  code  which  processes  the 
body  data  and  yields  data  required  to  compute  flow  velocities  at 
arbitrary  points  in  space. 

3.  A code  that  computes  flow  velocities  at  arrays  of  poipts  in 
three-dimensional  space. 


4.  A code  that  computes  trajectories  of  water  drops  toward  the  body 
from  arrays  of  initial  points  in  space. 

5.  A code  that  computes  water  drop  trajectories  and  water  drop 
fluxes  to  arbitrary  target  points. 

6.  A code  that  computes  water  drop  trajectories  tangent  to  the  body. 

7.  A code  that  produces  stereo  pair  plots  that  include  both  the 
body  and  trajectories. 

Code  descriptions  include  operating  instructions,  card  inputs  and  printouts 
for  example  problems,  and  listings  of  the  FORTRAN  codes. 

Various  tests  of  simulation  accuracy  are  discussed,  and  accuracy  is 
found  to  be  acceptible.  Trajectory  results  for  flow  around  ellipsoids  are 
compared  with  prior  calculations  and  acceptable  agreement  is  found.  Results, 
again  for  flow  about  ellipsoids,  are  compared  with  experimental  data  and  are 
found  to  be  superior  to  prior  calculations. 
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INTRODUCTION 


With  the  development  of  practical  numerical  methods  by  which  potential 
flow  about  arbitrary  three-dimensional  bodies  can  be  calculated,  along  with 
development  of  efficient  methods  for  integration  of  particle  equations  of 
motion,  it  has  become  possible  to  compute  trajectories  of  particles  suspended 
in  a fluid  to  or  about  a complex  body  that  is  in  motion  relative  to  the  fluid. 
Past  applications  have  been  to  the  study  of  mounting  sites  of  hydrometeor 
measurement  instruments  on  cloud  physics  research  airplanes  (refs.  1-8). 

In  the  future  the  methods  are  to  be  used  to  study  aircraft  icing,  an  appli- 
cation for  which  they  are  ideally  suited,  and  it  is  in  preparation  for  such 
work  that  this  code  documentation  is  undertaken. 

We  distinguish  two  major  categories  of  codes:  flow  codes  and  trajectory 

codes.  The  flow  codes  process  data  that  describe  the  three-dimensional  body 
and  compute  the  fluid  flow  field  around  that  body.*  The  trajectory  codes  use 
the  results  of  the  flow  codes  to  compute  trajectories  of  particles  to  and 
about  the  body.  For  aircraft  icing  studies,  the  body  is,  of  course,  an  air- 
craft, the  fluid  is  air  and  the  particles  are  water  drops.  Table  1 identifies 
and  briefly  describes  the  executive  codes  in  the  two  categories,  and  Table  2 
does  the  same  for  the  subroutine  and  function  codes. 


It  is  immaterial  whether  we  consider  the  fluid  to  be  stationary  and  the  body 
in  motion,  or  vice  versa,  but  it  is  expedient  here  to  consider  the  body  sta- 
tionary and  the  fluid  in  motion. 
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TABLE  1 


Code 

PBOXC 

BOXC 

FLOPNT 

Code 

ARYTRJ 

CONFAC 

TANTRA 

STEREO 


EXECUTIVE  CODES 
A.  FLOW  CODES 

Descri ption 

Processes  and  plots  data  which  define  the  three-dimensional 
body.  Used  to  debug  and  plot  the  body  data. 

Processes  three-dimensional  body  data  and  prepares  and  stores 
data  to  be  used  by  SR  FLOVEL  to  calculate  flow  velocities  as 
needed  during  trajectory  calculations. 

Computes  and  prints  flow  velocities  at  user-specified  arrays 
of  points  in  space. 

B.  TRAJECTORY  CODES 

Description 

Computes  trajectories,  which  begin  at  user-specified  arrays 
of  points  in  space,  to  and/or  about  the  body. 

Computes  trajectories  from  the  free  stream  to  user-specified 
points  in  space.  Also  computes  particle  concentration  factors 
at  user-specified  points  in  space.  (Concentration  factor  is 
ratio  of  particle  flux  at  the  target  point  to  free  stream 
particl e flux. ) 

Computes  trajectories  tangent  to  the  body  which  are  initiated 
along  user-specified  lines  in  the  free  stream.  (Tanqent  tra- 
jectories are  those  trajectories  that  barely  miss  intersection 
with  the  body.) 

Prepares  stereo-pair  plots  of  the  body  along  with  particle 
trajectories. 
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TABLE  2 


SUBROUTINE  AND  FUNCTION  COOES 


A.  FLOW  CODES 


Code 

Called  By 

Description 

A FORM 

BOXC 

Computes  the  induced  velocity  matrix,  A^  (ref.  9). 

ATAPES 

BOXC 

Reads  A.^  matrix  from  an  appropriate  tape. 

DATPROS 

INPUT 

Translates,  scales  and  rotates  input  body  data  before  processing. 

FLOVEL 

TRAJECT 

CONFAC 

ARYTRJ 

FLOPNT 

Returns  flow  velocity  for  a given  point  in  space. 

FLOWS 

BOXC 

Sets  up  non-uniform  free  stream  flows. 

HEADER 

BOXC 

INPUT 

AFORM 

VFORM 

PRINT1 

Writes  a printout  header. 

INPUT 

BOXC 

Processes  input  body  coordinate  data  into  quadrilaterals.  Produces  the 
"first  output"  (ref.  9,  sec.  9.4). 

PATPROS 

PINPUT 

Translates,  scales  and  rotates  input  body  data  before  processinq. 
Punches  the  translated,  scaled  and  rotated  data  if  so  requested. 

PEADER 

PINPUT 

Writes  a printout  header. 

PICTUR 

PBOXC 

Plots  the  body  surface  data. 

PINPUT 

PBOXC 

Processes  input  body  coordinate  data  into  quadrilaterals.  Produces 
the  "first  output"  (ref.  9,  sec.  9.4). 

PRINT1 

BOXC 

Computes  and  prints  on-body  velocities,  and  off-body  velocities  if  so 
requested.  Writes  source  strengths  on  unit  14  if  so  requested.  Pro- 
duces the  "second  output"  (ref.  9.,  sec.  9.7). 

SIGMA 

BOXC 

Solves  linear  equation  matrix  for  surface  source  densities  by  the 
Seidel  iterative  method. 

SOLVIT 

BOXC 

Solves  linear  equation  matrix  for  surface  source  densities  by  the 
direct  method. 

5 


TABLE  2,  cont. 


Code 

Called  By 

Description 

UNIFRM 

FLOWS 

Sets  up  uniform  free  stream  flows. 

VFORM 

BOXC 

Computes  velocity  components  induced  at  each  quadrilateral  by  all 
other  quadrilaterals. 

WTAP14 

BOXC 

Writes  quadrilateral  data  needed  for  flow  velocity  computation  onto 
unit  14  if  so  requested. 

B.  TRAJECTORY  CODES 

Code 

Called  By 

Description 

CDRR 

PRFUN 

PARTCL 

Given  Reynolds  number,  returns  Davies  number  for  a sphere.  Used  for 
water  drops  for  which  Reynolds  number  is  less  than  or  equal  to  200. 

DVDQ 

TRAJECT 

Integrates  particle  equations  of  motion  for  each  time  step  (ref.  11). 

FALWAT 

PARTCL 

Returns  still -air,  terminal  settling  speed  for  a water  drop.  Uses 
equations  of  Beard  (ref.  17). 

IMPACT 

TRAJECT 

Used  in  runs  under  control  of  CONFAC  to  adjust  trajectory  initial  y,z 
coordinates  to  avoid  impact  on  the  body  on  the  next  trajectory  after 
impaction  has  occurred.  This  is  a problem-specific  subroutine. 

MAP 

CONFAC 

Controls  the  iterative  calculation  of  trajectories  to  a specified 
target  point. 

MATINV 

MAP 

Linear  equation  solver. 

PARTCL 

ARYTRJ 

CONFAC 

TANTRA 

Reads  particle  specification  data  and  returns  still -air,  terminal 
particle  settling  speed  and  other  particle  data  as  required  for  the 
particular  type  of  particle.  This  is  a particle  type-specific  code. 
The  version  provided  here  is  for  water  drops. 

POLYGON 

CONFAC 

Calculates  area  of  a plane  polygon  of  N vertices.  Provides  cross- 
sectional  areas  of  particle  flux  tubes  which  are  used  to  compute 
concentration  factors. 

PRFUN 

TRAJECT 

Given  the  particle  Reynolds  number,  returns  the  factor  which  when 
multiplied  by  vp  - va  yields  the  first  term  on  the  right  side  of 
eq.  (1).  This  is  a particle  type-specific  function.  The  version  pro- 
vided here  is  for  water  drops. 

TABLE  2,  cont. 


Code 

SETFLO 

STRPNT 

TRAJECT 

TRANSFM 

WCDRR 


Called  By 

FLOPNT 
ARYTRJ 
CON FAC 
TANTRA 


TANTRA 


ARYTRJ 

TANTRA 

MAP 


CON FAC 
MAP 


PRFUN 

PARTCL 


Description 

Reads  BOXC  output  data  stored  on  unit  14  that  is  required  by  SR  FLOVEL 
for  flow  velocity  calculations.  If  flow  velocities  are  calculated  by 
other  than  the  Hess-Smith  method,  this  code  must  be  replaced  with 
a durrmy. 

Specified  a curve  in  three-dimensional  space  on  which  lie  the  initial 
points  of  all  trajectories  used  in  computing  a tangent  trajectory  to 
the  body.  Also  specified  coarse  and  fine  step  sizes  to  be  used  in 
traversing  the  curve  in  search  of  the  tangent  trajectory,  and  it  steps 
along  the  curve  to  define  new  initial  trajectory  points  under  control 
of  TANTRA.  The  version  supplied  here  uses  straight  line  curves. 

Computes  particle  trajectories.  (See  p.  38) 


Transforms  coordinate  system  from  the  "flow  system"  to  the  "flux  tube 
system",  or  reverse.  (See  pp.  44,  45.) 

Given  Reynolds  number,  returns  Davies  number  for  a water  drop.  Used 
for  case  where  the  Reynolds  number  is  greater  than  200. 
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METHODOLOGY 


THREE-DIMENSIONAL  FLOW 

The  code  of  Hess  and  Smith  (refs.  9,  10)  for  calculation  of  non- 
lifting potential  flow  about  arbitrary  three-dimensional  bodies  is  used. 

The  code  requires  input  of  a digital  description  of  the  body  surface.  This 
consists  of  the  coordinates  of  the  corner  points  of  a large  number  of 
quadrilaterals.  (Examples  of  digital  descriptions  of  portions  of  a C130 
airplane  are  shown  in  Fig.  1.)  Each  quadrilateral  panel  is  taken  to  be 
a uniform-distributed  source.  On  the  basis  of  the  boundary  condition 
that  there  be  zero  flux  through  the  center  of  each  panel,  and  given  the 
direction  of  the  free-stream  flow,  the  code  finds  the  source  strengths 
of  all  panels  by  inversion  of  a large  matrix  that  includes  all  possible 
panel  interactions.  The  matrix  is  inverted  only  once  for  each  airplane 
geometry,  provided  that  the  results  are  stored  for  future  use. 

This  potential  flow  method  works  quite  satisfactorily  where  the  local 
Mach  number  does  not  exceed  approximately  one-half  (ref.  10).  By  making 
simple  adjustments  to  the  calculations  the  method  can  be  extended  to  higher 
Mach  numbers  as  long  as  there  are  no  supersonic  regions  in  the  real  flow. 

Particle  trajectory  calculations  require  flow  velocities  point-by- 
point along  each  trajectory.  In  calculating  each  flow  velocity,  contribu- 
tions from  all  panels  are  summed.  There  are  three  algorithms  for  computing 
contributions:  (1)  for  panels  that  are  close  to  the  calculation  point,  a 

detailed  calculation  is  used  that  accounts  for  exact  panel  shape,  (2)  for 
panels  at  intermediate  distances  a multipole  expansion  is  used,  and  (3) 
for  remote  panels  a point  source  approximation  is  used.  Mathematical 
details  are  found  in  references  9 and  10. 

To  perform  these  calculations,  we  have  developed  a subroutine 
(FLOVEL)  that  consists  of  various  extracted  and  modified  portions  of  the 
Hess-Smith  code.  This  subroutine  is  generalized  such  that- given  geometri- 
cal properties,  source  strength  and  other  data  for  every  quadrilateral, 
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Figure  1.  Digital  descriptions  of  the  forward  fuselage  and 
outer  wing  of  a Lockheed  C130E  airplane. 
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it  will  provide  the  flow  velocity  for  any  specified  point  in  space.  It 
also  checks  each  quadrilateral  to  determine  if  it  has  been  penetrated  by 
the  particle. 

Hess  and  Smith  have  evaluated  the  accuracy  of  their  method  for  a variety 
of  cases  and  have  found  excellent  agreement  with  experiment  (refs.  9 and  10). 
We  have  also  done  some  evaluation  studies  (ref.  1),  and  in  the  Validation 
section  below  our  prior  work  is  summarized  and  results  of  some  new  studies 
of  tangent  trajectories  to  ellipsoids  are  presented  and  compared  with  prior 
work. 

Of  course  accuracy  also  depends  on  the  fineness  of  resolution  of  the 
panel  description  of  the  body,  and  naturally  some  compromise  is  called  for. 
The  smaller  the  panels  the  finer  the  resolution,  and  the  fewer  of  them  for 
which  the  most  exacting  of  the  three  algorithms  must  be  used.  On  the  other 
hand,  the  number  of  panels  increases  inversely  as  the  square  of  their  linear 
size.  In  past  studies  on  airplanes  we  have  used  the  following  criteria  in 
setting  up  panel  structures:  For  those  parts  of  the  airplane  traversed  by 

particle  trajectories,  we  try  to  keep  the  panel  edges  between  6"  to  8"  in 
length.  Where  allowed  by  simplicity  of  surface  shape,  remote  panels  can  be 
larger.  Remote  downstream  complexities  of  shape  are  ignored.  The  cylindri- 
cal portion  of  a fuselage  is  extended  to  approximately  five  times  the  length 
of  the  nose  section,  as  recommended  by  Hess  and  Smith  (ref.  10). 

For  a particular  computer,  time  required  for  trajectory  calculation 
is  largely  dependent  on  the  number  of  velocities  required.  On  the  CDC  6600 
computer,  one  velocity  calculation  requires  on  the  order  of  0.15  second  for 
a typical  problem.  The  number  of  velocities  required  per  trajectory  varies 
from  about  60  to  300.  A typical  number  of  trajectories  required  is  25. 

Thus,  computing  time,  even  on  a large  computer,  can  be  considerable.  Com- 
puting times  required  on  the  UNIVAC  1100  are  included  here  for  each  of  the 
test  problems.  (See  p.  60.) 

Though  the  flow  codes  retain  additional  capabilities,  for  the  calcula- 
tions described  here  we  require  the  following: 
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1.  A unit  free  stream  speed  in  the  direction  of  the  positive  x 
axis. 

2.  All  velocities  are  normalized  and  scaled  to  be  consistent 
with  the  unit  free  stream  speed. 

3.  All  distances  are  normalized  by  dividing  by  a user-specified 
characteristic  dimension  of  the  body. 


Body  coordinates  may  be  recorded  in  any  convenient  units  and  can  be  appro- 
priately scaled  and  translated  prior  to  processing  via  use  of  SR's  PATPROS 
and  DATPROS.  These  subroutines  also  allow  rotation  of  the  body  about  the 
y axis  to  adjust  angle  of  attack. 


PARTICLE  TRAJECTORY  CALCULATION 

We  assume  that  the  bulk  air  flow  is  not  perturbed  by  the  particles. 
Moreover,  since  particle  density  is  large  compared  to  that  of  air,  we  can 
neglect  buoyancy  and  inertial  reaction  of  the  fluid  to  obtain  the  three- 
dimensional,  normalized  equation 


_JL  = 

dx 


NDNR.s 

ND,sNR 


(1) 


Non-dimensional 


t 


quantities  are: 

particle  and  air  velocities 

still -air,  terminal  settling  speed  of  the  particle 

unit  vector  in  the  z (upward)  direction 

time 


11 


NQ  = Davies  number 

Np  = V2/ ( Lg ) Froude  number 

Nn  = ^-  |v  - v |V  Reynolds  number 
R n a P 

Dimensioned  quantities  are: 

6 particle  diameter 

p air  density 

n air  viscosity 

g gravity  acceleration  constant 

V free  stream  airspeed 

L a characteristic  dimension  of  the  body 

Here  length  is  normalized  by  dividing  by  L,  velocity  by  V and  time  by  L/V. 

Nq  $ and  Nr  $ are  for  still-air,  terminal  particle  settling. 

We  initiate  the  calculation  far  enough  upstream  to  be  essentially  beyond 
the  influence  of  the  body  where  we  can  take  v„  = -kv_.  We  compute  v,  at  the 

P S a 

initial  point,  calculate  NR  from  these  data,  calculate  ND  from  NR  using  the 
relations  discussed  in  the  next  section,  and  proceed  straightforwardly  with 
a numerical  integration  of  eq.  (1).  The  integration  is  done  via  use  of  the 
code  DVDQ  of  Krogh  (ref.  11).  This  code  uses  an  Adams-type  predictor  - 
corrector  algorithm  with  variable  time  step.  It  also  tests  for  computational 
stability  and  loss  of  accuracy  via  roundoff  error.  It  was  tested  by  Hull, 
et  al.,  (ref.  12)  along  with  a number  of  other  codes  and  found  to  be  most 
efficient  in  terms  of  numbers  of  function  evaluations  (flow  velocities) 
required. 
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AERODYNAMIC  DRAG  OF  WATER  DROPS 

Davies  (ref.  13)  shows  that  still -air  terminal  settling  of  spheres  can 
be  generalized  in  terms  of  the  dimensionless  numbers  NR>S  and  ND}S.  Over 
the  range  from  the  smallest  spheres,  which  settle  under  viscous  flow  con- 
ditions and  obey  Stokes  law,  to  spheres  much  larger  than  of  interest  here, 
and  for  any  Newtonian  fluid,  a reproducible  single-valued  relationship 
between  NR  and  NQ  $ exists.  Furthermore,  N^s  is  independent  of  settling 
speed,  being  a function  of  fluid  and  sphere  properties  only;  thus  for  given 
sphere  and  fluid,  NR  and  hence  V$  can  be  calculated.  Polynomials  by  which 

Nr,  can  be  computed  as  a function  of  Nn  were  derived  by  Davies  from  a 
R j S U , b 

composite  of  many  sets  of  experimental  data. 

Since  the  work  of  Davies  it  has  been  found  repeatedly  that  this  treat- 
ment is  applicable  to  particles  of  other  shapes,  providing  settling  is 
steady  and  particle  orientation  is  stable. 

For  the  trajectory  calculations  required  bfere,  the  problem  must  be 
turned  around.  In  addition  to  gravity  settling,  there  is  a particle  vel* 
ocity  component  (relative  to  air)  caused  by  the  disturbance  of  the  passing 
airplane.  At  any  time  step  in  the  numerical  integration  of  eq.  (1), 
v - v (and  hence  NR)  is  known,  and  NQ  must  be  determined.  For  viscous 
motionP(i.e.,  Stokes  flow,  where  NR  < 1)  Np  = 24  NR  and  eq.  (1)  can  be 
integrated  without  question.  However,  for  larger  NR  the  steady-state  drag 
data  determined  experimentally  for  terminal  settling  must  be  used  to  com- 
pute accelerative  particle  motion. 

Experimental  measurements  by  Keim  (ref.  14)  and  a theoretical  analysis 

indicate  that  if  the  acceleration  modulus. 


by  Crowe,  et  al . (ref.  15) 


Nft  = £ 


ft 

dt 


/Vp 
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is  smaller  than  about  10“2,  steady-state  drag  coefficients  can  be  used 
without  significant  error  to  compute  accelerative  motion.  has  never 
been  found  to  exceed  10"2  in  our  trajectory  calculations. 

For  water  drops  small  enough  to  be  essentially  spherical  (NR  < 200) 
we  calculate  NQ  from  a polynomial  function  in  NR  derived  from  Davies  data 
(ref.  13).  (Function  CDRR)  For  larger  drops  (NR  > 200),  which  have  a 
flattened,  non-spherical  shape,  we  calculate  Np  from  polynomials  in  NR 
derived  from  the  water  drop  data  of  Gunn  and  Kinser  (ref.  16).  (Function 
WCDRR). 

Still -air,  terminal  settling  speeds  for  water  drops  are  computed  via 
use  of  Beard's  equations  (ref.  17).  (SR  FALWAT) 

Water  drops  of  any  size,  from  submicron  to  the  breakup  size  at  about 
8000  ym  diameter,  can  be  handled  by  these  methods.  However,  the  user 
should  be  aware  that  computation  time  goes  up  as  droplet  diameter  goes 
down,  and  the  time  required  for  drops  of  diameter  1 ym  or  less  may  be  large. 

We  have  also  developed  aerodynamic  drag  relationships  from  observed 
settling  data  for  various  forms  of  ice  crystals  and  have  used  these  to 
study  trajectories  of  ice  to  and  around  various  airplanes  (refs.  1,  2,  5, 

7),  though  these  are  not  included  here. 
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FLOW  CODE  DESCRIPTIONS 


PROGRAM  PBOXC 
General  Discussion 

This  program  is  derived  from  the  Douglas  Aircraft  Company  code  BOXC 
which  was  developed  by  Hess  and  Smith  (ref.  9).  It  processes  and  produces 
CALCOMP  plots  of  the  three-dimensional  body  surface  description  data  and 
is  used  primarily  to  debug  these  data.  Processing  and  printing  go  as  far 
as  the  "first  output"  (ref.  9,  sec.  9.4).  A secondary  use  is  to  store  the 
body  surface  data  such  that  it  can  be  retrieved  later  and  used  by  PGM  STEREO 
to  plot  the  body  along  with  trajectories  stored  by  one  of  the  trajectory 
codes. 

The  surface  of  a general  three-dimensional  body  is  defined  in  terms  of 
"rows"  and  "columns",  the  so-called  m and  n lines,  of  coordinates  of  points 
on  the  surface  as  described  below.  The  m and  n lines  of  points  are  combined 
by  the  code  to  form  quadrilateral  elements,  or  panels,  such  that  when  con- 
sidered together  they  represent  a reasonable  approximation  to  the  surface. 

(For  example  see  Figs.  1 and  8.)  Adjacent  panels  should  be  contiguous,  or 
as  nearly  contiguous  as  possible.  The  data  for  general  bodies  may  be  scaled 
and  translated  in  the  three  coordinate  directions,  and  rotated  about  the  y 
axis  prior  to  processing. 

The  code  also  has  the  capability  of  generating  ellipsoids  of  prolate, 
oblate  or  general  shape  with  the  only  restriction  being  that  their  major  and 
minor  axes  lie  on  the  coordinate  axes. 

When  the  user  elects  to  prepare  plots  of  the  body,  the  code  automatically 
prepares  a number  of  plots,  each  from  a unique  viewing  angle,  the  number  vary- 
ing according  to  symmetry.  For  an  asymmetric  body  fourteen  plots  are  pre- 
pared. These  consist  of  the  six  views  from  both  directions  along  each 
coordinate  axis,  and  the  eight  plots  from  45  degree  angles*  in  each  octant. 
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For  a body  with  one  plane  of  symmetry  nine  plots  are  prepared,  for  two  sym- 
metry planes  six  plots,  and  for  three  planes  four  plots.  The  user  is  urged 
to  make  liberal  use  of  the  plots  to  find  errors  in  the  body  data. 


Symmetry  Planes 

Up  to  three  reflection  planes  may  be  specified,  though  only  the  first  two 
are  used  in  PBOXC  for  plotting.  The  surface  descriptions  for  general  bodies 
and  ellipsoids  are  reflected  across  these  planes.  The  number  of  symmetry 
planes  is  specified  by  parameter  NSYM  which  has  allowed  values  of  0,  1,  2,  3. 
The  syrrenetry  planes,  in  order  of  their  application  to  the  data,  are: 


Order  of 
Appl ication 

1 

2 

3 


Symmetry 

Plane 

y = 0 

z = 0 
x = 0 


For  example,  if  NSYM  = 1,  for  each  point  with  coordinates  (x,y,z),  another 
point  with  coordinates  (x,  -y,  z)  is  created.  If  NSYM  = 2,  for  each  point 
with  coordinates  x,  y,  z,  three  additional  points  with  coordinates  (x,  -y, 
z),  (x,  -y,  -z)  and  (x,  y,  -z)  are  created.  If  NSYM  = 3,  seven  additional 
points  are  created. 

Only  the  primary  data  points  should  be  input.  If  reflected  as  well  as 
primary  data  are  input,  the  flow  calculations  will  be  in  error. 


Surface  Description  Data  For  General  Bodies  (IFLAG  = 0) 

The  user  must  examine  the  body,  or  drawings  of  it,  and  devise  a layout 
plan  for  subdividing  its  surface  into  sections  that  are  compatible  with  the 
requirements  of  m line,  n line  surface  point  input  while  providing  panels  of 
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appropriate  size  which  cover  the  surface  without  leaving  gaps  or  intro- 
ducing unwanted  discontinuities.  Also  a coordinate  system  must  be  estab- 
lished, but  this  can  be  manipulated  at  processing  time  by  use  of  the 
scaling  and  translation  capability  of  the  code. 

The  important  thing  is  to  understand  the  requirements  of  the  m and 
n line  input.  Here  we  give  a brief  summary  of  the  requirements;  the  user 
is  encouraged  to  carefully  study  sec.  9.1  of  reference  9 to  obtain  a 
thorough  understanding  of  them. 

Points  which  define  the  corners  of  the  quadrilateral  panels  are  labeled 
with  integers  m and  n which  identify  hypothetical  "rows"  and  "columns"  on 
which  they  lie.  The  integers  m and  n are  not  input  to  the  computer;  they 
are  used  for  data  organization  and  sequencing  only. 

To  ensure  a proper  computation,  the  rows  and  columns  must  be  organized 
by  the  following  rule:  If  an  observer  is  located  in  the  flow  and  is  oriented 
so  that  locally  he  sees  points  on  the  surface  with  m values  increasing  up- 
ward, he  must  also  see  n values  increasing  toward  the  right. 

A surface  may  be  subdivided  into  sections,  each  of  which  must  be  inde- 
pendent. That  is,  all  quadrilaterals  in  each  section  must  be  closed.  Where 
an  edge  of  a section  is  contiguous  with  another,  the  input  for  each  section 
must  define  the  common  edge,  though  they  need  not  use  the  same  points  on  the 
edge. 

Figure  2 illustrates  a surface  description  that  is  subdivided  into  four 
sections.  Note  how  the  sectioning  can  be  used  to  change  resolution  or  to 
deal  with  structural  complexities. 

Coordinates  are  punched  into  cards,  one  point  per  card;  also  in  each 
card  is  punched  the  integer  parameter  STAT  which  is  used  to  identify  the 
m,n  status  of  each  point.  All  points  in  a section  are  ordered  in  the  se- 
quence (m,n): 

(1,1),  (2,1),  (3,1),...,  (1,2),  (2,2),  (3,2),. ..(1,3),  (2,3),  (3,3),... 
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n =i  n r2  n =3  n = 4 6 7 8 9 n =n  n=i2 

i n = 5 n = io  I 

i J i I 

I SECTION  I | SECTION  2 ! SECTION  3 • 

'll  ' 


Figure  2.  Plan  view  of  the  input  points  on  a body  divided 
into  sections.  (From  ref.  9) 

The  STAT  parameters  are  as  follows  for  each  section: 

(m,n)  STAT 

(1,1)  2 

(l.tfl)  1 

all  others  0 or  blank 

For  the  last  card  of  the  last  section,  STAT  = 3. 

Input  order  of  sections  is  immaterial,  but  within  sections,  the  data 
must  be  ordered  according  to  the  underlined  rule  given  above. 
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Surface  Description  Data  for  Ellipsoids  (IFLAG  = 2 or  3) 

Ellipsoids  are  generated  by  specifying  the  semi-axis  lengths 
B and  C (A  = 1 always),  and  by  specifying  the  numbers  of  "latitudinal" 
and  "longitudinal"  element  divisions  (Fig.  3),  NLM1  and  MMIN  respec- 
tively. 

There  are  two  modes  for  specification: 

Mode  1.  IFLAG  = 1,  NSYM  = 3 

All  three  symmetry  planes  are  used  and  NLM1  and 
MMIN  are  specified  for  one  octant  only.  Element 
increments  are  computed  for  NLM1  and  MMIN  equal 
increments  in  angles  e and  <f>  (Fig.  3). 


Mode  2.  IFLAG  = 2,  NSYM  = 2 

Only  two  symmetry  planes  are  used,  and  (x,  z) 
values  in  the  y = 0 plane  must  be  input  for 
-1  < x < 1,  beginning  at  (1,0)  and  proceeding 
to  (-1,0)  for  either  all  positive  z or  all 
negative  z (i.e.,  for  180°  in  angle  e).  (The 
code  automatically  ensures  that  the  "underlined" 
input  rule  is  obeyed.)  Thus,  NLM1  must  be  speci- 
fied for  the  entire  x axis,  but  MMIN  is  for  one 
octant  only  as  for  the  other  option,  and  element 
increments  in  the  "longitudinal"  direction  are 
created  at  equal  increments  of  the  angle  <|>. 

Body  surface  data  for  generated  ellipsoids  cannot  be  plotted 
nor  can  the  data  be  translated,  scaled,  and  rotated  by  subroutine 
PATPROS  or  DATPROS. 
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Printed  Output 


The  printed  output  is  the  result  of  the  first  stage  of  surface  data 
processing  (ref.  9,  sec.  9.4).  For  each  quadrilateral  panel  on  the  surface 
it  consists  of: 

1.  Coordinates  (X,Y,Z)  of  the  four  points  on  a quadrilateral  in  the 
order 


around  the  quadrilateral. 

2.  Components  (NX,NY,NZ)  of  the  unit  normal  vector  to  the  plane  of 
the  quadrilateral.  This  vector  should  point  toward  the  exterior 
of  the  body  rather  than  toward  its  interior.  If  it  points  in  the 
wrong  direction  the  data  have  been  input  in  violation  of  the 
"underlined  rule"  on  p.  17,  and  the  data  must  be  reordered. 

3.  Coordinates  (NPX,NPY,NPZ)  of  the  quadrilateral  null  point  (ref.  9., 
sec.  9.3). 

4.  The  common  projection  distance  (D)  of  the  four  input  points  into 
the  plane  of  the  quadrilateral.  (The  four  points  from  which  a 
plane  quadrilateral  is  formed  do  not  in  general,  and  need  not,  lie 
exactly  in  a plane.) 

5.  The  maximum  diagonal  length  (T)  of  the  quadrilateral. 

6.  The  area  (A)  of  the  quadrilateral. 
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Additional  output  appears  for  certain  abnormal  quadrilaterals.  If  the' 
integer  1 or  2 appears  at  the  far  right  of  the  page,  they  indicate  the 
following  conditions: 

Integer  1.  The  null  point  point  was  found  to  lie  outside  of  the 
quadrilateral.  The  coordinates  listed  are  for  the 
quadrilateral  centroid. 

Integer  2.  The  iterative  procedure  used  to  determine  the  null 

point  did  not  converge  and  thus  the  null  point  is  only 
approximate 

(ref.  9,  sec.  9.3). 


Subroutines  Required 

PINPUT,  PICTURE,  PEADER,  PATPROS,  plotting  subroutines. 


External  Storage  Units 

Units  5 and  6 are  the  system  input  and  print  units  respectively. 
Unit  8 temporary  storage. 

Unit  9 storage  for  surface  data  to  be  used  later  for  plotting  by 
PGM  STEREO. 
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PBOXC  Card  Input 


No.  Variables  and  Format  Description 


1 

HE0R(15) , IFLAG,  NSYM, 
KMACH,  KASE,  (15A4,  11, 
10X,  11,  IX,  11,  2X,  A4) 

HEOR  (Cols.  1-60) 
IFLAG  (Col.  61) 
IFLAG  = 0 

Hollerith  run  identification 

Body  surface  description  input  control 

Input  data  for  a general,  three-dimensional 
body  (See  pp.  16  ff. ) 

IFLAG  = 1 

Generate  an  ellipsoid  using  the  mode  1 option, 
with  three  reflection  planes.  (See  p.  19.) 

Be  sure  that  NSYM  = 3. 

IFLAG  = 2 

Generate  an  ellipsoid  using  the  mode  2 option, 
with  two  reflection  planes,  and  input  x,z 
coordinates  for  the  ellipsoid  via  cards  no.  5C. 
(See  p.  19.)  Be  sure  that  NSYM  = 2. 

NSYM  (Col.  72) 

Number  of  data  reflection  planes.  Limited  to 
values  0,1, 2, 3.  (See  p.  16.) 

KMACH  (Col.  74) 

A non-zero  value  indicates  that  a Mach  number 
is  to  be  read  via  card  no.  2.  (See  p.  26.) 

KASE  (Cols.  77-80) 

Hollerith  body  identification. 

2 

MACH,  (F10.6) 

Mach  number 

This  card  is  input  only  if  KMACH  / 0 on  card  1. 
(See  p.  26. ) 

3 IPROS,  IPUNCH,  IPRNT, 

I PICT » I CRT,  (5L1) 


4.  ANGLE,  XSCALE,  YSCALE, 
ZSCALE,  XTRANS,  YTRANS, 
ZTRANS,  (7F10.0) 


Logical  variables  which  cause  the  following  if  true: 

. IPROS  Body  surface  data  for  a general  body  are  to  be  trans- 
lated, scaled  and  rotated  about  the  y axis  before 
processing,  and  card  4 is  to  be  input. 

IPUNCH  Body  surface  data  are  copied  to  the  system  punch  unit 

after  translating,  scaling  and  rotating  about  the  y axis. 

IPRNT  Body  surface  data  are  processed  and  printed  up  to  the 
"first  output".  (See  p.  21  and  ref.  9,  sec.  9.4.) 

I PICT  Body  surface  data  for  a general  body  are  plotted. 

ICRT  Plotting  is  via  CRT.  If  ICRT  is  false,  plotting  is  via 

pen  and  ink. 

This  card  is  input  only  if  IPROS  (card  3)  is  true. 

ANGLE  Angle  (degrees)  that  the  body  is  rotated  about  the  y axis. 

A positive  value  causes  a counterclockwise  rotation  from 
the  aspect  of  a viewer  looking  down  the  positive  y axis 
toward  the  origin.  (Note:  For  a nose-up  airplane  angle 

of  attack,  ANGLE  is  negative.) 

XSCALE,  Scale  factors  to  be  applied  to  surface  point  x,  y and  z 

YSCALE,  coordinates  respectively  after  translation.  Default 

ZSCALE  values  are  unity. 

XTRANS,  Translations  to  be  applied  to  surface  point  x,  y and  z 

YTRANS,  coordinates  before  scaling. 

ZTRANS 


5A  X,Y,Z,STAT,  XX,  YY, 

ZZ,  STATT, 

(3F10.0,  I2/3F10.0, 12) 


Cards  5A  apply  to  general  bodies  (IFLAG  = 0,  see  pp.  16  ff). 


X,Y,Z  and  Are  coordinates  of  points  used  to  define  the  body 
XX,  YY,  ZZ  surface. 


STAT 
STATT 
(Col.  32) 


Are  point  status  integers.  Allowed  values  are  0,  1, 

2,  3.  The  meanings  of  these  values  are: 

0 This  point  is  on  the  same  n line  as  the  last  point 

1 This  point  starts  a new  n line 

2 This  point  starts  a new  section 

3 This  is  the  last  point  in  the  input. 
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PBOXC  Card  Input,  cont. 


Card 

No.  Variables  and  Formats  Description 


5A 

cont. 


Note:  For  the  last  coordinate  card  STAT  or  STATT  = 3.  A blank 

card  should  follow  this  if  there  is  an  odd  number  of  body 
surface  points. 


5B  NLM1,  MMIN,  B,  C, 

(215,  2F10.5) 


Card  5B  applies  to  generated  ellipsoids  (IFLAG  > 0) 
NLM1  Number  of  "latitudinal"  element  divisions 
MMIN  Number  of  "longitudinal"  element  divisions 
B y semi -axis  of  the  ellipse 

C z semi -axis  of  the  ellipse 

(See  p.  19  Modes  1 and  2,  and  Fig.  3.) 


5C  Xj  ) Zj,r  X2 , ^2,  .... 

• • ■XNLM1+1’  ZNLM1+1 
(8F10.0) 


Cards  5C  apply  to  generated  ellipsoids  for  which  the  x,z  coordinates 
are  input  (IFLAG  = 2,  NSYM  = 2). 

(x. , z • ) are  coordinates  in  the  y = 0 plane,  beginning  at  (1,0)  and 
proceeding  to  (-1,0),  that  define  the  ‘'latitudinal " element  subdi- 
visions. (See  p.  19  Mode  2,  and  Fig.  3.) 


6,7  LINE1 , LINE2,  (7A6/7A6)  Cards  6 and  7 are  read  only  if  ICRT  is  true  (card  3).  These  are 

two  lines  of  42  columns  each  of  Hollerith  labeling  for  a micro- 
fiche film. 
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PROGRAM  BOXC 


General  Discussion 

Program  BOXC  is  the  Hess-Smith  code  for  calculation  of  potential  flow 
about  arbitrary,  three-dimensional,  non-lifting  bodies  as  described  in  ref. 

9,  with  the  following  exceptions: 

1.  Overlay,  common  and  subroutine  argument  structures  have  been 
changed  to  accommodate  the  code  to  the  CDC  6600  and  UNIVAC 
1100/42  computers. 

2.  SR  WTAP14  has  been  added  to  store  on  external  unit  14  all  data 
needed  by  the  trajectory  codes  for  flow  velocity  calculations. 

3.  A provision  has  been  added  to  allow  a group  of  surface  elements 
to  leak  inward  a specified  fraction  of  the  free  stream  flow. 

This  is  used  to  simulate  effects  on  external  flow  of  air  flow 
into  inlet  aperatures. 

4.  A provision  has  been  added  to  scale,  translate  and  rotate  sur- 
face point  coordinates  for  general  bodies  before  they  are 
processed.  (SR  DATPROS) 

To  understand  the  theory  and  details  of  the  calculations,  the  user  must  study 
reference  9. 

The  code  has  the  capability  to  compute  flow  about  the  body  for  the  free 
stream  vector  along  each  of  the  three  axial  directions.  For  non symmetrical 
bodies  the  capability  extends  to  any  free  stream  direction,  and  for  bodies 
with  one  plane  of  symmetry,  which  must  be  the  y = 0 plane,  to  any  direction 
in  the  y = 0 plane  (ref.  9,  sec.  9.56).  However,  these  general  capabilities 
have  not  been  used  in  the  past,  and  furthermore,  the  trajectory  codes  and 
other  important  features  of  the  flow  calculations  which  are  discussed  below 
assume  that  the  free  stream  vector  is  in  the  direction  of  the  positive  x 
axis.  Changes  of  body  orientation  and/or  location  relative  to  the  flow 
coordinate  system  are  accomplished  via  use  of  SR  DATPRO,  which  in  its 
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present  form  also  is  designed  to  allow  for  arbitrary  specification  of  air- 
plane angle-of-attack.  In  any  case  the  free  stream  flow  speed  must  be 
unity.  The  card  input  instructions  below  specify  unit  onset  flow  in  the 
positive  x direction. 

Use  and  application  of  symmetry  planes  as' well  as  preparation  of  body 
surface  description  data  are  the  same  as  for  PGM  PBOXC. 

Up  to  1000  quadrilaterals  can  be  accommodated  for  description  of  the 
basic  body  surface,  before  multiplication  by  symmetry  plane  reflection. 


Compressibility  Effects 

According  to  Hess  and  Smith  (ref.  10,  pp.  7 and  35)  their  method  works 
satisfactorily  where  the  local  Mach  number  does  not  exceed  approximately  one- 
half.  For  higher  Mach  numbers  the  Gothert  transformation  (ref.  18)  is 
applied  as  follows: 

1.  All  distances  in  the  free-stream  direction,  that  is  the  x direc- 
tion, are  scaled  by  dividing  by  3 = /T^M2,  where  M is  free 
stream  Mach  number. 

2.  Perturbation  velocities  computed  at  the  scaled  distances  are 
themselves  scaled  by  dividing  by  3 for  the  y and  z components, 
and  by  dividing  by  g2  for  the  x component. 

If  the  Gothert  transformation  is  to  be  applied,  the  parameter  KMACH 
(card  1)  is  given  a value  greater  than  zero,  and  the  Mach  number  is  input 
via  card  5. 


Flow  Inlets 

We  have  added  a feature  to  the  code  (in  SR  UNIFRM)  to  allow  simulation 
of  flow  up  to  the  aperture  of  a flow  inlet.  The  code  cannot  handle  internal 
flows. 


26 


The  aperture  is  represented  by  quadrilateral  panels  in  the  same  manner 
as  the  body  surface.  To  illustrate  this,  Fig.  4 shows  the  panelling  of  the 
orifice  in  the  tip  of  the  intake  tube  of  a cloud  water  meter,  the  EWER, 
which  is  mounted  under  the  wing  of  a C130  research  airplane  (ref.  7).  Inlet 
aperture  panel  coordinates  must  be  the  first  in  the  deck  of  surface  point 
cards  (cards  6A). 

Input  card  no.  4 contains  the  number  of  aperature  quadrilaterals  and 
also  the  fraction  of  the  free-stream  flow  speed  that  is  "leaked"  through  the 
apertures.  This  leakage  is  taken  to  be  the  same  for  each  aperture  quadri- 
lateral. If  there  is  no  flow  inlet,  card  4 is  blank. 


Off-Body  Points 

The  code  provides  for  computation  of  flow  velocities  at  off-body  points. 
If  the  parameter  NOFF  (card  1)  is  given  a value  greater  than  zero,  coordinates 
of  the  off-body  points  are  input  following  the  surface  points  via  the  same 
format.  The  only  status  flag  (STAT  or  STATT)  required  is  3 for  the  final 
point. 


Printed  Output 

The  printed  output  consists  of  two  main  parts:  the  first  is  the  result 

of  preliminary  processing  of  the  surface  description  data  which  yields  "the 
first  output"  (ref.  9,  sec.  9.4)  described  above  on  p.  21.  The  second  output 
contains  the  final  results  and  consists  of  the  following  for  each  quadrilat- 
eral (ref.  9,  sec.  9.7): 

1.  Null  point  coordinates  (NX,  NY,  NZ)  (ref.  9,  sec.  9.3). 

2.  Velocity  magnitude  (VT)  at  the  null  point. 
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Figure  4.  Computer  plot  of  tip  and  orifice  of  a EWER  cloud  water 
content  meter  probe  (ref.  7). 
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3.  Square  of  the  null  point  velocity  magnitude  (VTSO). 

4.  Pressure  coefficient  (CP)  (ref.  9,  eq.  (137)). 

5.  Null  point  velocity  components  (VX,  VY,  VZ). 

6.  Direction  cosines  of  the  null  point  velocity  (DCX,  DCY,  DCZ). 

7.  Unit  normal  vector  to  the  plane  of  the  quadrilateral  (NX,  NY,  NZ). 


8.  Component  of  velocity  normal  to  the  quadrilateral  plane  at  the 

null  point  (VN).  (Note:  VN  should  be  essentially  zero  unless 

the  quadrilateral  is  part  of  a flow  inlet  (see  p.  26),  in 
which  case  it  should  equal  the  input  free-stream  flow  fraction.) 

9.  Source  strength  of  the  quadrilateral  (SIG). 


Unit  14  Output 

If  parameter  KTP14  is  unity  (card  1),  the  following  data  are  stored  on 
external  unit  14  (in  binary  format)  for  use  later  by  SR  FLOVEL  in  calculating 
flow  velocities  at  arbitrary  points  in  space: 

Body  identification,  KASE  (see  card  1),  number  of  symmetry  planes, 

NSYM,  the  number  of  quadrilaterals,  NQUAD,  in  the  basic  body  unit 
(i.e.,  before  multiplication  by  symmetry  plane  reflections),  free- 
stream  Mach  number,  MACH,  and  (1  - MACH2)-2. 

For  each  quadrilateral  is  stored  the  "twenty-eight  quantities"  (ref.  9, 
sec.  9.51),  plus  the  distances  between  quadrilateral  points  1 and  2,  2 
and  3,  3 and  4,  and  4 and  1.  (See  p.  21.) 


Overlay  Structure  and  Subroutines  Required 

To  conserve  storage  the  program  is  run  with  the  overlay  structure  shown 
in  Fig.  5,  which  also  identifies  the  subroutines  required. 
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HEADER 

ROWV 


DAT  PROS  L-- 


4 

] INPUT 


(3,0) 
A FORM 


(4,0) 

SOLVIT 


(5,0) 
SIGMA 


(6,0) 

ATAPES 


(7,0) 

PRINT1 


(1,1) 

FLOWS 


Figure  5.  Overlay  structure  for  program  BOXC.  The  integer  pairs  (i,j)  indicate  the 
primary,  i,  and  secondary,  j,  overlay  levels. 


External  Storage  Units 

Units  5 and  6 are  the  system  input  and  print  units.  Unit  14  contains 
the  data  to  be  used  by  SR  FLOVEL  to  compute  flow  velocities  at  arbitrary 
points  in  space.  The  following  units  are  used  for  temporary  storage: 

1,  3,  4,  8,  9,  10,  11,  12,  13. 
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BOXC  Card  Input 


Ca  rd 

No.  Variables  and  Format  Description 


1 HEDR( 15) * I FLAG,  LIST, 

AFLOW,  BFLOW,  CFLOW, 

IS IG , IPRS,  MPR,  NCODE, 
NNON,  NSYM,  NOFF,  KMACH, 
KTP14,  KASE,  (15A4,  211, 
3L1,  411,  12,  411,  IX, 
A4) 


HEDR  (cols.  1-60) 
I FLAG  (col.  61) 

LIST  (col.  62) 

AFLOW,  BFLOW, 
CFLOW  (Cols.  63, 
64,  65) 

ISIG  (Col.  66) 
IPRS  (Col.  67) 

MPR  (Col.  68) 


NCODE  (Col.  69) 
NNON  (Cols.  70,71) 
NSYM  (Col.  72) 

NOFF  (Col.  73) 

KMACH  (Col.  74) 

KTP14  (Col.  75) 

KASE  (Cols.  77-80) 


Hollerith  run  identification 

Body  surface  description  input  control.  Same 
as  for  card  1 of  PBOXC.  (See  pp.  16ff . ) 

A value  of  zero  (or  blank)  causes  full  execu- 
tion. Otherwise,  calculation  is  stopped  after 
the  "first  output".  (See  p.  21.) 

Logical  parameters  which  specify  the  free- 
stream  flow  axis.  These  parameters  should  be 
T,F,F  respectively. 

Always  zero  or  blank. 

Always  zero  or  blank. 

Normal  value  is  zero  or  blank.  Non-zero  values 
cause  printout  of  the  following  matrices 
(ref.  9): 

1 print  Vjj 

2 print  A^. 

3 print  V^.  and  A^.  (output  is 
voluminous  for  large  cases) 

Always  zero  or  blank. 

Always  zero  or  blank. 

Number  of  symmetry  planes.  Same  as  for  card  1 
of  PBOXC.  (See  p.  16.) 

Number  of  off-body  points  for  which  velocity 
calculations  are  to  be  calculated.  (See  cards  7) 

A non-zero  value  indicates  that  a Mach  number 
is  to  be  read  via  card  5. 

If  given  a value  of  one,  the  unit  14  output  is 
prepared.  (See  p.  29) 

Hollerith  body  identification. 


2 IPROS,  (LI) 


3 ANGLE,  XSCALE,  YSCALE, 
ZSCALE,  XTRANS,  YTRANS, 
ZTRANS,  (7F10.0) 

4 LEAK,  FRACT,  (14,  F10.0) 


If  true,  body  surface  data  for  a general  body  (IFLAG  = 0)  are  to 
be  translated,  scaled,  and  rotated  about  the  y axis  before  pro- 
cessing, and  card  3 is  to  be  input. 

This  card  is  input  only  if  IPROS  (card  2)  is  true.  Same  as  card  4 
of  PBOXC. 


LEAK  Number  of  quadrilaterals  used  to  define  a flow  inlet  in 
the  body. 

FRACT  Fraction  of  the  free-stream  air  speed  that  passes  through 
the  null  point  of  each  inlet  quadrilateral. 

If  there  is  no  flow  inlet,  input  a blank  card.  (Note:  the  inlet 

quadrilateral  data  {cards  6A)  must  be  the  first  body  data  input.) 
(See  p.  26) 
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BOXC  Card  Input,  cont. 


Card 

No.  Variable  and  Format  Description 

5 MACH,  (F10.6)  Free-Stream  Mach  number.  This  card  is  input  only  if  parameter 

KMACH  (card  1)  is  non-zero. 


6A  X,  Y,  Z,  STAT,  XX,  YY,  Cards  6A  apply  to  general  bodies  ( I FLAG  = 0) 

• i?x10*0.  Coordinates  and  status  flags  for  points  used  to  describe  the 

. I2/3F10.0,  12)  body  surface.  Same  as  cards  5A  of  PBOXC.  (See  pp.  16  ff) 


6B  NLM1,  MMIN,  B,  C, 

(215,  2F10.5) 


Card  6B  applies  to  generated  ellipsoids  (IFLAG  > n).  Same  as 
card  5B  of  PBOXC.  (See  p.  19) 


6C  xlt  zlf  x2,  z2,.... 

XNLM1+1*  ZNLM1+1 
(8F10.0). 


Cards  6C  apply  to  generated  ellipsoids  for  which  the  x,z 
coordinates  are  input.  (IFLAG  - 2,  NSYM  = 2).  Same  as  cards 
5C  of  PBOXC.  (See  p.  19) 


7 X,  Y,  Z,  STAT,  XX, 

YY,  ZZ,  ST  AH, 
(3F10.0,  I2/3F10. 0, 
12) 


Off-body  points  for  which  flow  velocities  are  to  be  calculated 
Cards  7 are  input  only  if  NOFF  (card  1)  is  greater  than  zero. 
STAT  or  STATT  for  the  last  point  must  be  3.  If  there  are  an 
odd  number  of  points,  the  deck  of  off-body  point  cards  should 
be  terminated  with  a blank  card. 


33 


SUBROUTINE  FLOVEL 

Given  the  coordinates  of  a point  in  space  (XNPP,  YNPP,  ZNPP)  and  the 
current  time  step,  H,  used  in  the  integration  of  the  particle  equations  of 
motion,  SR  FLOVEL  returns  the  flow  velocity  components  (VXPP,  VYPP,  VZPP) 
at  that  point,  and  an  indicator,  INBODY,  of  whether  the  body  surface  has 
been  penetrated.  INBODY  = 0 if  the  point  is  exterior  to  the  body,  but 
INBODY  = 1 if  it  is  detected  to  be  inside  the  body. 

The  discussion  to  follow  assumes  that  a Hess-Smith  (ref.  9)  flow  field 
is  being  considered.  However,  if  the  user  wishes  to  compute  flow  by  use  of 
some  other  method,  for  example,  flow  about  an  ellipsoid  via  an  analytical 
equation,  he  may  replace  FLOVEL  by  a subroutine  of  his  own  design.* 

SR  FLOVEL  is  based  mainly  on  the  Hess-Smith  subroutine  VFORM,  with 
modifications  required  to  indlude  the  quadrilateral  source  strengths,  and 
to  set  the  INBODY  parameter.  Application  of  the  source  strengths  (i.e., 
a values)  is  straightforward,  as  indicated  by  eq.  (140)  of  reference  9,  and 
needs  no  further  discussion.  Determination  of  whether  or  not  the  body  has 
been  penetrated  is  discussed  next. 

FLOVEL  calculates  and  sums  velocities  induced  at  the  specified  point 
by  each  quadrilateral.  Three  modes  of  induced  velocity  calculation  are 
used  (ref.  9,  sec.  9.52):  1.  where  the  distance  between  the  point  and  the 

quadrilateral  is  sufficiently  large  the  quadrilateral  is  approximated  by  a 
simple  point  source,  2.  for  intermediate  distances  the  quadrilateral  is 
approximated  by  a point  source  plus  a point  quadrupole,  and  3.  for  short 
distances  an  exact  calculation  is  used.  For  each  quadrilateral  for  which 


In  the  trajectory  codes  a call  of  SR  SETFLO  precedes  the  first  call  of 
FLOVEL.  SETFLO  reads  the  data  stored  on  unit  14  by  PGM  BOXC  (see  p.  29), 
which  data  are  required  by  FLOVEL  for  calculation  of  a Hess-Smith  flow 
velocity,  and  puts  these  data  into  COMMON  storage.  If  a user-designed 
version  of  FLOVEL  is  used,  SETFLO  must  be  replaced  by  a dummy  subroutine. 
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the  exact  calculation  is  required  the  following  tests  are  made  in  sequence, 
and  if  any  one  is  satisfied,  penetration  is  taken  not  to  have  occurred: 

1.  The  vector  of  separation  between  the  point  and  the  center  of 
the  quadrilateral  is  projected  onto  the  normal  vector  to  the 
quadrilateral,  and  the  sign  of  the  projection  is  checked  to 
see  if  the  point  is  on  the  exterior  side  of  the  quadrilateral. 

2.  If  the  distance  of  the  point  to  the  center  of  the  quadrilateral 
is  greater  than  one-half  of  the  maximum  quadrilateral  diagonal, 
penetration  of  the  quadrilateral  has  not  occurred. 

3.  If  the  absolute  value  of  the  projection  calculated  in  test  1 is 
greater  than  the  time  step,  H,  penetration  of  the  quadrilateral 
has  not  occurred. 

For  test  3 we  assume  that  the  maximum  particle  speed  is  about  unity,  so  that 
the  maximum  distance  a particle  can  travel  in  one  time  step  is  roughly  H. 

These  tests  are  applicable  only  during  trajectory  calculations  when  the 
particle  is  advancing  by  small  steps  such  that  if  penetration  occurs  the 
particle  will  be  close  to  the  point  of  penetration  when  the  tests  are  made. 
The  tests  will  not  give  a penetration  indication  for  interior  points  that 
are  not  close  to  the  body  surface. 


PROGRAM  FLOPNT 
General  Description 

This  program  computes  flow  velocities  at  an  array  of  points  in  three- 
dimensional  space.  The  array  is  oriented  parallel  with  the  three  coordinate 
axes.  Flow  velocities  are  computed  by  SR  FLOVEL,  which  uses  data  that,  for 
example,  are  prepared  by  program  BOXC  for  flow  about  an  arbitrary  three- 
dimensional  body. 
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Initial  coordinates,  array  increment  values  along  the  three  coordinate 
directions  and  the  number  of  increments  desired  along  each  direction  (includ- 
ing the  initial  point)  are  input.  Also  input  are  integers  M(3)  which  control 
the  order  of  incrementing  along  three  axes.  For  example,  suppose  M(l)  = 3, 
M(2)  = 1,  M(3)  = 2: 

1.  The  x and  z coordinates  are  held  fixed  while  y is  incremented  over 
its  range. 

2.  y is  returned  to  its  initial  value,  z is  incremented  once,  and  y 
is  incremented  over  its  range. 

3.  This  is  repeated  until  z covers  its  complete  range. 

4.  z is  returned  to  its  initial  value,  x is  incremented  once,  and  y 
is  incremented  over  its  complete  range. 

5.  etc. 

The  printed  output  is  self-explanatory  and  consists  of  point  coordinates, 
velocity  components  and  speed. 

If  data  prepared  by  BOXC  are  used,  SR  SETFLO  reads  these  data  from  unit 
14;  units  5 and  6 are  used  for  input  and  printing,  respectively. 

Subroutines  called  are:  SETFLO,  FLOVEL. 
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FLOPNT  Card  Input 


Card 

No.  Variables  and  Format  Description 


1 


2 

3 

4 


5 

6 


KASE,  (A4) 

Body  identification.  Read  by  SR  SETFLO, 
and  must  be  identical  to  the  identifica- 
tion on  card  1 of  BOXC. 

H0LL(18),  ( 18A4) 

Run  identification. 

M(3),  (312) 

Coordinate  incrementation  sequence 
control.  (See  discussion  above.) 

X(I),  D(I),  N ( I ) ; 
(2E10.0,  14) 

I = 1 

X(l)  Initial  X coordinate  Vd1rnensionless) 

D(l)  x coordinate  increment! 

N(l)  number  of  increments  desired 

in  the  x direction  (includ- 
ing initial  value). 

X(I),  D(I),  N(I) ; 

I = 2 

Same  as  card  4 but  for  the  y axis. 

X(I),  D(I),  N(I); 

I = 3 

Same  as  card  4 but  for  the  z axis. 

3'  Cards  3-6  are  repeated 

. for  another  array. 


3 Blank  card 


A blank  card  3 terminates  the  run. 
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TRAJECTORY  CODE  DESCRIPTIONS 


GENERAL  UTILITY  CODES 
Subroutine  PARTCL 

Subroutine  PARTCL  is  called  by  all  three  of  the  executive  trajectory 
codes  (Table  IB)  to  input  particle  specification  data  and  compute  still-air, 
terminal  particle  settling  speed  and  other  data  depending  on  particle  type. 
This  is  a particle  type  - specific  code,  the  version  used  here  being  for 
water  drops.  It  calls  SR  FALWAT. 


Subroutine  TRAJECT 

Trajectories  are  calculated  by  SR  TRAJECT  with  the  assistance  of: 

SR  DVDQ,  the  numerical  integrator  code,  SR  FLOVEL  and  the  functions  PRFUN 
and  IMPACT.  It  also  stores  trajectory  point  coordinates  at  user-specified 
(normalized)  time  intervals  (TPRINT)  in  arrays  XPL0T(60),  YPL0T(60), 
ZPL0T(60),  providing  logical  parameter  IPLOT  is  specified  as  true. 


Function  PRFUN 

Function  PRFUN  is  a particle  type  - specific  code  which  is  called  by 

TRAJEC  to  provide  the  N^  - N^  relation  used  in  calculating  the  particle 

equations  of  motion  (eq.  (1)).  Actually,  through  use  of  the  pre-calculated 

quantity  COF  (=  NQ  svsNp/NR  s)»  PRFUN  returns  the  factor  on  the  first  term 

on  the  right  side  of  eq.  (1)  which  when  multiplied  by  v - v yields  the 

^ P 

particle  equation  of  motion.  The  version  of  PRFUN  used  here  is  for  water 
drops,  and  it  calls  functions  CDRR  and  WCDRR. 
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Subroutine  IMPACT 


Subroutine  IMPACT  is  called  by  TRAJECT  following  penetration  of  a 
particle  into  the  body.  When  used  with  CONFAC,  IMPACT  adjusts  trajectory 
initial  y and  z coordinates  such  as  to  avoid  impaction  by  the  next  tra- 
jectory (see  p.  44);  accordingly  IMPACT  is  a problem-specific  code.  No 
such  adjustment  is  required  for  cases  run  under  control  of  ARYTRJ  and 
TANTRA*,  so  that  a dummy  version  of  IMPACT  is  used. 


Subroutine  SETFLO 

Subroutine  SETFLO  reads  data  prepared  by  PGM  BOXC  from  external  unit  14. 
These  data  are  required  by  SR  FLOVEL  for  calculation  of  flow  velocities  about 
a Hess-Smith  three-dimensional  body.  SETFLO  reads  a four-character  Hollerith 
identification  of  the  body  and  checks  to  see  if  it  is  identical  to  the  identi- 
fication obtained  from  unit  14.  If  not,  a comment  is  printed  and  the  calcu- 
lation is  stopped. 

If  flow  around  the  body  is  calculated  by  some  means  other  than  the  Hess- 
Smith  method,  SETFLO  must  be  replaced  with  a dummy  subroutine. 


Subroutine  DVDQ 

This  is  the  variable  order,  ordinary  differential  equation  integrator 
of  Krogh  (ref.  11).  Operating  instructions,  which  have  proven  to  be  quite 
adequate,  are  found  in  the  glossary  of  the  DVDQ  card  listings.  The  version 
used  here  automatically  adapts  to  the  word  size  of  the  computer  used. 


*Be  very  sure  that  IMPACT  does  not  adjust  initial  trajectory  coordinates 
during  tangent  trajectory  determination  under  control  of  TANTRA. 
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PROGRAM  ARYTRJ 


General  Description 

SR  TRAJECT  is  called  to  compute  particle  trajectories  initiated  at  an 
array  of  points  in  three-dimensional  space.  Particle  properties  are  com- 
puted by  SR  PARTCL  and  SR  PRFDN.  Flow  velocities  are  computed  by  SR  FLOVEL, 
which  uses  data  that,  for  example,  are  prepared  by  program  BOXC  for  flow 
around  an  arbitrary  three-dimensional  body.  SR  DVDQ  integrates  the  particle 
equations  of  motion. 

Initial  coordinates  of  the  initial  point  array,  array  increment  values 
for  the  three  coordinate  directions  and  the  number  of  increments  desired  along 
each  direction  (including  the  initial  point)  are  input.  Also  input  are  in- 
tegers M(3)  which  control  the  order  of  incrementing  along  the  three  axes  and 

a skip  parameter  NSKIP.  For  example,  suppose  M(l)  = 3,  M(2)  = 1,  M(3)  = 2: 

1.  The  x and  z coordinates  are  held  fixed  while  y is  incremented  over 
its  range. 

2.  y is  returned  to  its  initial  value,  z is  incremented  once,  and  y 
is  incremented  over  its  range. 

3.  This  is  repeated  until  z covers  its  complete  range. 

4.  z is  returned  to  its  initial  value,  x is  incremented  once,  and  y 

is  incremented  over  its  complete  range. 

5.  etc. 

Trajectories  are  computed  to  the  limiting  x coordinate  value  XLIMIT  or 
until  penetration  of  the  body  is  sensed. 

If  not  every  trajectory  is  desired,  the  parameter  NSKIP  is  set  greater 
than  zero.  Then,  after  the  first  trajectory,  only  every  NSKIP  + 1 th  tra- 
jectory is  computed. 
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Subroutines  Required 

FLOVEL,  SETFLO,  PARTCL,  FALWAT,  TRAJECT,  IMPACT  (dummy),  PRFUN, 
DVDQ,  WCDRR,  CDRR 


External  Storage  Units 

Units  5 and  6 are  the  system  input  and  print  units,  respectively. 
Unit  9 is  used  for  temporary  storage. 

Unit  10  is  used  to  store  trajectory  data  for  plotting  by  PGM  STEREO. 
Unit  14  is  used  by  SR  SETFLO  for  input  of  data  prepared  by  PGM  BOXC. 


Printed  Output 

The  printed  output  is  largely  self-explanatory.  For  each  trajectory 
are  printed  at  time  interval  TPRINT:  time,  point  coordinates  (X,  Y,  Z), 

particle  velocity  components  (VPX,  VPY,  VPZ),  flow  velocity  components 
(VX,  VY,  VZ),  time  step  (H) , Reynolds  number  (R),  acceleration  modulus  (AC) 
and  cumulative  number  of  flow  velocity  computations  (NEVAL).  (All  dimen- 
sionless) 

Other  quantities  are:  angle  between  the  projection  of  the  initial 
flow  velocity  vector  in  the  z = 0 plane  and  the  x axis  (ALPHAO),  angle 
between  the  initial  flow  velocity  vector  and  its  projection  in  the  z = 0 
plane  (BETAO),  angle  between  the  projection  of  the  final  particle  velocity 
vector  in  the  z = 0 plane  and  the  x axis  (ALPHAR),  angle  between  the  final 
particle  velocity  vector  and  its  projection  in  the  z = 0 plane  (BETAR), 
direction  cosines  of  the  drag  vector  at  the  final  point,  and  the  angle 
between  the  projection  of  the  drag  vector  in  the  z = 0 plane  and  the  x 
axis  (A),  and  the  angle  between  the  drag  vector  and  the  z axis  (GAMMA). 

(All  angles  are  in  degrees.) 
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ARYTRJ  Card  Input 


Card 

Wo.  Variables  and  Format 

1 KASE,  (A4) 


2 HOLL  (18),  I PLOT, 

(18A4,  7X,  LI) 


3 V,  ELL,  RHO,  TEMP, 

XFINAL,  (8F10.5) 


4 TPRINT,  HI,  HMINI, 

EPSI (3 ) , (8F10.5) 


5 DIAM,  (7F10.0) 

6 M(3) , NSKIP,  (414) 


7 X(I),  D(I) , N(I) ; I = 1 

(2F10.0,  14) 


8 X(I),  D(I),  N(I) ; I = 2 

9 X(I),  D(I),  N ( I ) ; I = 3 


5'  Cards  5-9  are  repeated 
for  another  particle  and 
another  array 


Description 

Body  identification.  Read  by  SR  SETFLO.  Must  be  identical  to 
parameter  KASE  on  card  1 of  the  BOXC  input. 

HOLL  72  columns  of  Hollerith  run  identification 

I PLOT  Logical  variable:  if  true,  trajectory  data  are  written 

(col.  80)  on  unit  10  for  plotting  by  PGM  STEREO. 

V Free  stream  airspeed  (m  s*1) 

ELL  Characteristic  dimension  of  the  body  (m).  Corresponds 

to  L as  defined  for  eq.  (1). 

RHO  Ambient  air  density  (kg  m“3) 

TEMP  Ambient  temperature  (°K) 

XFINAL  x coordinate  for  trajectory  cut  off  (i.e.,  maximum  x 
coordinate)  (normalized,  dimensionless) 

TRRINT  Time  interval  for  trajectory  point  print.  Default  value 

= 0.1. 

HI  Initial  numerical  integration  time  step.  (See  SR  DVDQ). 

Default  value  =0.1 

HMINI  Initial  numerical  integration  minimum  time  step.  (See 
SR  DVDQ).  Default  value  = .005. 

EPSI(3)  Parameters  used  to  control  numerical  integration  local 
error.  (See  SR  DVDQ).  Default  values  = 1.0E-5. 

All  normalized,  dimensionless. 

Water  drop  diameter  (ym).  This  card  is  read  by  SR  PARTCL. 

M(3)  Array  incrementation  control 

NSKIP  Array  skip  parameter  (See  discussion  above.) 

X ( 1 ) Initial  x coordinate  ) 

n/i.  ..  , . f (dimensionless) 

D ( 1 ) x coordinate  increment 

N{1)  Number  of  increments  desired  in  the  x direction  (includ- 

ing the  initial  value) 

Same  as  card  7,  but  for  the  y direction. 

Same  as  card  7,  but  for  the  z direction. 


5 Blank  card 


A blank  card  5 terminates  the  run. 
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PROGRAM  CONFAC 


General  Discussion 

Program  CONFAC  computes  trajectories  to  user-specified  target  points. 

It  operates  in  two  modes: 

1.  Single  trajectories  are  calculated  to  each  target  point  (NW  = 0). 

2.  A central  trajectory  is  computed  to  the  target  point,  and  NW 
trajectories,  evenly  spaced  about  a circle  in  the  target  plane 
of  radius  RW  about  the  central  trajectory,  are  calculated  such 
as  to  define  a particle  flux  tube. 

Mode  2 is  used  to  calculate  concentration  factor,  Cp,  which  is  the  ratio  of 
particle  flux  at  the  target  point  to  the  free-stream  particle  flux.  It  is 
easy  to  show  that 

c „ area  of  flux  tube  cross  section  in  the  free  stream 

UF  area  of  flux  tube  cross  section  at  the  target  point 

The  areas  are  those  of  plane  polygons  of  NW  vertices  as  calculated  by 
SR  POLYGON.  Concentration  ratio,  CM,  the  ratio  of  particle  concentra- 
tion at  the  target  point  to  free  stream  concentration,  is  obtained  via 
the  relation 


The  desired  trajectories  are  calculated  by  an  iterative  method  which 
finds  a trajectory  that  passes  within  a user-specified  distance  tolerance 
(RW*T0L)  of  the  desired  target  point.  To  initialize,  the  user  may  input 
four  sets  of  coordinate  guesses:  two  sets  of  y and  z coordinates  for  the 

initial  and  target  planes.  No  special  care  need  be  taken  in  making  these 
guesses  since  convergence  should  be  rapid  as  long  as  the  coordinates  are  in 
the  correct  general  neighborhood.  On  default  of  input,  the  initial  coordi- 
nate guesses  are  supplied  by  the  code. 
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The  trajectory  iteration  procedure  is  described  in  detail  in  ref- 
erence 1.  (See  pp.  13  - 16  and  Appendix  A.)  SR  MAP  controls  the  itera- 
tion and  calls  SR  TRAJECT  to  calculate  trajectories.  If  convergence  is 
not  achieved  after  calculating  twenty-five  trajectories,  the  calculation 
proceeds  to  the  next  particle  or  stops.  The  limiting  number  of  tra- 
jectories can  be  changed  by  changing  the  value  of  ILIM  in  a DATA  state- 
ment in  SR  MAP. 

SR  IMPACT  is  a problem-specific  code  whose  purpose  is  to  adjust  tra- 
jectory initial  y and  z coordinates  when  penetration  of  the  body  occurs  such 
that  penetration  will  be  avoided  on  the  next  attempt.  After  twenty-five 
penetrations,  the  calculation  proceeds  to  the  next  particle  or  stops. 

The  limiting  number  of  penetrations  can  be  changed  by  changing  the  value 
of  JLIM  in  PGM  CON FAC. 


Subroutines  Required 

FLOVEL,  MAP,  PARTCL,  POLYGON,  DVDQ,  SETFLO,  FALWAT,  PRFUN,  IMPACT, 
TRAJECT,  TRANSFM,  MATINV,  WCDRR,  CDRR. 


External  Storage  Units 
Same  as  for  ARYTRJ. 


Printed  Output 

The  printed  output  is  largely  self-explanatory,  and  contains  all  of  the 
data  described  for  PGM  ARYTRJ. 

Detailed  trajectory  data  are  printed  only  for  the  final  trajectory  which 
is  the  result  of  a successful  convergence  to  the  desired  target  point.  For 
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other  trajectories,  only  the  initial  and  final  y and  z coordinates  are 
printed.  Except  for  the  initial  coordinate  guesses,  these  coordinates 
are  given  in  the  "flux  tube  coordinate  system",  and  are  so  identified  and 
distinguished  in  the  output  from  the  "flow  coordinate  system".  The  "flow 
system"  is  the  coordinate  system  (normalized)  by  use  of  which  the  body 
is  described  and  the  flow  is  computed.  The  "flux  tube  system"  at  any 
point  along  the  trajectory  has  its  origin  at  the  flux  tube  center  and  its 
y and  z axis  in  the  plane  normal  to  the  central  trajectory.  Flux  tube 
system  coordinates  are  given  in  the  initial  and  target  planes  in  the 
output. 

For  cases  where  flux  tubes  are  calculated,  a summary  of  the  initial 
and  final  coordinates  of  all  NW  + 1 trajectories  are  printed,  the  areas 
of  the  polygons  with  NW  vertices  in  the  initial  and  final  planes  are 
printed,  and  the  concentration  factor  and  concentration  ratio  are 
printed. 
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CONFAC  Card  Input 


Card 

No.  Variables  and  Format 

1 KASE,  (A4) 


2 H0LL(18),  I PLOT, 

(18A4,  7X,  LI) 


3 V,  ELL,  RHO,  TEMP, 

XSTART,  (8F10.5) 


4 TPRINT,  HI,  HMINI, 
EPSI (3) , (8F10.5) 

5 NW,  RW,  TOL,  (110, 
7F10.5) 


6 YE( I ) , ZE(I) , YI  (I) , 
Z(I);  (I  = 2),  (8F10.5) 

7 YE ( I ) , ZE(I),  YI ( I ) » 
Z(I);  (I  = 3),  (8F10.5) 


8 DIAM,  (7F10.0) 

9 XW,  YW,  ZW,  (8F10.5) 


Description 

Body  identification.  Read  by  SR  SETFLO.  Must  be  identical  to 
parameter  KASE  on  card  1 of  the  BOXC  input. 

HOLL  72  columns  of  Hollerith  run  identification. 

IPLOT  Logical  variable:  if  true,  trajectory  data  are  written 

(col.  80)  on  unit  10  for  plotting  by  PGM  STEREO. 

V Free  stream  airspeed  (m  s-1) 

ELL  Characteristic  dimension  of  the  body  (m).  Corresponds 

to  L as  defined  for  eq.  (1). 

RHO  Ambient  air  density  (kg  m-3). 

TEMP  Ambient  temperature  (°K). 

XSTART  Initial  x coordinate  of  trajectory,  (normalized, 
dimensionless) 

Same  as  for  ARYTRJ. 


NW  Number  of  trajectories  used  to  define  flux  tube 

peripheries  for  concentration  factor  calculation. 

If  NW  = 0,  single  trajectories  are  calculated  to 
target  points  defined  by  cards  9. 

YE,  ZE  Initial  guesses  of  trajectory  y and  z coordinates  in 
the  target  plane. 

YI,  ZI  Initial  guesses  of  trajectory  coordinates  in  the  initial 
plane. 

These  coordinates  are  in  the  coordinate  system  used  to  define  the 
body  and  the  flow  field  (normalized,  dimensionless).  The  data  in 
the  two  cards  can  be  very  approximate,  but  if  not  blank,  the  two 
cards  should  not  be  identical.  On  input  of  two  blank  cards,  the 
code  supplies  default  estimates  based  on  the  first  target  coordinates. 

Water  drop  diameter  (ym).  This  card  is  input  by  SR  PARTCL. 
x,y,z  coordinates  of  the  target  point  (normalized,  dimensionless). 


8‘  Cards  8 and  9 are 

repeated  for  as  many 
particles  as  desired.* 


9' 


8 Blank  card 


A blank  card  8 terminates  the  run. 


Previous  trajectory  y and  z coordinates  are  used  as  trajectory  iteration  initialization  estimates  for  each  new 
target  point.  Thus,  if  target  points  are  widely  spaced,  separate  runs  should  be  made  for  each. 
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PROGRAM  TANTRA 
General  Discussion 


The  purpose  of  this  code  is  to  compute  tangent  particle  trajectories  to 
a three-dimensional  body.  The  code  is  designed  to  be  as  general  and  as  auto- 
matic as  practical,  but  owing  to  the  unlimited  number  of  geometrical  possi- 
bilities in  three  dimensions,  some  compromise  is  necessary.  Since  we  cannot 
know  a priori  what  parts  of  a body  the  tangents  will  touch,  we  do  not,  in 
general,  have  the  option  of  specifying  target  points  on  the  body  or  even 
target  planes  through  the  body.  Therefore,  we  specify  curves  in  the  free 
stream  well  ahead  of  the  body  on  which  all  trajectories  are  initiated  for  a 
particular  tangent  determination. 

Given  the  equation  of  the  starting-point  curve  and  an  initial  point  on 
the  curve,  the  code  computes  the  trajectory  from  this  point  toward  the  body 
until  penetration  of  the  body  occurs  or  until  a specified  x-coordinate  stop 
point  is  reached.  If  penetration  occurs,  a specified  coarse  step  is  taken 
along  the  starting-point  curve  in  direction  away  from  the  body,  and  another 
trajectory  is  computed.  If  penetration  does  not  occur,  the  coarse  step  is 
taken  along  the  starting-point  curve  in  direction  toward  the  body,  and  an- 
other trajectory  is  calculated.  Once  penetration  occurs  for  trajectories 
that  initially  miss  the  body,  or  the  reverse  for  trajectories  that  initially 
impact,  the  initial  point  is  backed  up  one  step  along  the  curve  away  from  the 
body  if  necessary,  and  the  process  of  stepping  toward  the  body  is  resumed 
with  a fine  step  size  until  the  tangent  trajectory  is  found.  Thus,  the 
tangent  trajectory  misses  the  body  by  no  greater  than  the  tolerance  implied 
by  the  fine  step  sTze.  Note  that  this  does  not  imply  that  the  tolerance  is 
the  fine  step  size.  Separation  of  trajectories  in  the  free  stream  will  not 
be  the  same  as  separation  of  the  same  trajectories  near  the  body,  nor  even 
approximately  the  same  except  for  very  large,  heavy  particles  which  have 
sufficient  inertia  to  essentially  ignore  the  flow  around  the  body.  In 
general,  trajectory  separations  near  the  body  will  be  less  than  in  the  free 
stream. 
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Specification  of  the  starting-point  curve  is  done  via  SR  STRPNT,  which 
in  the  version  supplied  uses  straight  line  curves.  The  user  provides  the 
coordinates  of  two  points  on  the  line: 

Point  1.  Initial  coordinates  of  the  initial  trajectory 

Point  2.  Coordinates  of  any  other  point  on  the  line  which  is  closer 
to  the  body  than  Point  1. 

Point  2 must  be  closer  to  the  body  than  Point  1 to  ensure  that  stepping  along 
the  starting-point  curve  proceeds  in  the  proper  direction.  Point  2 need  not 
be,  and  in  general  will  not  be,  the  initial  point  of  a trajectory.  Note  that 
both  of  these  points  must  be  sufficiently  far  upstream  to  be  essentially  in 
the  free  stream.  Also  specified  are  the  coarse  and  fine  stepping  distances. 
All  coordinates  and  distances  are  normalized.  (See  eq.  (1).) 

If  so  specified  (IPLOT  = true),  tangent  trajectory  data  are  stored  on 
unit  10  for  plotting  later  by  PGM  STEREO. 


Subroutines  Required 

FLOVEL,  SETFLO,  PARTCL,  FALWAT,  STRPNT,  TRAJECT,  IMPACT*,  PRFUN, 
DVDQ,  WCDRR,  CDRR. 


External  Storage  Units 
Same  as  for  ARYTRJ. 


Printed  Output 

Trajectory  data  are  as  described  for  PGM  ARYTRJ  and  are  printed  for 
every  trajectory  computed  regardless  of  whether  or  not  the  trajectory  is 

* 

Be  sure  that  IMPACT  is  a dummy  subroutine.  Resetting  of  initial  trajectory 
coordinates  by  SR  IMPACT  will  ruin  a tangent  trajectory  determination. 
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accepted  as  the  tangent  trajectory.  Beyond  that,  the  output  is  fully 
labeled  and  self-explanatory.  All  input  data  are  printed:  including  the 

points  used  to  define  the  starting-point  line,  coarse  and  fine  increments, 
and  starting  point  coordinates.  The  switching  from  coarse  to  fine  step 
size  is  clearly  identified,  as  are  the  tangent  trajectory  data. 
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TANTRA  Card  Input 


Card 


No. 

Variables  and  Format 

Data  Description 

1-4 

Cards  1 through  4 are  the  same  as  for 
ARYTRJ. 

5 

DIAM,  (7F10.0) 

Water  drop  diameter  (ym).  This  card 
is  read  by  SR  PARTCL. 

6 

DCORS,  DFINE,  (8F10.0) 

Respectively,  the  coarse  and  fine  step 
sizes  to  be  used  in  stepping  along  the 
starting-point  line  (normalized,  dimen- 
sionless). Card  6 is  read  by  SR  STRPNT. 

7 

X ,Y,Z ,X1, Y1 ,Z1 , 
(8F10.0) 

X,Y,Z  Coordinates  of  Point  1,  which 

specifies  the  initial  trajec- 
tory coordinates  on  the  start- 
ing-point line  (normalized, 
dimensionless). 

X1,Y1,Z1  Coordinates  of  Point  2,  which 
is  any  point  on  the  starting- 
point  line  that  is  closer  to 
the  body  than  Point  1 (nor- 
malized, dimensionless). 

Note  that  the  starting-point  line  should 
be  far  enough  upstream  of  the  body  to  be 
essentially  in  the  free  stream.  Card  7 
is  read  by  SR  STRPNT. 

6'  Cards  6 and  7 are  repeated  for  as  many 

7'  trajectories  as  desired. 


6 Blank  card  A blank  card  6 signals  end  of  calculation 

for  this  water  drop,  and  another  card  5 
i s read . 


5' 

6" 

7" 


6 Blank  card 


5 Blank  card  A blank  card  5 terminates  the  run. 
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PROGRAM  STEREO 
General  Discussion 

Program  STEREO  is  used  to  plot  results  of  the  trajectory  calculations. 
Both  body  and  trajectories  are  plotted.  The  body  data  are  obtained  from 
unit  9,  on  which  the  data  were  stored  by  SR  PINPUT  under  control  of  PGM 
PBOXC,  and  the  trajectory  data  are  obtained  from  unit  10,  on  which  the  data 
were  stored  under  control  of  either  ARYTRJ,  CONFAC  or  TANTRA. 

Plots  are  prepared  in  pairs,  members  of  a pair  being  separated  by  a 
specified  angle  on  each  side  of  a specified  viewing  direction.  Proper 
specification  of  the  angles,  which  usually  requires  some  trial -and-error- 
experimentation,  may  provide  plots  which  can  be  used  for  stereo  viewing  as 
illustrated  by  Figure  6. 

The  viewing  direction  is  defined  by  specifying  two  angles,  THETA  and 
PSI.  The  operation  of  these  angles  is  as  follows:  We  assume  a right-handed 
coordinate  system  with  its  positive  z axis  directed  upward  and  the  free- 
stream  flow  in  the  direction  of  the  positive  x axis.  First  rotate  the 
coordinate  system  about  the  y axis  by  angle  THETA  such  that  positive  THETA 
tilts  the  positive  x axis  upward.  Then  rotate  about  the  new  z axis  by  angle 
PSI  such  that  for  positive  PSI  the  rotation  is  clockwise  when  viewed  from 
above.  The  view  direction  separation  angle,  DELTA  is  applied  to  angle  PSI 
such  that  the  members  of  a stereo  pair  are  actually  viewed  from  angles 
THETA,  PSI-DELTA  and  THETA,  PSI  + DELTA,  and  are  plotted  in  that  order. 

For  a particular  case  (i.e. , body  and  set  of  trajectories),  the  user 
must  specify  the  number  of  trajectories  and  the  (upstream)  x coordinate  at 
which  plotting  of  the  trajectory  data  is  to  be  begun.  This  need  not  have  the 
same  value  as  the  initial  x coordinates  of  the  data  stored  on  unit  10. 

Translating  and  scaling  of  the  data  such  that  it  will  properly  fit  into 
the  plot  area  is  handled  automatically  by  the  program. 

Only  system  and  plot  subroutines  are  required. 
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Figure  6.  Stereographic  plots  of  an  eight-trajectory,  20  ym-diameter  water  drop  flux  tube 
to  a particle  replicator  mounted  on  the  forward  fuselage  of  a Lockheed  C130A 
airplane.  The  central  trajectory  is  also  shown.  Cp  = 1.15.  (Ref.  1)  Three- 

dimensional  perspective  can  be  attained  by  staring  at  the  center  of  the  figure 
and  then  crossing  the  eyes  such  that  the  two  images  merge. 


External  Storage  Units 


Units  5 and  6 are  the  system  input  and  print  units. 

Unit  9 contains  the  three-dimensional  body  surface  data,  plus  some 
scaling  information,  as  stored  by  SR  PINPUT. 

Unit  10  contains  the  trajectory  data  as  stored  under  control  of  PGMS 
ARYTRJ , CONFAC  or  TANTRA. 


Printed  Output 

The  printed  output  is  simple.  It  consists  of  a run  identification,  the 
input  data  and  some  scaling  information.  For  each  trajectory  is  printed: 

1.  the  coordinates  (XTRAJ,  YTRAJ , ZTRAJ ) of  each  point  before  translation, 
scaling  and  projection  onto  the  plot  plane,  and  2.  the  translated,  scaled 
and  projected  coordinates  (XPLOT,  YPLOT)  of  each  point  plotted. 
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STEREO  Card  Input 


Card 

No.  Variables  and  Format  Description  

1 HOLL ( 18) , (18A4)  72  columns  of  Hollerith  run  identification. 


2 ICRT,  NTRJS,  XSTART, 
(LI,  19,  F10.0) 


ICRT  A logical  variable  which  when 
true  causes  plotting  to  be  via 
CRT.  Otherwise,  plotting  i/S 
via  pen  and  ink. 

NTRJS  Number  of  trajectories  to  be 
plotted. 

XSTART  x coordinate  at  which  trajectory 
plotting  is  to  begin.  Need  not 
correspond  to  the  initial  x co- 
ordinates of  trajectories  stored 
on  unit  10. 


3,4  LINE1,  LINE2, 
(7A6/7A6) 


Cards  3 and  4 are  read  only  if  ICRT  is 
true  (card  2).  Two  lines  of  42  columns 
each  of  Hollerith  labeling  for  a micro- 
fiche film. 


5,6  THETA,  PSI,  DELTA, 

HLABEL(18),  (3F10.2/ 
18A4) 


THETA  Viewing  angles  and  viewing  angle 

PSI  separation  (degrees).  (See 

DELTA  definitions  above.) 

HLABEL  72  columns  of  Hollerith  labeling 

for  the  plots. 


5', 6'  Cards  5 and  6 are  repeated  for  as  many  additional  plot 
pairs  as  desired. 


5,6 


Blank  cards 


Blank  cards  5 and  6 terminate  the  run. 


VALIDATION 


PRIOR  WORK 

Hess  and  Smith  (refs.  9 and  10)  present  results  of  a wide  range  of 
studies  where  flow  velocities  and  pressures  calculated  by  their  method  are 
compared  with  other  theory  and  with  experiment.  Outstanding  agreement  with 
the  data  from  other  sources  is  evident. 

In  reference  1 we  present  results  of  several  studies  that  examine 
accuracy  of  the  trajectory  calculations.  To  check  accuracy  of  the  numerical 
integrations  we  computed  trajectories  of  1 ym  diameter  water  drops  in  axi- 
symmetric  airflow  about  an  ellipsoid  of  fineness  ratio  2 and  found  the  largest 
deviation  from  the  stream  line  flow  to  be  0.006%.  Thus  very  small  particles 
are  computed  to  essentially  follow  the  stream  flow  as  they  should  do. 

To  determine  differences  between  trajectories  computed  by  a body  con- 
structed from  Hess-Smith  panels  and  a body  with  an  analytically  defined 
surface,  we  computed  trajectories  of  water  drops  about  ellipsoids  of  fine- 
ness ratio  2 of  both  types  in  axisymmetic  air  flow  at  5 kft  altitude  in  a 
standard  atmosphere  (ref.  1).  The  Hess-Smith  ellipsoid  was  constructed  from 
1800  panels,  and  the  length  of  the  semi-major  axes  of  the  ellipsoids  was 
taken  to  be  4.67m.  Results  are  shown  in  Fig.  7 for  comparison  of  trajectory 
intersections  with  the  extended  minor  axis.  All  of  the  Hess-Smith  points 
are  slightly  farther  from  the  ellipsoid  surface  than  the  analytical  points, 
but  the  discrepancies  are  not  large.  The  largest  discrepancy,  for  100  ym 
drops  at  31  cm,  is  very  atypical  in  that  this  point  is  on  the  edge  of  a 
shadow  zone,  where:  trajectory  distortions  are  near  their  maxima,  concen- 

tration factors  become  very  large,  and  we  expect  and  find  "pathlogical 11 
computational  results  caused  by  trajectories  crossing  each  other  in  this 
region  of  extremely  high  concentration  gradients. 

Also  in  reference  1 we  compare  our  tangent  trajectories  with  those  cal- 
culated by  Dorsch  et  al . (ref.  19)  for  axisymmetric  flow  about  an  ellipsoid 
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TRAJECTORY  ERROR  (cm) 


Figure  7.  Comparison  of  water  drop  trajectories  about  an  ellipsoid 
of  fineness  ratio  2 using  exact  and  approximate  potential 
airflow.  The  ellipsoid  semi-minor  ax4s  is  of  length 
2.335m.  (From  ref.  1) 
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of  fineness  ratio  5 for  the  two  conditions  of  flow  and  particle  size  given 
in  Figure  4 of  reference  19.  Particle  equations  of  motion  without  gravity 
were  used.  In  terms  of  the  distance  of  the  tangent  trajectory  from  the 
symmetry  axis  in  the  free  stream,  r , we  have 


Free  Stream 

Stokes  Reynolds 

Number  Number 


Dorsch,  Norment  and 

et  al . , Zalosh, 

ref.  19  ref.  1 


1 4096  .077 


.075 


1/30  512 


.020  .015 


Here  rQ  is  a fraction  of  the  ellipsoid  semi-major  axis  length.  Differences 
in  our  method  of  calculation  and  that  of  Dorsch  et  al . are  discussed  in  the 
next  section. 


ADDITIONAL  VERIFICATION 

The  work  of  comparison  of  calculated  tangent  trajectories  to  an  ellipsoid 
of  fineness  ratio  5 with  those  calculated  by  Dorsch  et  al.  (ref.  19)  was  ex- 
tended to  include  cases  given  in  Table  1 of  reference  19.  Three  cases  were 
chosen  for  study  as  follows: 

Altitude:  5000  ft  Temperature:  20°F 

Water  droplet  diameter:  20  ym 

Ellipsoid  semi-major  axis  length:  5 ft. 

Free  stream  speeds:  100,  300,  500  mph. 

The  Dorsch,  et  al.  calculations  were  done  neglecting  gravity,  with  use  of 
very  early  drag  data  and  the  equations  of  motion  were  integrated  with  a mechani- 
cal differential  analyser.  Our  calculations  included  gravity  and  were  done  by 
the  codes  described  herein.  In  both  studies  flow  about  an  analytical  ellipsoid 
was  used.  Our  calculations  were  three-dimensional,  but  confined  to  the  y = 0 
plane.  To  account  for  effects  of  gravity  (i.e.,  droplet  settling)  we  calculated 
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tangent  trajectories  above  and  below  the  ellipsoid  and  averaged  the  results. 
(If  r values  are  adjusted  for  droplet  settling  between  initial  and  impact 
points,  the  result  is  the  same  as  the  average  rQ  values  obtained  from  the 
above  and  below  tangent  trajectories.)  Results  are: 


Free 

— This  Study  — 

Stream 

Dorsch, 

Speed 

et  al . , 

Upper 

Lower 

(mph) 

Ref.  19 

Side 

Side 

Average 

100 

.024 

.0198 

.0174 

.019 

300 

.041 

.0373 

.0365 

.037 

500 

.054 

.0460 

.0456 

.045 

Lewis  and  Ruggeri  (ref.  20)  present  experimental  data  obtained  in  the 
NACA  Lewis  wind  tunnel  used  for  icing  studies.  Data  were  obtained  at  con- 
stant free  stream  airspeed  and  atmospheric  conditions  for  axisymmetric  flow 
about  an  ellipsoid  of  fineness  ratio  2.5.  Local  impingment  efficiencies 
were  measured  as  a function  of  s/R  (s  is  the  distance  measured  aftward  along 
the  ellipsoid  surface  from  the  nose  of  the  ellipsoid,  and  R is  the  semi- 
minor ellipsoid  axis)  for  four  narrow  distributions  of  droplet  sizes.  The 
relevant  datum  here  is  the  maximum  s/R  for  each  droplet  distribution  which  is 
produced  by  the  maximum  droplet  diameter,  <$max»  in  its  distribution. 

Lewis  and  Ruggeri  give  the  following  flow  and  dimensional  data: 

Free  stream  speed:  157  kts  (80.767  m s-1) 

Temperature:  50°F  (283.16°K) 

Pressure:  28"  Hg  (94583  Pa) 

Semi-minor  ellipsoid  axis:  15  inches  (0.381m) 

We  calculate  air  density  to  be  1.1637  kg  m-3. 
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Lewis  and  Ruggeri  also  give  theoretical  s/R  results.  Our  calculations 
were  done  as  described  previously  in  this  section.  x,z  coordinates  of 
limiting  impingement  points  were  converted  to  ( s/R)  values  by  a graphi- 

I lid  A 

cal  method.  Results  are  as  follows: 


( s/R)max  From  Ref.  20 


5max 

(urn) 

Exp. 

Mean  from 
Figs.  10,23 

Theor. 
from 
Fig.  23 

% Error 
Relative 
to  Exp. 

<S/RU 

This 

Study 

% Error 
Relative 
to  Exp. 

% Error 
Relative  to 
Ref.  20 
Theory 

24 

.23 

.52 

+160 

.385 

+67 

-26 

35 

.405 

.75 

+ 88 

.648 

+60 

-14 

45 

.525 

.9 

+ 64 

.847 

+61 

- 6 

64.5 

.745 

1.2 

+ 60 

1.18 

+58 

-1.7 

Note  that  in  all  cases  our  calculations  are  closer  to  the  experimental  values, 
though  for  the  larger  particles  our  theoretical  results  differ  little  from 
those  reported  by  Lewis  and  Ruggeri. 
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EXAMPLE  PROBLEMS 


GENERAL  DISCUSSION 

Example  card  input  data  are  given  below  and  printouts  are  presented 
in  the  microfiche  addition  included  with  this  report  for  each  of  the  seven 
codes  listed  in  Table  1.  A special  three-dimensional  test  body,  which  is 
described  in  the  next  section,  was  used  for  the  calculations. 

All  of  the  codes  use  less  than  65,000  central  processor  storage  words, 
and  most  use  substantially  less.  Program  BOXC  uses  the  most  storage  and 
STEREO  uses  the  least. 

Total  running  times  on  the  UNIVAC  1100/42  computer  at  NASA  Lewis 
Research  center  for  the  example  problems  are: 


Total  Running  Time 
(minutes  : seconds) 

0:54 

4:23 

0:39 

1:24 

2:44 

2:47 

0:47 

THE.  TEST  BODY 

A special  asymmetric  test  body  was  designed  and  is  described  in  terms  of 
189  Hess-Smith  panels.  A listing  of  the  data  cards  for  the  body  follows  the 
PBOXC  card  input  below,  and  Fig.  8 shows  computer  plots  of  the  body. 

The  structure  of  the  body  is  as  follows: 

1.  The  more  pointed  end,  which  faces  the  free  stream  flow,  is 

half  of  a prolate  ellipsoid 


Code 

PBOXC 

BOXC 

FLOPNT 

ARYTRJ 

CONFAC 

TANTRA 

STEREO 


x1 2 

9 


+ 


+ z2 


1;  -3  < x < 0. 


60 


Figure  8.  Asymmetric  test  problem  body. 
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2.  The  central  section  is  a cylinder 


+ z2  = 1 ; 0 < x < 1. 

3.  The  blunt  end  is  half  of  an  oblate  ellipsoid 

(x  - l)2  + + z2  = 1 ; 1 < x < 2. 

4.  The  body  is  truncated  by  the  plane 

y - 2z  = 2. 
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EXAMPLE  PROBLEM/CARD  INPUT  AND  PRINTOUT 
PBOXC 


Card 


★ 

Card  numbers  are  the  same  as  those  given  in  the  code  description  section. 


Numbers  punched  in  columns  35-36  and  45-46  correspond  to  the  m and  n designations 
used  to  organize  the  data.  They  are  not  read  by  the  computer.  (See  pp.  16  ff.) 


Test  Problem  Data  Cards 


Columns: 

10 

20 

30 

32 

1 

1 

i 

i 

2.0 

2 

1 

2.0 

1 

2.0 

1 

2.0 

1 

2.0 

1 

2.0 

1 

2.0 

1 

2.0 

1 

2.0 

1 

2.0 

1 

2.0 

1 

2.0 

1 

2.0 

i 

2.0 

1 

2.0 

1 

2.0 

1 

2.0 

1 

2.0 

1 

2.0 

1 

2.0 

1 

2.0 

1 

2.0 

1 

2.3 

1 

2.0 

1 

1.5 

1.7320 

0.0 

1 

2 

1.5 

1.67 

0.2297 

2 

1.5 

1.46 

0.4659 

2 

1.5 

1.14 

0.6520 

2 

1.5 

1.8 

0.7681 

2 

1.5 

0.4 

0.8426 

2 

1.5 

C.O 

0.3660 

2 

1.5 

-0.4 

0.3 

2 

1.5 

-0.8 

0.6 

2 

1.5 

-1.2 

0 .4 

2 

1.5 

-1.6 

0.2 

2 

1.5 

-1.7320 

0.0 

2 

1.5 

-1.67 

-0.2297 

2 

1.5 

-1.46 

-0.4659 

2 

1.5 

-1.14 

-0.6520 

2 

1.5 

-0.8 

-C.7681 

2 

1*5 

-0.4 

-0.6426 

2 

1.5 

0.0 

-0.3660 

2 

1.5 

0.4 

-0.8426 

2 

1.5 

0.8 

- 0.7681 

2 

1.5 

1.14 

-0.6520 

2 

1.5 

1.46 

-0.4659 

2 

1.5 

1.67 

-0.2297 

2 

1.5 

1.732C 

0.3 

2 

1.0 

2.0 

0.0 

1 

2 

1.0 

1.87 

0.3546 

3 

1.0 

1.6 

0.6 

3 

1.0 

1.2 

0.8 

3 

1.0 

0.3 

0.9165 

3 

1.0 

0.4 

0.9798 

3 

1.0 

3.3 

1.0 

3 

1.0 

-0.4 

0.8 

3 

1 

SHBO 

1 

2 

SMBO 

2 

3 

SMB  C 

3 

4 

SMBG 

4 

5 

SMBO 

5 

6 

SMBG 

6 

7 

SMB  C 

7 

8 

SMBO 

8 

9 

SMBO 

9 

10 

SMBG 

10 

11 

SMBO 

11 

12 

SMBO 

12 

13 

SMBO 

13 

14 

SMBG 

14 

15 

SMBG 

15 

16 

SMBG 

16 

17 

SMBG 

17 

18 

SMBO 

16 

19 

SMBO 

19 

20 

SMB  C 

20 

21 

SMBO 

21 

22 

SMBO 

22 

23 

SMBO 

23 

24 

SMBO 

24 

1 

SMBG 

25 

2 

SMBO 

26 

3 

SMBG 

27 

4 

SMBG 

28 

5 

SMBG 

29 

6 

SMBO 

30 

7 

SMBO 

31 

8 

SMBO 

32 

9 

SMBG 

33 

10 

SMB  C 

34 

11 

SMBO 

35 

12 

SMBO 

36 

13 

SMBO 

37 

14 

SMBG 

38 

15 

SMBO 

39 

16 

SMBO 

40 

17 

SMBO 

41 

18 

SMBO 

42 

19 

SMB  C 

43 

20 

SMBO 

44 

21 

SMBG 

45 

22 

SMBO 

46 

23 

SMBG 

47 

24 

SMBO 

46 

1 

SMBG 

49 

2 

SMBO 

50 

3 

SMB  C 

51 

4 

SMBG 

52 

5 

SMB  C 

53 

6 

SMBG 

54 

7 

SMBO 

55 

8 

SMBO 

56 

64 


1.0 

-0.8 

0.6 

3 

9 

SMBC 

57 

1.0 

-1.2 

0.4 

3 

13 

SMB  0 

5$ 

1.0 

-1.6 

0.2 

3 

11 

SMBC 

59 

1*0 

-2.0 

0.0 

3 

12 

SMB  C 

60 

1.0 

-1.87 

-0.3546 

3 

13 

SMBC 

61 

1.0 

-1.6 

—0.6 

3 

14 

SMBO 

62 

1.0 

-1.2 

-0.8 

3 

15 

S ►B  0 

63 

1.0 

-0.8 

-0.9165 

3 

1 

SMBO 

64 

1.0 

-0.4 

-0.9798 

3 

1 

SMBD 

65 

l.C 

0.0 

-1.0 

3 

18 

SMBO 

66 

1.0 

0.4 

-0.9798 

3 

19 

SMBD 

67 

1.0 

0.8 

-0.9165 

3 

20 

SMBC 

68 

1.0 

1.2 

-0.8 

3 

21 

SMBD 

69 

1.0 

1.6 

-0.6 

3 

22 

SMBO 

70 

1.0 

1.87 

-0.3546 

3 

23 

SMBC 

71 

1.0 

2.0 

0.0 

3 

24 

SMBC 

72 

0.0 

2.0 

0 .0 

1 

8 

1 

SMBC 

73 

0.0 

1.87 

0.3546 

8 

2 

SMBD 

74 

0.0 

1.6 

0.6 

8 

3 

SMBC 

75 

0.0 

1.2 

0.8 

8 

4 

SMBO 

76 

0.0 

0.8 

0.9165 

8 

5 

SMBO 

77 

0.0 

0.4 

0.9798 

6 

6 

SMBC 

76 

0.0 

0.3 

1.0 

8 

7 

SMBO 

79 

0.0 

-0.4 

0.8 

8 

8 

SMBO 

80 

0.0 

-0.8 

0.6 

8 

9 

SMBO 

81 

0.0 

-1.2 

0.4 

8 

ID 

SMBD 

82 

0.0 

-1.6 

0.2 

8 

11 

SMBD 

83 

0.0 

-2.3 

0.0 

8 

12 

SMBO 

84 

0.0 

-1.37 

-0.3546 

8 

13 

SMBC 

85 

0.0 

-1.6 

-0.6 

8 

14 

SMBC 

86 

0.0 

-1.2 

-0.8 

8 

15 

SMBD 

87 

0.0 

-0.8 

-0.9165 

8 

16 

SMBO 

88 

0.0 

-0.4 

-0.9798 

8 

17 

SMBO 

89 

0.0 

0.0 

-1.0 

8 

18 

SMBC 

90 

0.Q 

0.4 

-0.9798 

8 

19 

SMBO 

91 

0.0 

0.8 

-0.9165 

8 

20 

SMBO 

92 

0.0 

1.2 

-0  .8 

8 

21 

SMBO 

93 

0.0 

1.6 

-0.6 

6 

22 

SMBC 

94 

0.0 

1.87 

-0.3546 

8 

23 

SMBC 

95 

0.0 

2.0 

0.0 

8 

24 

SMBC 

96 

0.5 

1.9720 

0.0 

1 

9 

1 

SMBO 

97 

0.5 

1.85 

0.3415 

o 

2 

SMBD 

98 

0.5 

1.585 

0.5866 

9 

3 

SMBC 

99 

0.5 

1.195 

0.7844 

9 

4 

SMBD 

100 

0.5 

0.8 

0.9012 

9 

5 

SMBC 

101 

0.5 

0.4 

0.9655 

9 

6 

SMBO 

10  2 

0.5 

O.C 

0.9868 

9 

7 

SMBC 

103 

0.5 

-0.4 

0.8 

9 

a 

SMBO 

104 

0.5 

-0.8 

0.6 

9 

9 

SMBO 

10  5 

0.5 

-1.2 

0.4 

9 

10 

SMBC 

10  6 

0.5 

-1.6 

0.2 

9 

11 

SMBO 

10  7 

0.5 

-1.9720 

0.0 

9 

12 

SMBC 

10  8 

0.5 

-1.85 

-0.3415 

9 

13 

SMBO 

109 

0.5 

-1.585 

— 0 . 58  66 

9 

14 

SMBO 

110 

0.5 

-1.195 

-0.7844 

9 

15 

SMBC 

111 

0.5 

-0.8 

-0.9012 

9 

16 

SMBO 

112 

65 


-0.5 

-0.4 

-0.9655 

9 

-0.5 

0.0 

-0.9360 

o 

-0.5 

0.4 

-0.9655 

Q 

-0.5 

0.3 

-0.9012 

9 

-0.5 

1.195 

-0.7844 

9 

-0.5 

1.585 

-0.5866 

9 

-0.5 

1.35 

-0.3415 

9 

-0.5 

1.9720 

0.0 

9 

-1.0 

1.8856 

0.0 

1 

10 

-1.0 

1.785 

0.3039 

10 

-1.0 

1.54 

0.5440 

10 

-1.0 

1.  175 

0.7374 

10 

-1.0 

0.8 

0.8538 

10 

-1.0 

0.4 

0. 9214 

10 

-1.0 

0.0 

0.9428 

10 

-1.0 

-0.4 

0.6 

10 

-1.0 

-0.8 

0.6 

10 

-1.0 

-1.2 

0.4 

10 

-1.0 

-1.6 

0.2 

10 

-1.0 

-1.3856 

0.0 

10 

-1.0 

-1.785 

-0.3039 

10 

-l.C 

-1.54 

-0.5440 

10 

-1.0 

-1.175 

-0.7374 

10 

-1.0 

-0.3 

-0.8538 

10 

-1.0 

-0.4 

-0.9214 

10 

-1.0 

0.0 

-0.9428 

10 

-1.0 

0.4 

-0.9214 

10 

-1.0 

0.8 

-0.8536 

10 

-1.0 

1.175 

-0.7374 

10 

-1.0 

1.54 

-0.5440 

10 

-1.0 

1.785 

-0.3339 

10 

-1.0 

1.8856 

0.0 

10 

-1.5 

1.7320 

0.0 

1 

11 

-1.5 

1.67 

0.2297 

11 

-1.5 

1.46 

0.4659 

11 

-1.5 

1.14 

0.6520 

11 

-1.5 

0.3 

0.7681 

11 

-1.5 

0.4 

0.8426 

11 

-1.5 

0.0 

0.8660 

11 

-1.5 

-0.4 

0.8 

11 

-1.5 

-0.8 

0.6 

11 

-1.5 

-1.2 

0.4 

11 

-1.5 

-1.6 

0.2 

11 

-1.5 

-1.7320 

0.0 

11 

-1.5 

-1.67 

-0.2297 

11 

-1.5 

-1.46 

-0.4659 

11 

-1.5 

-1.14 

-0.6520 

11 

-1.5 

-0.8 

-0.7681 

11 

-1.5 

- 0.4 

-0.6426 

11 

-1.5 

0.0 

-0.6660 

11 

-1.5 

0.4 

-0.8426 

11 

-1.5 

0.3 

-0.7681 

11 

-1.5 

1.14 

-0.6520 

11 

-1.5 

1.46 

-0.4659 

11 

-1.5 

1.67 

-0.2297 

11 

-1.5 

1.7320 

0.0 

11 

17 

SMB  C 

113 

18 

SMBD 

114 

19 

SMB  C 

115 

20 

SMBO 

116 

21 

SMB  C 

117 

22 

SMB  C 

118 

23 

SMBD 

119 

24 

SMB  C 

120 

1 

SMBO 

121 

2 

SMB  C 

122 

3 

SMBO 

123 

4 

SMS  C 

124 

5 

SMBD 

125 

6 

SMBO 

126 

7 

SMBO 

127 

6 

SM8C 

128 

9 

SMBO 

129 

10 

SMB  C 

130 

11 

SMBD 

131 

12 

SMBO 

132 

L 3 

SMBO 

133 

14 

SM3C 

134 

15 

SMB  C 

135 

16 

SMBO 

136 

17 

SMBD 

137 

18 

SMBO 

138 

19 

SMB  C 

139 

20 

SMBD 

1 4 g 

21 

SMB  C 

141 

22 

SMB  C 

142 

23 

SMBD 

143 

24 

SMBO 

144 

1 

SMB  C 

1^5 

2 

SMB  C 

146 

3 

SMBO 

147 

4 

SMB  C 

146 

5 

SMBO 

149 

6 

SMBO 

150 

7 

SMBO 

151 

8 

SM8D 

15  2 

9 

SMBO 

153 

10 

SMBD 

154 

11 

SMB  C 

155 

12 

SM90 

156 

13 

SMBD 

157 

14 

SMBO 

156 

15 

SMB  C 

159 

16 

SMBO 

160 

17 

SMB  C 

161 

13 

SMBD 

162 

19 

SMBD 

163 

23 

SMBD 

164 

21 

SMBD 

165 

22 

SMBO 

166 

23 

SMBD 

167 

24 

SMBO 

168 

66 


2.3 

1.4907 

0.0 

1 

12 

1 

SMBO 

169 

2.0 

1.465 

0.1378 

12 

2 

SMB  C 

170 

2.0 

1.322 

0.3444 

12 

3 

SMB  G 

171 

2.0 

1.072 

0.5179 

12 

4 

SMB  D 

172 

2.0 

0.  8 

0.6289 

12 

5 

SMB  C 

173 

2.0 

0.4 

0.7180 

12 

6 

SMB  C 

174 

2.0 

0.0 

0.7454 

12 

7 

SMBO 

175 

2.0 

-C.4 

0.7180 

12 

8 

SMBD 

176 

2.0 

-0.3 

Q . 6 

12 

9 

SMB  D 

177 

2.C 

-1.2 

0.4 

12 

10 

SMB  C 

178 

2.0 

-1.4 

0.2560 

12 

11 

SMBD 

179 

2.0 

-1.4907 

0.0 

12 

12 

SMBD 

18  0 

2.0 

-1.465 

-0  .1378 

12 

13 

SMBD 

181 

2.0 

-1.322 

-0.3444 

12 

14 

SMB  C 

182 

2 • C 

-1.072 

-0.5179 

12 

15 

SMBO 

183 

2.0 

-0.8 

-0.6289 

12 

16 

SMB  C 

18  4 

2.0 

-0.4 

-0.7180 

12 

17 

SMBD 

185 

2.0 

0.0 

-0.7454 

12 

18 

SMBD 

166 

2.0 

0.4 
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Figure  9. 


Stereographic  plot  of  the  tangent 
body  in  the  y = 0 plane.  Plotted 
can  be  attained  by  staring  at  the 
merge. 


trajectory  of  a 200  pm  diameter  water  drop  to  the  lower  side  of  the  test 
from  the  results  of  the  TANTRA  test  problem.  Three-dimensional  perspective 
center  of  the  figure  and  then  crossing  the  eyes  such  that  the  two  images 
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2. oooouo 

1*500360 

1*90000  0 

.958386 

0. 000000 

C. CO 00 00 

1.732000 

1.670000 

.27658* 

0.000000 

0.00 3000 

0.300000 

-.2297C0 

-.074655 

1 

1.5 0000 0 

1. 50  COCO 

1.000000 

1.000000 

.435365 

1.732000 

1.670000 

1.870000 

2. OOCOOO 

•655263 

f . 0 10000 

.229700 

.354603 

3.000000 

.261338 
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NPX 

NPY 

NPZ 

1.  59  8349 
-1.254020 
-.262927 

1.  6(1  5x13  ; 
-1.019539  \ 
-.  445612'* 

1.60  9275 
-.750320 
-.  55  7494 

1 

1.  620269  = 
-.447901  1 
-. 61 3061 

1 . 62  43 11  ] 
-. 147089 
-. 641222 

1.  62  4811 
. 1470  69  i 
-.641222 

1.620  269 
.447941 
-.6130  81 

1.60  9275 
.750320 
-.557494 

1.  60  5113 
1.019539 
-.‘♦45612 

1.  59  8349 
1.  25  40  20 
-.26  2927 

1.  591395 
1.389794 
-. 39*399 

1. 22  & 560 
1.831729  1 
• 149900  ; 
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t 

X 

NX 

NPX 

0 

V 

NY 

NPY 

T 

F 

z 

NZ 

NPZ 

A 

BOO 

1. 503000 

.941794 

1.  596349 

. 8682 E- 15 

ioo 

•1. 670000 

-.251249 

-1.25  4320 

•17586*01 

poo 

-.229700 

-.223380 

-.  282927 

•2350E+UO 

10  0 

1. 500000 

• .915363 

1.  60  5113 

• 2665E- 14 

ioo 

-1.  46000 0 

-.232414 

-1.  019539 

.16125*01 

100 

-.465900 

-.348052 

-.  445612 

.2299E+00 

ioo 

1. 500000 

.891771 

1.609275 

• 2665E- 14 

ioo 

-1.  140000 

-.146221 

-.753320 

•14356+01 

loo 

-.652000 

-.428  213 

-.  55  7494 

•1985E+00 

ICO 

1. 500000 

.874522 

1.  6202  69 

* 99S2E-15 

ioo 

-.830000 

-.088802 

-.447901 

•1217E+01 

50  3 

-.768100 

-.476787 

-.613061 

.20976*00 

BOO 

1. 500000 

. 865649 

1. 62  4811 

. 22 20 E- 15 

BOO 

-.400000 

-.029238 

-.147089 

. 10  5 8 ■£♦  3 1 

BOO 

-.842600 

-.499797 

• -.  641222 

. 20  G1E+00 

BOO 

1.500000 

.865649 

1.  62  48  11 

. 2220E- 15 

Buu 

0.000000 

.029236 

. 1470  69 

• 10  5 6 E+ 01 

00  0 

-. 666300 

-.499797 

-.641222 

• 20016*00 

BOO 

1.  500 OC  0 

.874522 

1.  620  269 

•9992E-15 

BOO 

• 40G0C0 

.068602 

.447931 

•12176*01 

LOO 

-. 642600 

-.476787 

-.613081 

• 20  976+00 

BOO 

1. 530000 

.091771 

1.609275 

.26656-14 

BOO 

• BOO  COO 

•1*6221 

. 750320 

.1*056+01 

BOO 

-.768100 

-.426  210 

-.55749* 

• 19  656*00 

BOO 

1. 5CC0C0 

.915363 

1.  60  5113 

. 2 6 6 5 E- 1 4 

BOO 

1. IhCDOO 

• 23  241* 

1.019539 

.16 1 2E+C 1 

90  0 

-. 652300 

-.3*8052 

-•*45612 

.22996*00 

Boo 

1. 500000 

.941794 

1.  59  6349 

.88826-15 

BCD 

1. 46UQCQ 

.251249 

1.  25  40  20 

• 1758  £+01 

70  0 

-.465900 

-.223  38  u 

-.26  2927 

•23506*00 

BOO 

1.500000 

• 958386 

1.  591395 

0. 

Boo 

1.670060 

• 27658* 

1.369794 

.18036+01 

Boo 

[ . 

-.229700 

-.074655 

-. 39*899 

• 20766*80 

boo 

1.030  QUO 

•435365 

1.220  560 

.57646-02 

BOO 

2. 000300 

•655263 

1.831729 

• 6416E+C0 

|0  3 

3.030300 

•261338 

• 14  9900 

.17886*00 
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Pi 

BOOY  ID 

• TEST 

TEST 

BODY 

N M 

X 

X 

X 

X 

NX 

NPX 

Y 

Y 

Y 

V 

NY 

NP  Y I 

Z 

Z 

2 

z 

NZ 

N»Z  | 

2 2 

1*5  39  99  0 

1. 5C009G 

l.OOOOuO 

1.093000 

•390089 

1.  2417 

1.673030 

1.460000 

1.600000 

1.670OUO 

• 652 17  u 

1.  65  21 

.229700 

•465900 

•630000 

•354600 

•650604 

» 41 46 

3 

1.500000 

1.500000 

1.000000 

1.006000 

.324553 

1.2416! 

1.46000  0 

1.140000 

1.2339U0 

1. 600000 

• 44700  6 

1.3516 

.465900 

• 652000 

•600900 

•690030 

.833577 

• 6310j 

4 

1.500 03 C 

1.500030 

l.OOwOOO 

1.UUOOOO 

•268309 

1.2429! 

1.140000 

.800:000 

•800000 

1.  206  OCO 

.287154 

• 9857? 

.652000 

.76  8100 

•916500 

•806030 

• 913561 

. 78  61 

5 

1.503000 

1 • 500  COO 

1.000360 

1.  090000 

.270929 

1.  25  01 

.300000 

.400000 

•400000 

.630600 

• 163  401 

• ecooi 

•763100 

.642600 

.979800 

.916500 

.948629 

• 87  66: 

5 

1.503030 

1. 500000 

1. 300000 

1. 630000 

.261384 

1.  25  od 

.400030 

0.09000  tl 

0.0(10000 

. 4960C0 

.052527 

• 20  30 

.342600 

. 6 6 6 C 0 0 

1.000000 

. 979600 

.963805 

.9220' 

7 

1.500030 

1.500030 

1.300000 

l.OuCCOO 

. 126 140 

1.2463' 

cn 

0.003000 

-. 402000 

-.400000 

0.606000 

-.312996 

-.15951 

•866030 

.38X000 

• 600000 

1.000080 

•941341 

.36711 

3 

1.530000 

1.500000 

1.000000 

1.030000 

0.003000 

1.  25001 

-.400020 

-.30  0030 

— . 8 0 fl  00  0 

-.400000 

-.407214 

-.60001 

.303030 

.600000 

.600000 

•696360 

.694027 

• 70  001 

9 

1.53D000 

1.500008 

l.OOOOuO 

1.830960 

0 .006600 

1.  25001 

-.$00010 

-1.200000 

- 1.200900 

-.800000 

-.447214 

-1.  00001 

. 6^0  3 8 

.400C0C 

• 4 U0  3C 0 

• 6 9u OCO 

.694427 

. 50001 

10 

1.500030 

1.  500000 

1*000004 

1.030600 

0.000300 

1.  25001 

-1.200 COO 

-1.  600000: 

-1.600000 

-1. 200000 

-.447214 

-1.40  001 

. 40000 0 

.200000 

.200000 

•406000 

.894427 

. 30  0 01 

11 

1 .500000 

1.500000 

1.000000 

1.030000 

•159306 

1.21671 

-1.603000 

-1. 732000 

-2.00990  0 

-1.  60600  0 

-.59331 5 

-1.  7392: 

• 203C0C 

0.  00  0 000 

0.003000 

.203000 

.789109 

.10  20: 

12 

1.500008 

1.580000 

l.ouoaco 

1.63600  0 

.435365 

i.  22  05! 

-1.732000 

+1.670  COO 

-1.870000 

-2. 600000 

-.855263 

-1.6317; 

0.030000 

-.229700 

-.354600 

3.330300 

-.261336 

-.14991 

13 

1.500090 

1.500000 

1.00Q0C3 

1.608000 

.390089 

1.2417: 

-1.670090 

-1.46  CO  00 

*U  600000 

-1.870000 

-.652178 

-1.  65 28i 

-.229700 

-.465900 

-.600000 

-.354600 

-.650004 

-•  4146: 
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NX 

NPX 

□ 

NY 

NPY 

T 

NZ 

N3  Z 

A 

.390089 

1. 241719 

• 82  8 8E- 02 

. 65217u 

1.  652830 

•6561E+00 

• 650404 

• 41 46d0 

•1846E+00 

.324553 

1. 241650 

. 6043 E- 02 

.44700  6 

1.351646 

• 6814E+C0 

.833577 

• 63  i8  51 

• 21 59E*  CO 

.268009 

1.242990 

. 4216E-02 

. 267154 

. 985715 

• 66COE4-00 

.913561 

• 78  6135 

• 20  25E4-00 

.270  9 29 

1.  250160 

•2656E-C2 

.163  401 

• 60  0 0 88 

• 6744E+00 

.948625 

• 876663 

• 21 1 8E*-  CO 

.261384 

1.25  Cal  7 

.77 10E- 63 

.052527 

• 20  00  26 

•65S4E*G0 

.963805 

. 922094 

.20  75E+00 

. 126140 

1.246098 

•3153E-01 

- . 312996 

-.  159566 

• 67  18E+0I) 

.941341 

. 667167 

• 2125E«-0D 

0.0  00  00  0 

1.  25  00  00 

•3553E-14 

-.447214 

-.500000 

. 6706E+00 

.694427 

• 70  UuLU 

• 223  6 E+  0 0 

0 .0001)00 

1. 250040 

• 3553E- 14 

-.447214 

-1.  00  0000 

.67C8E+00 

.894427 

. 50  0 0 0 U 

• 2236E+00 

0.000000 

1.  25 0 0 CO 

. 66  61E-14 

-.447214 

-1.  40  0000 

• 67  C6E+4Q 

. 89442  7 

• 3D  0000 

• 2236E+BC 

•159003 

1.216789 

.3975E-01 

-.59331  5 

-1.739216 

• 67  48 E + CO 

.769109 

. 10  2018 

•1665E+00 

.435365 

1.  22  0 5 60 

. 5764E-02 

-.855263 

-1.831729 

•6416E+00 

— • 2610  38 

-• 14990u 

•17C8E+00 

.390089 

1.241719 

•8288E-02 

-.652170 

-1.  65  2830 

• 6561E+00 

- .65000  4 

-.414660 

•1846E+C0 
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TEST  BOOY 


N M 


2 14 


3 1 


1.523000 

1.460090 

-.465900 

1. 500000 
-1. 140000 
-.652000 

1.  000 Oli 0 

-1.  200009 
-.800000 

i.  ooo;ooo 
-1.  600  00  0 
-.600000 

• 324553 
-.447906 
-.63*577 

‘ 'i.  2416  30 
-1. 351646 
-.6316  51 

1.500009 

1.140000 

-.652000 

1.500000 

-.600000 

-.768100 

1.009000 
-. 800000 
-.916500 

l.OOOuCO 

-1.290000 

-.800000 

.286099 

-.267154 

-.913561 

1.242990 

-.985715 

-.786135 

1.500000 

-.809090 

-.768100 

1.500000 

-.400000 

-.842600 

l.OOOQCO 
-.40000  0 
-.979800 

1.000009 

-.630000 

-.916500 

.270929 

-.163401 

-.948629 

1.  250160 
-.608066 
-. 876683 

1 . 5 G 0 0 0 0 
-.400000 
-.342600 

1. 503000 
0.000900 
-.866000 

1.300000 

0.000900 

-1.000900 

1.000000 
-. 403uG  0 
-.979800 

•261384 

-.052527 

-.963805 

1. 250017 
-.200026 
-. 922094 

1 .50000 C 
0.000000 
-.866000 

1.500000 
• 40  C 0 0 0 
- • 842600 

1.000008 
•400090 
“••97930  9 

1.090000 
0. 000000 
-1.000000 

•261384 

.052527 

-.963605 

1.  250017 
• 200026 
-. 922094 

1.500033 

•403000 

-.342600 

1. 509000 
•883900 
-.766100 

1.000000 

.800003 

4.916500 

1.0JCGCQ 
• 490  00  0 
-.979800 

.270929 

•163401 

-.948629 

1.250180 

.680086 

-.876663 

1.503000 

.300000 

-.768100 

1* 50P0Q0 
1.140000 
-.65  2000 

1. 900933 
1.200000 
-.800000 

1.999990 

.600000 

-.916500 

.288009 

.287154 

-.913561 

1.  242990 
. 985715 
-.78  6135 

1.500000 
1. 140000 
-.652000 

1. 500900 
1.460000 
-.46  5900 

1.  000  00  0 
1.600300 
-.600000 

1.08*000 
1. 200090 
-.800000 

.324553 

.447306 

-.833577 

1.  2416  30 
1. 351646 
-.631651 

1.500000 

1.463000 

-.465900 

1.500000 

1.670000 

-.229700 

1.  0 0000  0 
1.873003 
-.354690 

1. 800000 
1.600000 
-.630000 

.390889 
i .6  52179 
-.65000 4 

1.241719 
1.  652630 
-.414680 

1.500000 

1.673000 

-.229700 

1.500000 
,1.732000 
0.  06  0 000 

1. 800900 
2.000000 

0.000009 

1.800600 

1.670000 

-*354600 

.435365 

.855263 

-.261036 

| 1.22  0 560 
1.631729 
! -.  149900 

I 

1.000000 
2.  00-1030 
0.900000 

1.800000 

1.870000 

.354600 

0.000000 

1.870009 

•354600 

0.230000 

2.900900 

3.000000 

01 G GO  00 U 
•936693 
•344206 

. 500080 
1.  93  5000 
. 17  7300 

1. 009000 
1.870000 
.354600 

l.thlOOOG 
1.600  000 
•600000 

0. 000000 
1.600000 
•609000 

0.000000 

1.670000 

•354600 

O.OGGGOU 

.672591 

.740014 

. 500080 
1.  735080 
.477300 
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X 

NX 

NPX 

0 

Y 

NY 

NPY 

T 

Z 

NZ 

NPZ 

A 

1.  0)0  O'CO  0 

.324553 

' 'i.  2^  16  30'” 

'.6r0V3E-C’r 

1.  6)3000  0 

-.447006 

-1. 351646 

•6814E+00 

-•  6100  30  0 

-.633577 

-.6316  51 

•2159E+00 

l.OiOGuCO 

• 286U09 

1.242990 

• 4216E-22 

l.ZUQOQO 

-.287154 

-.98  5715 

. 6600E+00 

-.830000 

-.913561 

-.786135 

.2025E+60 

1.0QQ0Q0 

•270929 

1.250180 

•2656 E- 02 

-.8 JCOCQ 

-.163  401 

-.606066 

. 6744E+uO 

-.916,500 

-.948629 

-.876683 

. 21 C6E+80 

i.tioooao 

.261384 

1.250017 

. 77 10  E-  0 3 

-•400u00 

-.052527 

-.200026 

• 6594E+  CO 

-.979800 

-.963805 

-.  922094 

•20 75E>C0 

1.030000 

•261384 

1.  250017 

•7710E-03 

0.  0 00000 

.052527 

• 20  0 0 26 

• 6594E+  6 0 

1. CO  0000 

-.963605 

-. 922094 

.20 75E+Q0 

1.6JG0CQ 

« 270  92  9 

1.  25  0180 

• 2656E- B 2 

.430000 

.163401 

• 60  Q 0 88 

. E744E+  00 

-.$79eOO 

-.948629 

— • 87  6663 

. 2,1 06  £♦  60 

i.iiouuoo 

•288009 

1.  242990 

•4216E-02 

.830000 

.287154 

. 985715 

• 666  0 E+CO 

-.416500 

-.913561 

-.78  6135 

•20 25E+60 

l.CQuOOO 

.324553 

1.  241630 

•6043E- 02 

1. £00009 

. 4470  0 6 

1. 351646 

• 6S14E+6C 

-.8  00  00  0 

-.833577 

-.631851 

. 2159E+00 

1.  030000 

! .350089 

1.241719 

• 8 28 8 E- 02 

1.600000 

i .652170 

1.  652830 

.65 61 E+ 00 

*•630000 

>.65800  4 

-.414660 

j .164  6E+  GO 

1.  000  00  0 

i 

.435365 

1.220560 

•5764E-C2 

1.670  00  0 

.855263 

1. 831729 

•6416E+  00 

-.35(4600 

-.261038 

-.  149900 

•1708E+60 

O.OOCOCQ 

0.0 00 00 u 

• 500060 

0. 

2.000000 

.938893 

1.  935000 

•1069E+01 

3.000000 

.344208 

• 17  73  CO 

•3777E+60 

0.000000 

0.0CC60U 

.500360 

. 4885E- 14 

1.870000 

.672591 

1.  735060 

• 10  64E+0 1 

.354600 

.740014 

.477300 

.3649E+00 
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TEST 

800Y 

1 

M 

X 

X 

X 

X 

NX 

NPX 

V 

Y 

Y 

Y 

NY 

NPY 

z 

Z 

Z 

Z 

NZ 

NP  Z 

3 

1.000G09 

1. 000008 

0.003388 

0.839000 

0.000009 

. 50  u 0 00  \ 

1.600000 

1.203800 

1.200000 

1.600  08  0 

• 44721 h 

1.400000 ' 

.600000 

.800000 

•600900 

•609000 

.894427 

•700000 

4 

1.000000 

1. 008000 

0.038008 

u. 000080 

0.000003 

• 508000  1 

1*200000 

•800000 

• 880000 

1. 200000 

.279631 

1.  000080  ] 

.800000 

.916  589 

.916500 

• 8 08000 

.968107 

. 8582  50  | 

5 

1*  00003  0 

1. 00 0090 

0.900000 

0.000000 

.0*900000 

. 50  0000 

•800000 

•400000 

•400380 

•6G0QQ9 

.156305 

• 600980 

.9165 00 

.979800 

•979800 

•916500 

.987739 

• 948150  ; 

6 

1.030000 

1.800000 

C. 000080 

8.000000 

0.000G0Q 

.5C09G0 

.4100  00  0 

3. CCGOOO 

0.000900 

•498090 

.050436 

• 200000 

.979880 

1. 000000 

1.000300 

.979800 

.998727 

.96  99  00 

7 

1. 090000 

1.809008 

0.000900 

9.900980 

O.OOUOQC 

. 500080 

0.300000 

-.400000 

-.4  0030  0 

0. 9 30  00  C 

-.447214 

-.200030 

1.  00000  0 

. 680000 

•800000 

1.800080 

.894427 

. 90  0000 

8 

1.900000 

1. 800088 

0.  080000 

0 .090000 

0.008  000 

. 5080  GO 

-.430000 

-.8  0 3080 

-.80000  0 

-.400000 

-.447214 

— . 60  8(3  u Q 

•300000 

• 60  DC 00 

.600000 

• 800  OQ  0 

.894427 

•700900 

9 

1. 003000 

1. cocooo 

0.000900 

8. 800000 

0.00000  0 

.58  00  80 

-.800000 

-1. 208000 

-1.200000 

-.830000 

-.447214 

-1.  OCOOuO 

.600000 

• 40 QGOO 

.400000 

. 600000 

.894427 

. 500000 

10 

1.003000 

1.050091 

0. 00000  9 

0. 900900 

0.080  009 

.500000 

-1.200000 

-1. 60  C 000 

-1.600000 

-1. 200000 

-.447214 

-1.  40  9 080 

.403000 

• 209000 

• 200000 

. 418000 

.894427 

.300000 

11 

1.330000 

1.000008 

0.000300 

0. 080000 

0. GQU  80  8 

. 50 00 CO 

-1.60000  0 

-2. 000003 

-2.000000 

-1.633000 

-.447214 

-1.  8000  00 

,200000 

0.000000 

0.008000 

• 230000 

•1894427 

. 10  GO  08 

12 

1.003000 

1.  00  0 000 

0.000080 

9.008800 

fi  .00*9000 

• 50  0080 

-2.000000 

-1. 870000 

- 1.873000 

-2.  830000 

-.1938  89  3 

-1.  93  5 <3  w G 

0.093090 

-.354600 

-.354600 

0.830000 

-.344208 

-. 177300 

13 

1.390000 

1.003000 

0. 000000 

0. 030000 

0.080000 

. 50  0000 

- 1.,  37008  0 

-1.600300 

-1.600000 

-1.870000 

-.672591 

-1.  73  5000 

-.354600 

-.600000 

-.600389 

-.354600 

-.740014 

-.47739(1 

14 

1.300000 

1. 000000 

0.000080 

0.000000 

0.000000 

.5003  00 

-1.6 00  COO 

-1.200000 

-1.200080 

•1. 600000 

-.447214 

- 1 . 40  0 3 0 0 

-.603000 

-.800000 

-.300900 

-.600300 

-.894427 

-.  70  0009 

FOtOOUOr  fPA'* 


PAGE  6 


NX 

NY 

NZ 

0.000003 

i.44721*. 

1*894427 

a;*  0001203 

>279631 
i.  964 10  7 

0.  000000 
i*  15630  5 
.967739 

0*000000 

♦050436 

.958727 

0.G6UU00 

*1*447214 

.894427 

O.OGb QQO 
-.447214 
*894427 

0.000300 

-.447214 

.694427 

0.000  303 
-.447214 
.694427 

0.00000 4 
-.447214 
.894427 

0.000000 

-.938693 

-.344206 

0 .000  000 
-.672591 
-.740014 

0.000000 

-.447214 

-.694427 


NPX 

N?Y 

NPZ 

. 50  u 0 GO 
1.  400000 
.700000 

• 500000 

1.  000000 

.856250 

.500000 

•600000 

.948150 

•5C0U00 
•200000 
.96  99  00 

.500000 
-.200030 
. 90  0000 

. 50  0 0 CO 

-.  60  4 000 

.703000 

.500000 
-1.  QCOOuO 
. 500000 

.503000 

-1.4Cii0w0 

• 30  3030 

*500000 
-1.  80  00  00 
. 10  03  00 

•500000 
-1.  93  5300 
-•  177300 

• 500000 
-1.  73  5000 

-.477300 

•500000 
-1.  40  0300 
-. 70  3000 


G 

T 

A 

•6661E-14 

• 10  95E+G1 

• 44  72 E+ GO 

• 24t2F-l4 

• 106  32>01 
•4166E+00 

•2442E-14 

• 10  79  E+  01 

• 4C  5 OE  + GO 

. 5551E-16 
•1077E+U1 
•4005E+00 

.31 C9E-14 
.10S5E+01 
. 4472E+  00 

•3553E-14 

• 10  95E+G1 
•4472E+G0 

•3553E- 14 

• 1095E+-01 
•4472E+  00 

• 666  IE-14 

• 10  95E+  01 

• 44  7 2 E* 00 

.4441E-15 
.10  95E+Q1 
•4472E+C0 

G . 

.10  69E+Q1 
•3777E+00 

• 486  5E-14 

• 10  64E+01 
.3649E+00 

• 66  6 IE-14 
. 10  55E  + G 1 
•4472E+CQ 


rm  om/r  fFM 


PROGRAM  PBOXC 
BODY  ID.  TEST 


ATMOSFHERIC  SGIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


TEST  90CV 


M 

X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

Z 

2 

i.  z 

Z 

HZ 

15 

1. 033000 

1.000000 

0.0  03300 

0.690090 

0.000300 

-1.200030 

-.600000 

-.80030  3 

-1. 200000 

-.279631 

-.330030 

-.916500 

-.916500 

| 

-.830600 

-.960107 

16 

1.000000 

1. 000000 

0.000330 

0.000000 

0.009000 

-.500010 

-.40  0000 

-.430303 

-.800000 

-.156305 

-.916500 

-.979800 

-.979800 

-.9165C0 

-.987705 

17 

1.303000 

1.000030 

0.000300 

0.3900Q0 

0 *0100000 

-.401000 

0.00  0000 

0.000300 

-.400000 

- . 0 50  **36 

-.979830 

-1.800000 

-1.030300 

-.979800 

-.998727 

o> 

1. 000000 

1*060000 

0.000300 

0.03C0Q0 

0.000036 

*.033090 

.400030 

• 400300 

0.6  00000 

.056436 

-1.  00P000 

-.979800 

-.979800 

-1.000090 

-.998727 

19 

1.000000 

1.000000 

0.000000 

0.030000 

0.000303 

. 400000 

.860030 

• 800900 

• 400300 

.156305 

-.979800 

-.916500 

-.916500 

-.979800 

- .96770  9 

29 

1.009030 

1.  003000 

0. 003300 

*3.6  00000 

0 • 000  09  0 

.300000 

1. 200000 

1.200000 

.803000 

.279631 

-.916500 

-.800000 

-.800000 

-.916500 

-.960197 

21 

1.000000 

1.0G0C00 

0.060000 

0.600000 

0*000009 

1.230030 

1.663000 

1.600000 

1. 200000 

.447214 

-.800000 

-.600000 

-.600000 

-.630060 

-.894427 

22 

1.000090 

1.000000 

0.000000 

U. 000000 

0.060600 

* 

1.600000 

1.870000 

1.870900 

1. 600000 

.672  591 

— .60  0 GOO 

-.354600 

-.354600 

-• 630000 

-.740014 

23 

1#  000C0  G 

1.660000 

0.000900 

6.030860 

0.000000 

1.870000 

2.000000 

2.000000 

1.670000 

.938893 

-.354600 

0.C0GQ00 

0.000000 

-• 354600 

-.364206 

1 

0 • GOO  GO  0 

0.300000 

k.  5 00  00  0 

-.590000 

-.049532 

2. 000000 

1.870000 

1.850900 

1.972000 

.939127 

0.000000 

•354600 

.341500 

6.000000 

.339980 

j 

2 

0.000000 

0.000000 

-.500990 

-• 530QG8 

- . 043145 

1.870000 

1.600000 

1.565003 

1.  6 50000 

.675158 

.354630 

.660000 

•586600 

•341560 

.736411 

3 

0 .000 000 

O .000600 

-.500000 

-.500000 

-.034875 

1.600003 

1.200000 

1.195000 

1.585000 

.449471 

•603000 

.800000 

•784403 

•586600 

.892614 

PAGE 


NPX 

NPY 

NPZ 

• 50  0000 
-1.000000 
-.856250 

• 500000 
-.600000 
-. 948150 

• 500000 
-•20U060 
-.969900 

• 500000 

.200000 

-.589900 

.500000 

• 60  GO  0 0 
-.948150 

• 5000  CO 
1.  064000 
-4  856  250 

.500000 
1. 406000 
-.700000 

. 5C006Q 
1.  73  50  00 
-.47  730  0 

•500600 

1.935060 

-.177300 

— . 24  60  68 
1.923092 
,174052 

-.249477 
1.72  6269 
.470688 

-.249169 
1.39  5016 
. 69  2774 


rr 

r ! 


1 ASSOCIATES 
5HUSETTS 

PAGE 

7 

o 

[ X 

NX 

NPX 

0 

r r 

NY 

NPY 

T 

Z 

NZ 

NPZ 

A 

i.cocooo 

0.060000 

•500000 

2442E-14 

L. 200000 

-.279631 

-1. OOOOOO 

1063E+01 

■*•830000 

-.960107 

-.858250 

41 66E+GQ 

9.  000000 

0.009000 

4 506060 

j * 

2442E-14 

>•800000 

-.156305 

-.600000 

l • 

1079E+C1 

-.916500 

f 

-.98770  5 

-.948150 

i 

40  5CE+00 

! 

1.000000 

0. OOOOOO 

.506060 

.1 

5551E-16 

400000 

-.050436 

-.206600 

1077E+01 

■*.979800 

-.998727 

-.989900 

40  05E+00 

9.000000 

0.000006 

4 50  6000 

.35  5 3 E- 14 

9.000000 

.050436 

• 20 0 006 

1077E+01 

L.  oooooo 

F 

-.998727 

-.989906 

40  95E«*00 

9.000000 

0.600009 

• 500000 

2220E-14 

f .400000 

.156305 

• 600000 

10  79E  + 0 1 

-. 979800 

- .96770  9 

-.948150 

4056E+00 

I.  OOOOOO 

0.000006 

.500000 

3109E-14 

i .800000 

.279631 

U '*$  6000 

16  83E+  61 

-.916500 

-.960137 

-4856250 

4ieeE«-oo 

1.000000 

O.CCOOOO 

.500000 

6661E-14 

1.  20000  0 

.447214 

1.400000 

10S5E+01 

-»  6 30000 

-.894427 

-• 700000 

447  2E+00 

B. OOOOOO 

9.000600 

. 506000 

6217E-14 

1.600000 

.672591 

1.  73  50  00 

10  64E+61 

-.600000 

-.740014 

-.477300 

3649E*  00 

0.000000 

O.OCOOOO 

. 50  6000 

6217E-14 

1.870000 

.936893 

1.93  5060 

j •! 

1Q69E+01 

-.  354600 

-.344208 

-.177300 

■ . | 

3777E4-00 

-.  500000 

-.049532 

-. 246068 

7648E-03 

1.972000 

.939127 

1.  923092 

6238E4-00 

0.000000 

•339986 

.174052 

1853E+00 

-4500000 

-.043145 

-.249477 

78  87 E- 03 

1.650000 

.675156 

1.  72  62  69 

62C5E+60 

•341500 

.736411 

• 470688 

1816E«-00 

r. 500000 

-.034875 

-.24  9169 

6327E-C3 

1.585000 

.449471 

1.39  5016 

6693E+00 

• 58660  0 

.892614 

. 63  2774 

2213E+C0 

I 

I 

i 

PROGRAM  P3  0XC 

5 

80  OY  10.  TEST 


AT  K)S  FHERIC  SCIENCE  ASSOCIATES 
8E0F0R0,  MASSACHUSETTS 

TEST  600Y 


M 

X 

X 

X 

X 

NX 

NPX 

Y 

Y 

Y 

Y 

NY 

NPY 

Z 

Z 

Z 

Z 

NZ 

j NPZ 

4 

0. 900030 

G. 000000 

-.500003 

-• 50G000 

i-. 031043 

-.249537 

1.200000 

.800000 

• 8 00  000 

1.195000 

•281449 

1 .998756 

•800000 

•916500 

\ 

.98129 0 

•784400 

.959074 

j .850538 

! 

5 

0.000000 

oi.  009080 

-.500000 

-.500000 

• •029218 

-.250016 

•800090 

.400000 

.460000 

.690000 

.157442 

• 60  0 0 G 1 

.916500 

.97  9800 

• 965500 

•901200 

.987096 

j 

.940749 

6 

0. 000009 

0.009000 

-.500000 

4.50  000  0 

4.028252 

-.250302 

•409G00 

0. 009000 

0.000000 

• 400000 

.050785 

• 2D  00 GO 

.979800 

1.000000 

•906000 

.965500 

.998310 

.982825 

7 

0.300000 

0.008000 

-.5  9000  0 

-.500000 

-.012696 

-.249496 

0.000000 

-.400000 

-.400000 

0 . 00090  Q 

-.434526 

-.199997 

1.000000 

• 800000 

•800000 

•986000 

.908571 

• 89  6509 

3 

0.030000 

0.000080 

4.500000 

-.500000 

0.080000 

-•  25  00  GO 

-• 499009 

-.800000 

••800000 

-.400000 

-.447214 

-.600000 

.300000 

•600000 

•600000 

• 800000 

1 

.894427 

•708000 

9 

0. 900000 

9.000000 

-.500  000 

-.500080 

0.080000 

-.250000 

-.309900 

-1.200000 

- 1.200000 

-.600000  ; 

-.447214 

-1.000080 

.609000 

•403000 

•403000 

•600000 

.894427 

. 50  0900 

19 

0.009000 

0 .000000 

-.509000 

-.500300 

0.000003 

-.258080 

-1. 200090 

-1.600000 

- 1.600380 

1.  200000 

-.447214 

•1.400000 

.400000 

.20  0000 

.200300 

• 400800 

*894427 

•3GG3UG 

11 

0. 000009 

0.000000 

-.500000 

-.508000  ! 

-.012880 

-.247831 

-1. 600000 

-2. 000000 

- 3.972000  -: 

t. 600000 

-.460019 

•1.  #9  3015 

*200000 

G. 000000 

0.000008 

•200000 

.667820 

• ID  8 0 24 

12 

0.003000 

9.000000 

-.500390 

-.530000 

-.049532 

-.248068 

-2.000000 

-1.870000 

-1.850000  -; 

1.972000 

- .939127 

-1.92  3092 

0.300000 

-.354600 

-.341500  ,0.  900000 

-.339980 

-.17  40  52 

13 

0.300000 

0.000000 

-.500000 

-.500000 

(-.0  4314  5 

I-.  249477 

-1.870000 

-1.600000 

- 1.58530  0 

1.  850000 

4.675158 

-1.7262  69 

-.354600 

-.600000 

-.566680 

-. 341500 

•.736411 

-.  47  0688 

14 

9.309000 

0.000000 

-.509000 

-. 500000 

4.034875 

-.249169 

-1.609000 

-1.20  0000 

-1.195000 

1.  585000 

4.449471 

-1.  39  5016 

-.600000 

-.809000 

-.784400 

-.586600 

•.892614 

-.6927  74 

15 

0.903000 

0. 000000 

-.500000 

-•5QG300 

-.031043 

-.249537 

•1.203000 

-.600000 

-.8  00300 

1.195000 

-.281449 

-.998756 

-.300000 

-.916500 

-.901200 

-.784400 

-.959074 

-.850538 

Fotoouor  I 


PAGE 


8 


NX 

NY 

NZ 

•.031343 

.281449 

.959074 

-.029218 

.157442 

.^87096 

-.026252 

.050789 

.998310 

-.012608 

-.434526 

.900571 

0.000000 

-.447214 

.894427 

0.040000 

-.447214 

.894427 

0.0  GO  COO 
-.447214 
.894427 

-.012880 

-.460610 

. 867820 

-.049532 

-.939127 

-.339980 

-.043i45 

-.675158 

-.736411 

-.034875 
- » 449471 
-.892614 

-.051043 

-.281449 

-.959074 


NPX 

NPY 

NPZ 

-.249537 

.998756 

•850538 

-.250016 

.600061 

.940749 

-.259302 
' . 20  0000 
.982825 

-.249496 

-.199997 

.896509 

-.  250300 
-• 63  00  00 
•700000 

-.  250000 
-1.006060 
.500300 

-.256000 
-1. 40  0000 
•300000 

-.247831 
-1.  J9  3015 
’ . 10  oO  24 

-.2480  68 
-1.923092 
-.17  40  52 

-.249477 
r 1.726269 
-*470688 

-.249169 
-1.  395016 
-.692774 

-.249537 

-.998756 

-.850538 


0 

T 

A 

642376-03 
.65076*00 
. 20 726*00 

.24686- 03 
i.64  E1E+00 
.20266*30 

j 

.74876-04 

.64126*00 

•20036*00 

I 

.31526-02 

.67086*00 

.22216*00 

.35536-14 

.6708E+00 

•2236E+00 

| .35  536-14 
.67086*00 
. 223  6 E*  00 

1.66616-14 

.67086*00 
| .22366*00 

j ' 

.32206-02 
I .67086*00 
.2174E+C0 

•7648E-03 
.62386*00 
.18  536*00 

.78876-03 

.62056*00 

• 1816E*  00 

.63276-03 

.66936*00 

.2213E+00 

.42376-03 

• 65076*  CO 
.20726*00 


Pficnifp  fRAfr. 


PROGRAM  PBOXC 
BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
B EC FOR Of  MASSACHUSETTS 


PAGE 


TEST  BODY 


M 

X 

X 

X 

1 

X 

, NX 

NPX 

Y 

Y 

Y 

Y 

NY 

NPY 

Z 

2 

Z 

,,  Z 

NZ 

NPZ 

16 

0.000000 

0.000000 

-.5  00  000 

-.  500  00  0 

-.029218 

-.250016 

-.800000 

-.403000 

-.400000 

-.600600 

-.157  442 

-.600001 

-.916500 

-.979800 

-.965500 

-.901200 

-.967096 

f. 940749 

17 

O.OOOQC  0 

0.000000 

-.500000 

1 

-.539000 

-.928252 

-.250002 

-.400000 

&• 000000 

0.000000 

-.400000 

-.650789 

-.260000 

-.979800 

-1.000000 

-.986000 

-.965500 

-.998  310 

-.982825 

18 

0.030000 

0.000003 

’*'.5  00  00(7 

-.500000 

-.028252 

-.256002 

0.  000000 

• 400000 

i .40000  0 

6.000000 

•050789 

. 200000 

-1.000000 

-.979800 

-.965560 

-.986000 

-.998310 

-.98  2825 

19 

0.  000000 

0.000000 

-.5  00  060 

-.506000 

-.029218 

-. 25  uO 16 

.400000 

•800000 

•800000 

•409080 

.157442 

•600061 

-.979800 

-;'91£5tfQ 

-.901260 

-.96559  0 

-.987096 

-.940749 

20 

O.OOOCOC 

9.000000 

-.500000 

-.500000 

-.031043 

-. 249537 

*800000 

1.  20  GG  30 

1.195060 

.800000 

.281449 

.998756 

-.916500 

-.800000 

-.764400 

-.901200 

-.959074 

-• 850538 

21 

O.OOOCOO 

0.060000 

-.500000 

-.500000 

-.034675 

-.249169 

1.  200  00  3 

1. 600000 

1.585060 

1. 19  £000 

.449471 

1.  39  5016 

-.800000 

-.600000 

-.586500 

-. 784400 

-.692  614 

-.692774 

22 

0.  300000 

9. 06 U 000 

-.539000 

-.509000 

* . 04314  5 

-.249477 

1.600000 

1.670000 

1.850000 

1.585000 

.675158 

1.  72  62  69 

-.600000 

-.354600 

-.341500 

-. 586600 

-.736411 

• . 47  0 6 o 8 

23 

0.330000 

0.000000 

-.500000 

-.500000 

4.049532 

4.  2480  68 

1*870000 

2.060000 

1.972000 

1. 659000 

.939127 

11.92  3092 

-.354600 

3.000060 

0.600003 

-. 341500 

f. 339980 

j-.  17  4Q  52 

1 

-.500000 

-.500000 

-1.360000 

-1.  600  00  0 

4.153543 

-.743334 

1.972000 

1.850000 

1.785000 

1. 685600 

j .934141 

1.  37  4150 

0.  09(390  0 

.3415  00 

. 30390  U 

3.000000 

j .322188 

.161626 

2 

-.5GOOOO 

-.500000 

- :.  ooooiio 

-1.000090 

-.132740 

-.747309 

1.350000 

1.565  COO 

1.543000 

1. 785000 

.683173 

1.  690281 

.341500 

•586600 

. 544009 

• 303900 

•718091 

•444215 

3 

-.500  00  0 

-.500000 

-1.000003 

-1. GO  000  0 

-.106809 

-.17477  52 

1.585000 

1.1950G0 

1.175000 

1.540000 

.457325 

1.373892 

.586600 

.784400 

,737400 

• 544000 

.882618 

.663304 

4 

-.500000 

-.50  0005 

-1.303000 

-1.  006000 

-.095703 

-.747958 

1.195000 

.800000 

•800300 

1.  17  5000 

•286525 

•992572 

.784400 

•901200 

•653800 

•737400 

.952677 

. 819363 

Fotoour  tm* 


[associates 

iUSETTS 


f x 

NX 

; Y 

NY 

! Z 

NZ 

>500000 

j . j 

>029216 

ieocooo 

' j • < 

.157  442 

[901200 

\ • i 

.987096 

500000 

l-4 

>028252 

i <*00000 

-*0  50  789 

[96550  0 

-i996  310 

| 

50C000 

-4028252 

[00  COO  0 

4050789 

[96600  0 

- 4 998  310 

[500000 

- 4 0 2921 8 

400000 

• 

157442 

[96550  0 

-J 

987096 

500000 

j 

' * •! 

031043 

860000 

« 

281449 

901200 

-*959074 

PAGE 

9 

NPX 

C 

NPY 

T 

NPZ 

A 

-.250016 

•2468E- 03 

-.600001 

•164  S 1EH0 

-.940749 

• 20  2 6E+Q0 

-.250002 

•7487E-04 

-.200000 

.641 2E+  00 

-.98  2825 

*20C3E>00 

-*250002 

.74 87 E- 04 

. 20  0000 

• 6412E+00 

-4982825 

• 200  3E+CQ 

-• 25  u016 

•2468E- 03 

* 600001 

. 645  IE* 00 

-.940749 

• 20  26E+C0 

-4  249537 

• 42  3 7 E- 03 

*998756 

• 6507E+CO 

-4850538 

• 20  72E  + 00 

500000 

-.034875 

195000 

.449471 

7e4400 

-.892  614 

5000CO 

-.043145 

585000 

*675158 

586600 

-.736411 

500000 

-*049532 

85U0G0 

*939127 

341 500 

- .133998  U 

€00000 

-.153543 

885600 

•934141 

000000 

.322188 

| 

D 00 00  0 

-.132746 

765000 

.663173 

303900 

.718691 

DOGOCO 

-.108809 

54  G CO  9 

.457325 

544000 

•88261 8 

DOuQGO 

-.095703 

L 7 500  Q 

.288525 

737400 

.952677 

«• 

>249169 

• 6327E-C3 

1 

>39  5016 

•6683E+Q0 

* 

>692774 

• 22 13E+  00 

- 

249477 

•7887E-C3 

1 

; 72  62  69 

! .62 C 5E+00 

• 

! 47 0 608 

• 18  16E*-0  0 

1 - 

12486  68 

•>648E-03 

i 

92  3692 

! . 6238E+  GO 

I ■ 

174052 

.18  53E+C0 

j . : 

• 

743334 

•1969E-02 

1 

i 87  41 50 

•6143E+C0 

>161626 

• I727E+  00 

- 

[747389 

•2516E-C2 

i 

690281 

• 6222E4-C0 

s ^ 

[444215 

• 17  76 £♦ 30 

. 1 

• 

747752 

•1887E-02 

1 

373892 

. 664CE+00 

663304 

•2135E+C0 

• 

747958 

• 1347E- 02 

992572 

•6461E+00 

619383 

.20  21E+UQ 

*n  amir  cm?. 


PROGRAM 

PBOXC 

ATMOSPHERIC  SCIE 

NCE  ASSOCIATES 

f 

i 

BEDFORD.  MASSACHUSETTS 

PI 

BODY  ID 

. TEST 

TEST 

BOO  Y 

! 

j 

N M 

X 

X 

X 

X 

NX 

NPX  j 

Y 

Y 

Y 

Y 

NY 

NPY  1 

Z 

Z 

Z 

Z 

NZ 

NPZ  j 

i 

5 5 

-.503100 

-.500000 

-1.300000 

-14  60C900 

-.089915 

-.7500! 

.839000 

.400039 

•403000 

•800000 

•162023 

. 60  00! 

• 33120  0 

•965500 

• 921400 

« b 53  800 

•982682 

.9104 

6 

-.500000 

-.500000 

-1.000303 

-li.  030060 

-.066851 

-.7500 

.409000 

0.090000 

0.009000 

•400000 

• 05210  6 

• 20  00] 

.965500 

.986000 

•942800 

.921400 

.994858 

. 9539j 

7 

-.503000 

-.500000 

- 1.  000000 

-1.000000 

-.039925 

-.7485] 

0. 009090 

-.400000 

-.400000 

3.000000 

-.379842 

-.1999] 

.986900 

.800000 

•800000 

•942800 

.924189 

• 83  22] 

8 

-.503000 

-.500000 

- 1.000000 

-1.030000 

0. 0 CO  00  0 

-.  7500j 

-•400000 

-.800000 

-.860000 

-.400600 

-.447214 

-.60  00! 

•300030 

.600000 

.660000 

•806000 

.894427 

• 70  001 

9 

-.503000 

- .560000 

-1.003000 

-1.030000 

0.0  (0900 

-.75  00] 

-.839000 

-1.20C000 

-1.200000 

-.600000 

-.447214 

-1.  06  0 01 

•600000 

.40  0000 

•403000 

•630000 

.894427 

• 50  00 

10 

-• 533033 

-.500000 

-1.000000 

-1.000000 

0.066000 

-.  7500 

-1.290030 

-1.603000 

- 1.603960 

-1.  200000 

-.447214 

-1.4000 

• 40900  G 

• 200000 

.200000 

• 4 00  Oil  0 

.894427 

* 30  0 3 

i 

11 

-•593099 

-.500900 

-1.00G060 

-1.600000 

-.0448  5 5 

-.7413! 

-1.600000 

-1.972000 

-1.885609 

-1.600000 

-.519160 

-1.  7647 

•203030 

0.000030 

0.009009 

• 200000 

.853499 

.10  0 2 

12 

-.500000 

-•  50  0C  00 

- 1.300060 

-1.  600000 

-.153543 

-.7433 

-1.972000 

-1.85G  000 

-1.78  503  0 

-1.885600 

-.934141 

-1.  87  41 

0.03000  0 

-.341500 

-.303900 

0.  000000 

-.322188 

-«  1616 

13 

-.530000 

-.50  0000 

- 1.003300 

-1. 006060 

i -.132  740  ' 

-.7473 

-1.850000 

-1.58  5000 

-1.543000 

-1. 785000 

i -.683173 

-1.69  021 

-•34150  0 

-.586600 

■ — . 5 44  0 U 3 

-• 3039C  0 

-.718091 

-.4442 

14 

-•500000 

-.560000 

- 1.000060 

-1.  690000 

! - .108  809 

-.7477 

-1*585000 

-1.19  5000 

-1.175000 

-1.  5 40  OCO 

i -.457325 

-1.3738 

-.586600 

-.  784400 

-.737400 

-.544600 

-.662618 

-.  66  33 

15 

-.530000 

-.500000 

-1.000060 

-1.606000 

-.095703 

-.74  79 

-1.195000 

-.803000 

-.800303 

-1.  175000 

-.288525 

-.9925 

-*784400 

-.901200 

-.853800 

-.737400 

-.952677 

-.8193 

16 

-.503000 

-.50  0000 

- 1.0  00  00  0 

-1.  006000 

-.089915 

-.7500, 

-.800000 

-.400C00 

-.400000 

-.800000 

-.162020 

-.60  00] 

-.901290 

-.965500 

-.921400 

-.653800 

-.962682 

-.91041 

FOUXXir  fRAf,  jf 


ASSOCIATES 
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I 


! X 

NX 

NPX 

C 

V 

NY 

NPY 

T 

2 

NZ 

NPZ 

A 

cocooo 

-.089915 

mt 

.750055 

.81U7E-03 

800000 

• 162020 

.600009 

•65006+00 

8 53600 

.982682 

•910468 

.20356+00 

800000 

-.0  86851 

* 

•750005 

•22386-83 

400000 

• 05210  6 

•200003 

I 

.64366+08 

921400 

.994858 

.953924 

•20 106+00 

OOOOCO 

-.039925 

- 

• 748551 

99816-02 

eoouuo 

-.379842 

- 

.199961 

.6668E+90 

942900 

.924189 

• 882279 

. 2164E  + 00 

OOOOCO 

0.0  CO  00  0 

.750000 

35536-14 

400000 

-.447214 

• 

• 60  0900 

.67066+00 

800000 

.894427 

.700000 

2236E+C0 

C3Q000 

0.9  toaoo 

• 

• 75  00  00 

35536-14 

600000 

-.447214 

-1 

• OOOOCO 

67086+00 

690000 

.894427 

• 50  0000 

22366+00 

OOCOOO 

0.0  GG09C 

- 

• 75  0000 

66616-14 

280000 

-.447214 

•1 

• 40  0000 

67  08  6+00 

4 00  Oil  0 

.894427 

• 30  0 3 u 0 

22366+80 

D 9000  0 

-.0448  55 

• 

.741375 

11216-01 

500  000 

-.519160 

-i 

. 76  4 7 60 

65456+00 

20 C 0 00 

.853499 

■ 

.10  0 234 

| 

19266+00 

OOCOOO 

-.153  543 

.743334 

19  6SE-0  2 

985600 

-.934141 

-1 

. 87  4150 

61436+00 

OOOOCO 

-.322188 

- 

. 161626 

17276+00 

OOCOOO 

-.132  740  ' 

. 747369 

25186-02 

78  5000 

-.663173 

» 63  0261 

62226+00 

103900 

! -.718091 

j • , 

. 444215 

17766+00 

OOOOCO 

-4188  809 

«■>  ( 

.747752 

18876-02 

540  OCO 

-*457325 

-1. 

\ 373892 

66406+00 

>44000 

-♦662618 

1 -< 

* 66  33u 4 

i: . 

j.  . 

21396+00 

IOGQOO 

-.095703 

i 

! 

> 74  7958 

j 

13476-02 

L750U0 

-*288525 

.992572 

64616+00 

[37400 

-4952677 

-*819383 

20216+00 

iooooo 

-.089915 

* 

.750055 

8107E-03 

iOQOOO 

-.162020 

* 

3 60 0009 

65006+00 

193800 

-.982682 

-•910468 

2035E+00 

PROGRAM  P30XC 
BODY  10.  TEST 


AT  fOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 

TEST  BODY 


N 


5 


6 


M 

X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

Z 

Z 

Z 

Z 

NZ 

17 

-.500000 

-.500000 

- 1.000000 

- 1. 000000 

-.086851 

-.400000 

0. 003000 

0.003300 

-.430000 

-.052106 

-.965500 

-.986000 

-.942800 

-.921400 

- • 994858 

18 

-.503000 

-.50  0000 

-1.000000 

-1. 000030 

*.666851 

0. 000000 

.400000 

•400900 

0.000000 

•052136 

-.986000 

-.965500 

-.921400 

-.942800 

-.994858 

19 

-.500000 

*,.500000 

- 1.000300 

-1.  030000 

*.089915 

.400000 

.800000 

•800000 

.490000 

•162020 

-.965500 

-.901200 

-.853800 

*#921400 

-.982682 

20 

-.500000 

-.500000 

-1.003000 

-1*000300 

-.695703 

.8  03  00 Q 

1.195003 

1.175000 

•800300 

.288525 

-.901200 

-.78  4400 

-. 737400 

-.653600 

-.952677 

21 

-.503000 

-.5001300 

- 1.  030009 

-1.600300 

-.108609 

1.195000 

1.  58  5000 

1.543900 

1.  17  5000 

.457325 

-• 7 8440  0 

— . 58 660  0 

-.544300 

-. 737400 

-.882618 

22 

-.500000 

-.500000 

-1.000003 

-1. oucoco 

-.132743 

1.585000 

1.850000 

1.785000 

1. 540 030 

.683173 

-.586600 

-.  341500 

-.303900 

-. 5*4600 

-.718391 

23 

-.5  0000  0 

-.500000 

-1.  000900 

-1. 030000 

-.153543 

1.850000 

1.972000 

1.885600 

1. 785000 

•934141 

-.341500 

0.000903 

0.000300 

-• 3U3900 

-.322188 

1 

-1.300000 

-1.000000 

-1. 50300  0 

-1. 500060 

-.268347 

1.885600 

1.785000 

1.67090 0 

1. 732030 

.921489 

0.  30000  0. 

• 30 3900 

•229703 

u. 003300 

•280799 

2 

-1.303000 

-1. 000000 

-1.503000 

-1. 500000 

-.239065 

1.78500  0 

1.  540003 

1.460303 

1.670090 

.702123 

.303900 

• 544000 

•465900 

.229703 

.670724 

3 

-1. 300000 

*1.  000000 

- 1.56900  0 

-1.  50 C 30 0 

-.194936 

1.543300 

1.17  5000 

1.  140000 

1. 460000 

.475316 

*544000 

.73  7400 

•652000 

. 465960 

.857948 

4 

-1.300000 

-1.  00  0000 

-fc.  5 80  00  0 

-1. 503000 

-.170981 

1.175000 

.8011000 

• 803000 

i. 140 COO 

•30*683 

.737400 

•853800 

.768103 

• 652600 

.936981 

5 

-1.033000 

*1.00  0000 

- 1.500003 

-1.  530  00  0 

-.159631 

.803000 

• 400000 

•400303 

•600000 

•172636 

•853600 

.921400 

.842603 

. 768100 

*971923 

FOtoour  | 


<^sXs 


■i  If  ■ rV-T. 


a msmm 


PAGE 


NPX 
NPY 
I NPZ 

^.756305  , 
-.200003  j 
-.953924  j 

-.750005 
. 200003 
-.  95  3924  ! 

-.750055  j 
.600009 
-.910468 

-.747958 

.992572 

-.819383 

I 

-.747752  j 
1.373892  j 
-.663314  j 

-.747389  ) 

1.  690281  ] 

-.444215  j 

-.743334  j 
1.874150  j 
-.161626 

-1. 229655 
1.773614 

• 13  4912 

-1.245329 
1.  €146  91 
. 33  6555 

-1.245068 
1. 329324 
.600627 

-1.245783 
. 979004 
.753512 

-1. 250120 

• 600034  j 
.846449 


SPHERIC  SCIENCE  ASSOCIATES 
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NX 

NY 

NZ 


10  Y 

X 

Y 

Z 

• J.OQGQQO 

q.qcoooo 

-.942800 

• 1.000000 

•400000 

-.921400 

• 1.080900 

.800000 
[ -.853800 

[•1.800000 
s 1.175000 
| -.737400 

!•  1.00  0 00  0 
[ 1*540000 
[ -.544000 

•1.80000  0 
1.785000 
-.3  0390  0 

• 1.  000  00  0 
1.885600 
0.00000  0 

-1.  500006 
I 1.670000 
•229700 

•1.  500000 
1.4  6000  0 
.465900 

• 1.  5 0008  0 
( 1.140060 

• 65200  0 

• 1.503000 
f .800000 

• 768100 

- 1.500000 

• 400900 

• 842600 

l 


X 

Y 

Z 

-i. 000000 

-.430000 

-.921400 

-1. 008000 
(I.  000000 
-.942860 

-1.  OSCGOO 
•490000 
-.921400 

-1.006000 
• 8 06  800 
-.653800 

-l.lOOSOO 
1.17  5000 
-. 737400 

-1. 000000 
1 • 540  QUO 
-.  5 <44000 

-1.030000 
1.  785000 
-.30  3900 

-1. 500000 
1. 732000 
U • 0 0000  0 

-1. 500000 
1.670000 
.229700 

- 1.  50  0 36  0 
1. 460000 
•465900 

-1.  500000 
1.140006 

• 652000 

-1. 500000 

.600000 

• 768100 


-.066851 

-.052106 

-.994858 

(-.086651 

•052106 

-.994858 

-.089915 

•162020 

-.982682 

-.095703 

.288525 

-.952677 

-.108609 

.457325 

-.882618 

-.132740 

.683173 

-.718091 

-.153543 

•934141 

-.322188 

-.268347 

.921489 

•280799 

-.239065 
•702123 
.670  724 

-.194936 

.475316 

.657948 

-.170961 
. 30  <4  68  3 
•936981 

-.159631 
•172636 
.97192  3 


NPX 

N!»Y 

NPZ 

-.1750305 
-.1200003 
-.  953924 

-. 750305 
.1200003 
-.  953924 

-.750055 
i .600009 
h*  910468 

-.747958 

.992572 

-.819383 

-.747752 

1.373892 

-.663314 

-.747389 
1. 690281 
-. 444215 

-.743334 

1.874150 

-.161626 

-1.229655 
1.773614 
.13  4912 

-1.245329 
1.  €146  91 
. 38  6555 

-1.245068 
1.329324 
• 600627 

-1.245763 
. 97  9004 
. 753512 

-1.250120 
•600034 
. 846449 


C 

T 

; A 

i j 

i .2238 E- C3 
• €4366+00 
• 20 102*00 

•2236E- 03 
.6436E+00 
• 20 106  + 00 

• 0iii  7E-03 

• 65  C CE+  00 
•20356+00 

• 13  47E-02 
.6461 £+00 
•2021E+U0 

.1687E-C2 

• 66  40E+  CO 
•2139E+00 

•2518E-02 

.62226+00 

• 17  76E+00 

• 1969E- 02 
•61436+00 
•1727E+00 

.36846-02 

.59106+00 

•14466+00 

. 5490  E- 0 2 
•61806+00 
.16966+00 

.37626-02 

•6494E+00 

.19966+00 

•2596E-02 

• 63746+00 
•19C8E+00 

.16  77E-U2 
•6584E+00 

• 2058E+00 
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PAGE 


6 6 


CO 


10 


11 


12 


13 


14 


15 


16 


17 


-1. 


1. 

0. 


-1, 


-1. 


*1, 


-1. 


-1. 


1# 

it 


-l, 


TEST 

BODY 

! 

i 

X 

X 

X 

X 

NX 

NPX 

Y 

Y 

Y 

Y 

NY 

NP  Y 

Z 

Z 

Z 

Z : I 

I 

NZ 

NPZ 

000000 

1.  COCGOQ 

- 2.509000 

-1.590000 

- 

• 153515 

-1.  254012 

400000 

C.000000 

0.900000 

• 43  G 00  0 

.055250 

• 20  u 0 10 

921400 

.942800 

• 8 66  00  0 

•842600 

.966601 

• 893196 

000000 

1.000000 

-1.500000 

-1. 500000 

• 

.074106 

-1.246100 

000000 

••400000 

-.400000 

U. OOOOCO 

- 

.251646 

-.199835 

942800 

.600000 

•800000 

•866000 

.964926 

•852389 

090000 

i.iiooooo 

• 1.  50090  0 

-1.500000 

0 

• OSQOQU 

-1.250000 

400030 

-.800000 

-.000900 

-• 400000 

• 

.447214 

-. 60  0000 

890000 

•600000 

•603000 

.609000 

.894427 

. 700000 

300000 

1.000090 

-1.509000 

. 

-1.  500000 

0. 

iOGOOOO 

-1.250000 

899000 

1. 2000  CO 

- 2.  200000 

-.600000 

- 

.447214  -1.900000 

603000 

.409000 

.400300 

•600000 

.894427 

• 50  OQuQ 

099000 

1.  000000 

-1.500900 

-1. 500000 

0 

.900000 

-1.2500U0 

209000 

1.600000 

- 2.600000 

-1.  200000 

9 

.447214 

-1. 400009 

4 0 3 C 0 0 

• 209000 

.200900 

. 400000 

.894427 

.300960 

009000 

1.  000000 

-1.50300  0 

-1.500000 

- . 1 C 5 65  *♦ 

-1.225923 

60000  0 

1.685600 

- 1.73290  0 

-1. 600000 

.687853 

-1.  70  7 4 4 5 

293000 

0.003003 

0.009000 

. 200090 

■ 

.716119 

. 100626 

090000 

1.003000 

- 2.503000 

-1. 530000 

• 

.268347 

-1. 229655 

885600 

1. 785000 

-1.673000 

-1. 732000 

-.921489 

-1.  17  3614 

009000 

-.303900 

-.229700 

0.000000 

-1260799 

-.134912 

aooooQ 

1.003000 

- 2.  500000 

-1.  590000 

- 

.239065 

-1.245329 

7 85  09  0 

1.540000 

-1 • h6090  0 

-1.670000 

-1702123 

-1.  614691 

303900 

-.544090 

-.465900 

-.229700 

-.670  724 

- 

-.38  6555 

0 0 0090 

1.  000000 

- 1.5  0300  0 

-1. 500900 

-1 194936 

•1. 245368 

540000 

1.175  000 

-1.149900 

-1.460000 

- 

.475316 

-1.329324 

544000 

-.737400 

-.652000 

-.465900 

-.857948 

-.600627 

090000 

1.000090 

- 1.500900 

-1.  500000 

-.170981 

-1*24  5783 

175000 

-.803000 

-.800000 

-1. 149000 

.3  0466  3 

-.979904 

737400 

-.853600 

-.768100 

-.652900 

.936981 

-.753512 

090090 

1. GO  0090 

-1.500000 

-1.509000 

* 

.159881 

-1.  250120 

8 9000  C 

-.40  0000 

-.400900 

-.600000 

| - 

172638 

-.60  0 0 34 

8 53800 

-.921400 

-.842600 

-.766100 

j - 

.97192  3 

- 1 84  6449 

090000 

1.009000 

-1.500000 

-1.5OC0QO 

- 

.153515 

-1.  250912 

430000 

0.000000 

0.009000 

-.499000 

- 

.055250 

-.200910 

921400 

-.942800 

-.866000 

-.842600 

-.966601 

-.893196 

fO <BW' 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
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ST  BODY 


X 

X 

NX 

NPX 

0 

Y 

Y 

NY 

NPY 

T 

z 

Z 

■ 

NZ 

NPZ 

A 

00 

•1*500000 

-1*500000 

J. 153515 

-1.  25u012 

.49336-03 

00 

0.000000 

•430000 

055250 

• 20u010 

•6481E+GQ 

DO 

• 8 66000 

•842600 

j 

986601 

• 893198 

.20  276+00 

..-S' 

00 

-i* 5 00000 

•1. 530000 

i 

*07410  6 

-1.248100  . 

•16536-01 

00 

-.400003 

0. 030000 

-j 

251846 

-.199835 

•6560E+C0 

00 

•800000 

•666000 

964926 

.652389 

.20  73E+C0 

00 

- 2*500000 

•1.500000 

0 

.OOQOOU 

-1.250000 

•3553E-14 

00 

••800000 

-• 400600 

- 

,447214 

-.6500  00 

•6708E+5Q 

00 

•600000 

.800000 

894427 

• 75  000  0 

. 22366+50 

00 

-1.  500000 

-1.  502  30  0 

0 

0 GQ  003 

-1.  250000 

•3553E- 14 

CO 

- 3.  200000 

-.600000 

- 

,447214 

-1.330000 

.67066+00 

00 

•400000 

•600000 

,894427 

. 50  00  uO 

•22366+00 

00 

•1.500000 

-1.500000 

0 

,000000 

-1. 25  OOuO 

•66 6 IE- 14 

00 

• 3.600000 

-1.  200000 

- 

,447214 

-1.  400003 

*67086+50 

00 

.200000 

• 400  000 

.894427 

•300040 

•22366+50 

too 

•1.500000 

-1.500000 

• 0 

>1C5  65* 

r 1.225923 

.26  416-51 

00 

- 3,732000 

-1.600000 

-.667853 

-1.  70  7 4 4 5 

.60966+50 

00 

0. 00936 0 

. 200060 

4 

,716119 

• 100626 

•1454E+00 

00 

•2.500000 

-1. 530000 

i 

* \ 

,268347 

*1. 229655 

.3684 E- 02 

0 0 

-1.673000 

-1. 732000 

• \ 

,921489 

-1.  77  3 6 1 4 

! .59  10E  + 5Q 

00 

-.229700 

o.eocooo 

; ... 

4 

i 

260799 

-.134912 

• 1448  E+  00 

00 

• 3:.  50006  0 

•1.  500060 

! 

' “ ■< 

,239065 

-1.245329 

•549CE-02 

DO 

-1. *60060 

-1.670000 

| • i 

702123 

-1.  614691 

.61806+00 

bo 

-•465900 

-.229700 

| * « 

673  724 

-.386555 

•1696E+00 

bo 

-3*503000 

-1. 500000 

i 

*1 

194936 

-1.245068 

• 376  2E- 02 

so 

•1.140060 

-1.466000 

-.475316 

-1.329324 

•6494E+50 

to 

-.652000 

-.465900 

-*■857948 

I-. 600627 

• 1996E+  UO 

(0 

-3.503000 

-1. 500000 

! “ 1 

>1170  981 

-1.245783 

•2596E-02 

10 

•.800000 

-1.140000 

i-  .13  04  68  3 

-.979004 

! .63  74E+0  0 

10 

-.768100 

-.652000 

!••  < 

,,936981 

-.753512 

.19586+50 

KO 

*1.500000 

-1.500060 

* 1 

,159881 

-1.250120 

.i677E-02 

io 

-.400000 

-.800000 

,-.172  63  8 

-•6C00  34 

•65846+00 

|o 

-.8  4260  0 

-• 768100 

r 1 

,971923 

-.846449 

.20 56E+00 

jo 

-1.500000 

-1.53  COCO 

-.153515 

-1.  250012 

.49336-03 

m 

0*000930 

-.490000 

-.055250 

-.200010 

•6461E+00 

10 

-.8  6600  0 

-.842600 

* « 

,986601 

-.893198 

.202  76+00 

f 
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PROGRAM  PBOXC 
BODY  ID,  TEST 

N M 
6 16 
19 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


20 


21 


22 


23 


7 1 


TEST 

BOOY 

X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

Z 

Z 

Z 

Z 

NZ 

1.  00000  0 

-1.  00  0000 

- '..503000 

-1. 500000 

-.153  515 

0.333000 

.400000 

.403000 

6.600000 

.055250 

-. 942800 

-.921400 

-.842600 

-.866000 

-.986601 

1. 003000 

-1.  00  0030 

-1*500000 

-1.  530000 

-.159681 

•433000 

.800090 

.830000 

. 400000 

.172638 

-.,  92140  0 

-.853600 

-.768100 

-.642600 

-.971923 

1. 003000 

-1.000000 

-1.500300 

-1. 500800 

-.170981 

•800003 

1.175000 

1.140900 

•800600 

• 304683 

-.853800 

-.  73  7400 

-.  652300 

-.768100 

-.936981 

1. 003000 

-1. 000000 

-1.50000  0 

-1. 500900 

-.194936 

1.175000 

1. 540000 

1.460003 

1.  140000 

.475316 

-.737400 

-. 544000 

-• 46590  0 

-. 652800 

-.857948 

1. 330000 

-1. 000000 

-1.500300 

-1.  530  600 

-.239665 

1.540000 

1.785000 

1.670063 

1. 460  CO  0 

.702123 

-.544000 

-.  3C3900 

-.229700 

-.465900 

-.670  724 

1. 002600 

-1.300000 

-1.506000 

-1.  500030 

-.268347 

1.785000 

1.885600 

1.732000 

1.670300 

.921489 

-.303900 

0.000000 

0.300003 

-.229700 

-.286799 

1.500000 

-1.500000 

-2.008003 

-2.  080000 

-.414479 

1.732000 

1.670000 

1.465000 

1. 490700 

.865202 

0.000000 

.229700 

.137300 

0.COC000 

.211244 

1.5  30000 

-1. 50  030 C 

-2.300900 

-2. OOCOOQ 

4.372374 

1.670000 

1. 46C0Q0 

1. 322000 

1. 465900 

.725761 

.229700 

.465960 

.344400 

.137800 

j .578529 

1.500000 

-1.  50  00  00 

-2.000000 

-2.600300 

4.310024 

1.460680 

1.140  006 

1.072060 

1.322000 

i .587279 

.465900 

. 65  2000 

.517900 

.344400 

•60488 5 

1.503000 

-1.500CC0 

-2.008000 

-2.000900 

-.269527 

1. 140000 

.800000 

• 800060 

1.072000 

.335323 

.652800 

.768100 

•626900 

.517900 

.902637 

1.530000 

-1.500000 

-2.  0 30060 

-2.  8 03000 

-.250229 

• 8 30  00  0 

. 40  30  00 

.400000 

.630000 

.193980 

.763100 

. 842600 

•718303 

.628900 

.948555 

1.500030 

-1.500000 

- <.800060 

-2.030000 

-.237  69  4 

.483000 

0.003000 

0.000300 

.400800 

•061556 

.842600 

.866000 

.745400 

.718000 

.969388 

fouxxit 


PAGE 


NPX 

NPY 

N3Z 

-1.250012 
. 20  8010 
-.893198 

-1.250120 
• 60  u 0 34 
-.846449 

-1.245783 

.979004 

-.753512 

-1. 245068 
1. 329324 
-.600627 

-1.  24  5329 
1.  61 4691 
-.  386555 

-1.229655 
1.  77  3614 
-.134912 

-1.  699678 
1.6113  65 
.096576 

-1.  73  3772 
1.  43  47  52 
.257994 

-1.  738932 
1.256738 
. 497910 

-1.  738266 
.954354 
. 644837 

-1.  75  C 2 76 
. 600104 
.739306 

-1.  750825 
.200330 
.792992 
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TEST  30 OY 


X 

Y 

2 


X 

Y 

Z 


NX 

NY 

NZ 


NPX 

N.PY 

N3Z 


3000 

3000 

L40Q 


« d 


300000 

400000 

842600 


•1. 300000 
U. 000000 
-.666000 


-.153515 

•055250 

-.986601 


-1.250012 
. 200010 
-.893198 


3000 

3000 


3600 


-1 


50000 

80000 

76810 


0 

0 

0 


-1. 500000 
. 4QG000 
-• 64260  0 


t. 159681 
.172638 
-.971923 


250120 
60  u 0 34 
846449 


COO 


-1 


500000 


-1. 500000 


000 

T400 


1.140000 

-.652000 


•800000 

.768100 


-.170981  -1.245783 

• 304683  • 97  90  04 

-.936931  -.753512 


3000 

1000 

♦coo 


-1.500000 

1.460000 

-.465900 


-1.500000 
1.  140000 
-. 652000 


-.194936 

.475316 

-.657948 


-1.245068 
1. 329324 
-.60  0627 


3000 

>000 

19  00 


1.500000 

1.670000 

-.229700 


-1. 500000 
1. 46000  0 
-.465900 


- .239065 
.702123 
-.670  724 


-1.24  5329 
1.  614691 
386555 


3000 

>600 

ICOO 


-1.500000 

1.732000 

0.003000 


1. 5000C0 
1.670000 
-.229700 


-.268347 

.921489 

-.280799 


•1.229655 
1.  77  3614 
-.134912 


1000 

iooo 

J700 


-2.000000 

1.465000 

.137800 


-2. 000000 
1.  490700 
C.Q0CGOO 


-.414479 

.865202 

.211244 


1.  699678 
1.6118  65 
.096576 


1300 

1000 

*900 


-2.000900 
1. 322000 
.344400 


-2. OflCCOO 
1.  465GC0 
• 137800 


.372374  -1.  733  772 

.725701  1.  43  4752 

.578529  .297994 


pCO  -2.00000  0 
!00U  1.072000 

000  .517900 


-2.000000 

1.322000 

.344400 


-.310024  -1.  738932 

.507273  1.250730 

.804085  . 497910 


BCO  -2.000000 
!000  .800000 

IOC  .626900 


2.0  00  00  0 
1. U 72000 
. 517900 


-.269527  -1.  73  82  66 

.335023  .954054 

.902637  .644837 


BOO 

-2.  0 00000 

-2. 0 00  000 

BOO 

.400000 

. 800000 

600 

r ■ 

•718000 

.628900 

boo 

- 2.000000 

-2.G000C0 

BOO 

0.000000 

.400000 

• 00 

.745400 

.718000 

-.250229 

.193980 

.948555 

-.23  7 69  4 
.061556 
.969388 


-1.  750  276 
.600104 
.739306 

-1.  750025 
.200030 
. 792992 


0 

T 

A 

. 4933E-03 
•6481E+ CO 

. 20  27 E+ 00 

j 

I.1677E-C2 

•6564E+0Q 

• 20  5 CE+  GO 

• 25S6E-0  2 
•6374E+G0 

• 19b6E+G0 

• 378  2E- 0 2 
. 6494E+0  Q 
•1996E+G0 

•54SCE-C2 
.61  8CE+00 
. 1696E+  00 

• 3684E-02 
.5910E+00 

• 144  8 £+00 

•3180E-O2 
• 5833E+G0 
. 10  38E+  00 

.78  74 E- 02 
•61S9E+00 
•1525E+C0 

• 6345E-  02 

• 6350E+G0 
•1772E+00 

• 4544 E- 02 

• 62 1 8 E+  0 0 
.16956+00 

• 34  62 E- 02 

• 67  EQE+GO 
•21 C 86+00 

•9694E-03 
•6572E+00 
. 20  6 3E+00 


( 

c 

c 


I 


< 


f7 


c 


4 
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BOOY  10.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEOFORO,  MASSACHUSETTS 


TEST  BOOY 


N H 


7 7 


8 


9 


10 


11 


13 


14 


15 

16 


17 


18 


X 

X 

X 

X 

NX 

N»X 

Y 

Y 

Y 

Y 

NY 

NP  Y j 

Z 

Z 

Z 

Z 

NZ 

NPZ  j 

■i 

-1.500000 

-1. 500000 

-2.000000 

-2.000000 

-.197278 

-1.  7495] 

0.000000 

-.400000 

-.400000 

0.000009 

-.113683 

-.  19971 

.866009 

•800000 

•718009 

. 745400 

• 973734 

.78  24 

-1.500000 

-1.500000 

-2.  009000 

-2.  G90000 

-.075980 

-1.7473 

-.400000 

-.800000 

-.800000 

-.400000 

-.368319 

-.59  983 

•800000 

• 600000 

•600000 

•716000 

•926589 

.67973 

-1.500000 

-1.50  0000 

-2.000000 

-2.000000 

0.0  00  000 

-1.  75  001 

-.80000  0 

-1.200000 

-1.200000 

-.800000 

-.447214 

-1. 30  00 

.600000 

.409000 

•400000 

.600000 

.894427 

• 50  00 

-i. 500000 

-1.500000 

- 4.0  00000 

-2.03Q000 

-.050829 

-1.72  041 

-1.200000 

-1.600000 

-1.400000 

-1.200000 

-.456741 

-1.  3528 

.400030 

•200090 

•256000 

•490000 

.866409 

.31413 

| 

-1.500000 

-1.509000 

-J.  0 00  oa  a 

- 2. 090000 

-.348626 

.!  J 

-1.76  252 

-1.699000 

-1.732000 

-1.490700 

-1. 400000 

-.842191 

-1.  55053 

•200000 

0.000000 

0.300909 

.256000 

• 4il30  7 

.1139^ 

-1.5 00000 

-1.500000 

- 4.006000 

-2.  000000 

-.414479 

-1. 69961 

- 1. 732000 

-1.67  00  03 

-1.465000 

-1. 496700 

-.885  20  2 

-1.  61 18  4 

0.000000 

-.229700 

-.1378^0 

0.  u 00  00  0 

-.2112  44 

-.0965? 

-1.500000 

-1.500000 

-2.000000 

-2.690000 

-.372374 

-1.  73371 

-1.670090 

-1.460  000 

- 1.32290  0 

-1.465000 

-.7  25701 

-1.  4647! 

-.229700 

-.465900 

-.344400 

-.137800 

-.578529 

-.2979« 

-1.500099 

-1.500000 

-2.000000 

-2.000000 

-.310024 

-1.  73892 

-1.460000 

-1. 140000 

-1.072000 

-1.  322000 

-.507279 

-1.  25072 

-.465900 

-.65  2000 

-.517900 

-.344400 

-.864035 

-.45793 

-1.500000 

-1.500000 

-2.000900 

-2. 800000 

-.269527 

-1.  7362( 

-1.140000 

-.800000 

-.800000 

-1.072000 

-.335023 

-.9540! 

-.652000 

-.768100 

-.628900 

-.517900 

-.902837 

-.64  482 

-1*5  00 CO  0 

-1.500000 

-2.00000  0 

-2.000000 

-.250229 

-1.  75021 

-.300000 

-.400000 

' -• 400000 

-.600000 

-.193980 

-•  60  Olt 

-.768100 

-.842600 

-.718000 

-.628900 

-.948555 

-.  73931 

-1.500000 

-1.500  0 00 

-2.000000 

-2.  000  00  0 

-.237694 

-1.75001 

-.400000 

0.000000 

0.000000 

-. 40C000 

-.061556 

-.20002 

-.842600 

-.866000 

-.745400 

-.718000 

-.9  69388 

-• 79291 

- 1.500 000 

-1.500090 

-2.000000 

-2.009000 

-.237694 

-1.  75005 

0.009000 

•400000 

•400000 

0. 000000 

.061556 

• 20002 

-.866090 

-.842600 

-.718  00  0 

-.  745400 

-.969388 

-•  7929! 

[C  SCIENCE  ASSOCIATES 
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X 

NX 

N»X 

0 

Y 

NY 

NPY 

T 

z 

NZ 

NPZ 

A 

JOOQO 

-2.000000 

-.197278 

-1. 749550 

i 

I.9397E-62 

1000  0 

0,000009 

-.113683 

-.  199759 

.65  72E+CQ 

L8000 

• 745400 

• 973734 

.782469 

• 20  54E+00 

ra  oou 

-2. 000000 

-.075980 

-1.  747311 

• 19006-01 

10000 

-.400000 

-.368319 

-.  599857 

•67Q8E+CQ 

1030  0 

•718000 

•926589 

.679777 

• 21  5,8  E*  0 0 

10000 

-2.000000 

0.0  00  300 

-1.  75  00  D C 

• 35536-14 

10000 

-.800000 

-.447214 

-1.  00  00  DO 

.67  Q8E+C0 

10000 

.600000 

.894427 

• 500000 

.2236 E+ GO 

19000 

-2.033000 

-.650829 

-1.  72  0409 

*12  71E-04. 

10000 

-1.230000 

-.456741 

-1. 352829 

•6708E+00 

;eooo 

.400000 

.866489 

.314114 

.1731E+0O 

10000 

-2.  030000 

-.348  626 

-1.762537 

•1445E- 01 

1070  0 

-1. 400900 

-.842191 

-1. 556513 

.6525E+09 

1090  0 

.256000 

•4il30 7 

l . 113943 

*13  54E+0Q 

10000 

-2.000000 

-.414479 

-1. 699678 

•318CE-02 

*500  0 

-1. 496700 

-.885202 

-1.  611865 

. 5833E+ 60 

(78  vO 

y. u 90 ooo 

-.211244 

-.096576 

.10  3 6E+CQ 

10000 

-2.  uOOOOO 

-.372374 

-1.  733772 

. 7874E-02 

[290  0 

-1.465000 

-.725701 

. fl.  464752 

•61S9E+00 

►440  0 

-.137800 

-.578529 

-.297994 

• 15256+tU 

900  0 

-2.000000 

-.310024 

-1.  738932 

• 6345  E- 02 

200  0 

-1.  322000 

-.507279 

-1.  250730 

1 .63536+00 

790  3 

-.344400 

-.834035 

-.497910 

• 17  72E+QQ 

jOOOQ 

-2.  OOCOOO 

-.269527 

-1. 736266 

.45446-02 

000  0 

-1.072000 

-.335023 

-.9543  54 

•62166+00 

999  3 

-.517900 

-.902837 

-.644837 

.16956+00 

i 

DOC  3 

-2*800000 

-.250229 

-1. 750276 

, ■■  I 

•3462E- 02 

0000 

-.800000 

-.193980 

-.600104 

•67506+00 

B 00  0 

-.628900 

-.948555 

-.739306 

* 210  86+00 

3000 

-2.  COO 00  0 i 

-.237694 

-1.  750  0 25 

•S694E-03 

1000 

-• 40 CO 00 

-.0  6155  6 

-.20  0 3 30 

•6572E+00 

040  9 

-.718000 

-.9  69388 

-.792992 

. 20  63E+0O 

IOC  0 

-2.009069 

-.237694 

-1.  75  00  25 

• 9694E- 03 

im  o 

0. 800000 

.061556 

• 206330 

.65726+00 

iooo 

-.745400 

-.969388 

-.792992 

• 20636+90 

[. 
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PROGRAM  P80XC 
BODY  10.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 

TEST  BODY 


M 

X 

X 

X 

X 

NX 

NPi 

Y 

Y 

Y 

Y 

NY 

NP| 

Z 

Z 

Z 

Z 

NZ 

NP 

19 

-1.500000 

-1. 500000 

-2.0  00  30  0 

-2,080000 

-.250229 

-1.  751 

.403000 

•eooooc 

.830000 

.430800 

•193980 

.601 

-.842600 

-.76  8100 

-.626900 

-.7ieooo 

-.946555 

-.73! 

20 

-1.503000 

-1.  50  0 0 00 

-j!#  080000 

-2.  G 3000  0 

-.269527 

-1.73J 

.833000 

1.140000 

1.072300 

.630300 

.335023 

• 954 

-.768100 

-.652000 

-.517900 

-.628900 

-.902837 

-•64<j 

21 

-1.500003 

rl. 500080 

-2.000000 

-2.  030000 

-.310024 

| 

-1.738 

1.140030 

1.460000 

1.32200  0 

1.U72C00 

.507279 

1.250 

-.652033 

-.465900 

-.344400 

-.517930 

-.804085 

-.49Z 

22 

-1.500000 

-1.500000 

-2.000000 

-2. 030000 

-.372374 

] 

-1.  7331 

1.463000 

1.670000 

1.465300 

1. 322000 

.725701 

1,  48  4 

-.465900 

-.229700 

-.137800 

-.344400 

-.578529 

-.  297 

23 

-1.530  00  G 

-1.500000 

-2.000300 

-2.  030000 

-.414479 

-1.  69  d 

1.670000 

1.732000 

1.490703 

1.465300 

• 885202 

1.  61  x 

-.22973  0 

0. GO  GOO 0 

0.003003 

-.137800 

-.211244 

-.  03  6] 

************ 

************ 

1 

-2.300000 

-2.000000 

- 2.500300 

-2.500000 

-.597981 

-2.218] 

1.490700 

1. 322000 

1.000000 

1.055000 

,747834 

1.243 

3. 303000 

•344400 

.235700 

0. 300000 

« 263 38  2 

. 149 

2 

-2. 000C00 

-2. 000000 

-2.500300 

-2. 500300 

-.425912 

-2  . 214' 

1.322000 

.800300 

• 8 38303 

l.QOOOGO 

•1463  20  3 

• 990 

. 344400 

.628900 

.361500 

.235700 

.777203 

.411 

3 

-2.000000 

-2.00000(1 

-2.503303 

-2.500300 

-.397801 

-2.250 

.300000 

• 400000 

.400000 

•830000 

.246251 

.60  0 

• 62392  0 

.718000 

*515300 

• 381500 

•683607 

• 56  0 

4 

-2.003000 

-2. 000C0C 

- 2.  500303 

-2.  530080 

i-  ,366809 

-2.250 

.4  OOf4"*! 

0. 000030 

8.300303 

.400000 

i ,075569 

. 20  0 

.713000 

. 745700 

.552800 

•515300 

| .927222 

• 63  2 

5 

-2.000000 

-2. 000000 

-2.500030 

-2. 530000 

j-. 366809 

-2.25u 

0*000030 

-.400000 

-.40000  0 

3.000000 

-.075569 

-.  20  0 

.745700 

.713000 

.515303 

.552630 

.927222 

.632 

6 

-2.000000 

-2. 003000 

-2.5  03308 

-2.500300 

-.372805 

-2.250 

-.400000 

-#800000 

-.800000 

-.430300 

- . 2 78  58  6 

* « 60  9 

.718000 

.600000 

.381503 

.515300 

.885102 

.553 

pouwcar  fm 


in  jf. 


i 


ATMOSPHERIC  SCI* MCE  ASSOCIATES 

3ECF0R0,  MASSACHUSETTS  PAGE  15 

TEST  BODY 


X 

X 

X 

NX 

NPX 

0 

Y 

Y 

Y 

NY 

NPY 

T 

Z 

Z 

Z 

NZ 

NPZ 

A 

• 50  9000 

-2*  000000 

-2.090000 

-.2  50  229 

-1.  750276 

1 .34(26-02 

• 800000 

•830000 

• 400  90  0 

.119398  0 

. 600104 

.67506+00 

• 768100 

-.626900 

-.7ieooo 

-.946555 

-.739306 

. 21886+00 

• 50  00 00 

- <.0  8000  0 

-2.800000 

-.269527 

-1.738266 

•4544E-02 

. 14QCQQ 

1.072900 

•600000 

.335023 

• 9540  54 

.62166+00 

• 652000 

-.517900 

-.628900 

-.902837 

-.644837 

| .16956+  00 

• 500000 

-<.000000 

-2.  030000 

-.310824 

-1.738932 

•6345E-C2 

• -460000 

1.322000 

1.072000 

.507279 

1.250730 

• 63  506+  00 

.46  5900 

-.344400 

-.517900 

-.604085 

-.497910 

.17726+00 

• 50  00  00 

-2.000000 

-2. 000090 

-.372374 

-1.  733772 

.78  746-02 

• 670000 

1.465000 

1.322000 

.725701 

1.  46  4752 

.61996+00 

.229700 

-.137808 

-.344400 

-.578529 

-.297994 

.15256+00 

• 50  0000 

-2.800030 

-2.000000 

-.414479 

-1.  699678 

.3180E-02 

.732000 

1.490700 

1.465000 

.665202 

1.611865 

• 58  33E+  00 

• OO  0 0 0 0 

0.080918 

-.137800 

-.211244 

-.  036576 

.10  386+00 

**+####****« 

**+*+*****♦+ 

• 000000 

-2.500000 

-2.500000 

-.597981 

-2.218824 

.1342E-01 

4 32  2 000 

1.308390 

1.055000 

.747834 

1. 240  7 23 

•73916+00 

• 344400 

.235700 

0. 00 GO 00 

. 268  38  2 

. 149617 

*19396+00 

► CO  00  00 

-2.500900 

-2. 590000 

-.425912 

-2.  214445 

.1034E-C1 

.800000 

•830308 

l.OOOOCO 

.463  20  8 

.990269 

•7233E+00 

.62  8900 

•361500 

.235700 

.777203 

.411287 

. 23 2 2E+  00 

.000000 

-2.  500003 

-2.500000 

-.397801 

-2.250969 

• 9877E- 02 

.400000 

.400000 

• 8U0000 

.246251 

.608392 

.72336+00 

,71  8000 

.515308 

•381500 

•683607 

. 560379 

.22  63E+  CO 

O GOG  00 

- 2.590000 

. 

-2.530880 

-.366609 

-2.250072 

. 22  72E-0  2 

00  0 GOO 

9.300000 

.400800 

.075569 

: . 200101 

.68056+00 

74  5700 

•552800 

.515300  j 

.927222 

. 63  2913 

• 2157E+00 

OC 0000 

-2.500090 

-2. 590000 

-.366639 

-2. 25  u 0 72 

5 .22726-02 

40  0000 

-.408098 

0.000000 

-.075569 

-.  20  0101 

.68 C5E+bQ 

71  8000 

.515309 

•552600 

.927222 

. 632913 

.21576+00 

5 

[oo a coo 

-2.509000 

-2.500000 

-.372805 

-2.258363 

•34 SEE- 02 

90  0000 

-.800000 

-.  4 01)0 CO 

-.278586 

-•  600126 

• 72336+00 

6GC090 

1 1 

.381509 

.515300 

.885102 

.553499 

•22606+00 

PROGRAM  P0OXC 
BOO Y IO,  TEST 


N M 


8 7 


10 


11 


12 


13 


14 


15 


16 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


FOtOOUX  fRAJ’ 


PAGE  ie 


TEST 

BODY 

X 

X 

X 

X 

NX 

NPX 

Y 

Y 

Y 

Y 

NY 

NPY 

Z 

2 

Z 

Z 

I NZ 

NPZ 

2,000000 

-2.000000 

-2.500000 

-2.  500900 

-.396212 

-2.  2183  55 

-.800000 

-1.200000 

-1.300900 

-.830000 

-.458473 

-.956945 

•600000 

.400000 

•235700 

•381500 

j .795499 

.4160  59 

2,000000 

-2.000000 

-2.500000 

-2.500390 

j 

^•537231 

-2.212088 

1.200000 

-1.490700 

-1.055000 

-1.000000 

-.740960 

-1.  20  9729 

.400000 

0.000009 

0.009900 

.235700 

•402941 

•166619 

2.000000 

-2.000000 

-2.500000 

‘2. 530090 

-.597981 

- 2.  210024 

1.490700 

-1.322000 

-1.000000 

-1.0  5 £000 

-.747834 

-1.240723 

0. 000030 

-.344400 

-.235700 

0.030000 

- • 288  38  2 

-.149617 

2.000000 

-2.  060000 

-2.500000 

-2. 500000 

-.425912 

-2.214445 

1.322030 

-.800000 

-.800000 

-1.000090 

-.463200 

-.990269 

-.34440  0 

-.62 6900 

-.381500 

-.235790 

-.777203 

-•  411287 

2.003000 

-2. 000090 

- ;. 5oaooa 

-2.530000 

-.397891 

-2.250969 

-.800000 

-.400000 

-.400000 

-.800000 

-.246251 

-.600392 

-.628900 

-.718000 

-.  51530  a 

-.381500 

-.883607 

-.560  3 79 

2.000000 

-2. 00  9000 

-2.500000 

-2. 500000 

-.366576 

-2.  250  0 74 

-.433000 

0.000000 

9.000003 

-.490030 

-.075231 

-.200104 

-.718000 

-.  745400 

-. 552800 

-. 515300 

-.927341 

-.632837 

2. 003000 

-2. 003000 

-2.500000 

-2.500000 

-.366578 

-2. 250374 

Q. 300000 

.400000 

.400000 

9. 0 30  COO 

.075231 

•200104 

-• 745400 

-.718000 

-.515300 

-.552800 

-.927341 

-.632837 

2.00G0QC 

-2. 0CQ000 

-2.500009 

-2. 530000 

-.397801 

-2.  250969 

•400000 

•800000 

,800900 

• 439000 

.246251 

. 6C0392 

-.718000 

-*  62e900 

-.381500 

-.515300 

-.883837 

-.560379 

2.003000 

-2.000000 

-2.500000 

-2. 530000 

-.425912 

-2.  21 4445 

.800000 

1.322030 

1.000000 

•600300 

.463  20  0 

.990269 

-.62890  0 

-• 344400 

-.235700 

-.381500 

-.777203 

-.411267 

2.00030 0 

-2. 000000 

- 2.5  0399  9 

-2.500090 

-.597981 

-2. 218024 

1.322000 

1.49  0700 

1.055309 

1. 000000 

.747834 

1.  240723 

-.344400 

9.000000 

0. 003093 

-.235700 

-.288382 

-. 149617 

**  ********** 

************ 

2.500030 

-2.500000 

-3.000000 

-3.900000 

-.868756 

-2.  626833 

1.355000 

•800000 

0.300000 

9. 900999 

•411733 

. 63  7692 

0.900003 

• 381500 

0.003000 

0.900000 

•275208 

• 149145 

******  # 


Q« 

I 

« 


r 

jtic  SCIENCE  ASSOCIATES 
IRQ,  MASSACHUSETTS 


X 

Y 

Z 

X 

Y 

Z 

NX 

NY 

NZ 

NPX 
NPY 
j NP  Z 

C 

T 

A 

[OOOOO 
0030  0 
[3570  0 

-2. 500000 
-•830000 
• 3315C0 

-*396212 
- # 458  473 
. 795499 

-2.  218355 
-.956945 
• 4160  59 

•12146-01 
.65  0 26+00 
•16666+00 

looouo 
55000 
0090  0 

-2.500090 

-1.000000 

•235700 

-*537231 

-*740969 

*402941 

-2.  212068 
-1.  209729 
• 166619 

.271 IE- 01 
.73916+00 
•21456+00 

oo  a oo 
ooooo 

35700 

-2.  530 030 
- 1. 4 5 5000 
0.030000 

-•597981 
-.747834 
-*,288  38  2 

-2.  216324 
-1.240723 
149617 

.13426-31 

.73916+00 

.19396+00 

OOOOO 

00900 

01500 

-2,  500000 
-1.000000 
-.235700 

-.425912 

-.463200 

-.777203 

-2.214445 
-.990269 
-.4112  87 

. 1C34E-01 
• 7238E+00 
. 23226+  00 

ooooo 

ooooo 

15300 

-2.590000 
-.  6 0 U 0 0 0 
-.381500 

-.397891 

-.246251 

-*883807 

-2.250969 
-.600  392 
-.  560  3 79 

.98776-02 
•7233E+C0 
.22636+  (0 

OOOOO 

00003 

52600 

-2. 500000 
-• 49G000 
-.515300 

-.366576 

-.075231 

-.927341 

-2. 2500 74 
-.  20  0104 
-.632837 

•2342E-G2 

•6604E+G0 

.21576+00 

90000 

10000 

L5300 

-2.500000 

0.030000 

-.552900 

-.366578 

.075231 

-.927341 

-2. 250374 
• 200104 
-.632837 

.23426-02 
.68046+00 
• 21  5 7 6+  uQ 

10900 
1090  0 
11500 

-2.500000  -.397801 

• AOOOOO  .2*46251 

-• 515300  -.883837 

-2.  250969 
.600392 
-.560379 

.98  776-02 
.72336+00 
• 22 636+  U 0 

IOQOO 
19000 
15  700 

-2. 530000  -.425912 

.800300  .463200 

-.381500  -.777203 

-2.  214445 
.990269 
-. 411287 

.10346-01 

•72386+00 

•23226+00 

1090  3 
>59  0 0 
9 00  0 

-2.530000  -.597981 

1. COO 000  .747834 

-.235700  -.268382 

-2.218024 
1.  240  723 
-. 149617 

.13426-01 

.73916+03 

•1939E+00 

..... 

....... 

10  00  0 

000  3 

pOO  3 

-3.003000 
0. 000090 
0.000000 

.866756 

.411733 

•275208 

-2.  62  6833 
• 68  7692 
•149145 

0. 

•11 67E+01 
•23166+00 

t 

r 

L 


E 

€ 


PROGRAM 

PBOXC 

ATMOSPHERIC  SCIE 

NCE  ASSOCIATES 

EECFORO,  MASSACHUSETTS 

BODY  10 

. TEST 

TEST 

BO  0 Y 

N N 

X 

X 

X 

X 

Y 

y 

Y 

Y 

Z 

z 

Z 

Z 

9 2 

-2.500000 

-2.580600 

-3.000060 

-3.0CCOCO 

•800000 

.403000 

0.000000 

0. 030000 

•381533 

• 5153  00 

0.  0 6000  0 

0.003000 

3 

-2.500000 

-2 • 50  3000 

-3.060000 

-3. COO  000 

.409000 

0.900000 

o.oooaufi 

6. 030600 

.515300 

• 552830 

0.000300 

0.000000 

4 > 

-2.500000 

-2. 50  j 0 00 

-3.000009 

-3.000000 

0.000000 

-.400000 

0.000000 

Q. 000600 

.552800 

. 515300 

0.090000 

6.030000 

5 

-2.500000 

-2.500000 

-3.000000 

-3.600000 

-.400003 

-.800000 

Q. 000000 

0.6  3000  0 

. 515300 

.381500 

0.000000 

9. 603000 

6 

-2.500000 

-2.500000 

*3.0  6000  0 

-3.030000 

-.800000 

-1.055000 

0.000063 

0. 060000 

.381500 

0.000000 

0.000006 

0.090030 

7 

-2.539000 

-2. 500000 

-2.  000069 

-3.090000 

-1.055000 

-.800006 

0.000003 

0. 000900 

0.  00000  3 

-.  381500 

0. 606300 

0.030030 

8 

-2.500000 

-2. 500000 

-2.  000000 

-3. 090000 

-.800090 

-.400000 

0. 000006 

0.300000 

-.381500 

-.  515300 

0.000300 

0.600000 

9 

-2.500000 

-2.500000 

-3.360  000 

-3.033000 

-.400000 

0.000000 

6.000000 

3.606300 

-.515300 

-.55  28  00 

6. 00300  C 

9. U3GCG0 

10 

-2.503000 

-2.500000 

- 2.000000 

-3.  OflOOCO 

0.030000 

.40  0000 

0.000000 

6.036000 

-.552800 

-.515300 

0.000300 

U. 000060 

11 

-2.500000 

-2.500000 

-2.000000 

-3. 033000 

•430000 

.809000 

0.003000 

6.003000 

-.515300 

-.381500 

0.000060 

6.003300 

12 

-2.500G0O 

-2. 500000 

-2.  000000 

-3. 006006 

•800000 

1.055000 

0.000000 

0. 000600 

-.381500 

0. 0CQC00 

0.090000 

O.OOOQOC 

***** 

******* 

*«*****#+*• 

FOIDOUr  fRA?r>  Jf  139  BASIC  ELEMENTS  HERE  INPUT 


NX 

NY 

NZ 

776209 

200002 

597912 

740175 

062764 

669478 

74C175 

062764 

669478 

776209 

200002 

597912 

868756 

411733 

275208 

868756 

411733 

275208 

77620  9 
200002 
597912 

7 4017  5 
062764 
669478 

740175 

062764 

669478 

776209 

200002 

597912 

868756 

411733 

275208 


CRT  PLOTS 


MINIMJM  A NO 
X AXIS* 

Y AXIS* 

Z AX  IS* 


H AXIMUM  COORDINATES  IN  THE 
•3.00QCOE+00  2* C0u0JE+80 

-2.00SB0E+SD  2«  fOOOOE+OO 

“!•  0 3 CD 3E+ CiD  i»  COiiOOE+Ofl 


SCALfcO,  TRANSLATED*  RCTATEO  SYSTEM 


COORDINATE  TRANSLATIONS  US 
AFTER  SCALING,  TRANSLAT 

VIEW  OF BODY  LOOKING  001 

45-DEGREE  VIEW  FROM  THE 
45-OEGREE  VIEW  FROM  THE 
45-OEGREE  VIEW  FROM  THE 
45-DEGREE  VIEW  FROM  THE 
VIEW  OF  300Y  LOOKING  DC!' 
45-OEGREE  VIEW  FROM  THE 
45-OEGREE  VIEW  FROM  THE 
VIEW  OF  BODY  LOOKING  DOW 
45-DEGREE  VIEW  FROM  THE 
VIEW  OF  BODY  LOOKING  DOWN 
VIEW  OF  BODY  LOOKING  DOWN 
VIEW  OF  BODY  LOOKING  DOWN 
45-OEGREE  VIEW  FROM  THE 


ED  to  center  the  plcts  - delx, oely, oelz 

ING,  ROTATING  - S.OOflCSE-Ol  C. 

TOWARD  THE  ORIGIN 


i THE 

-Y 

AXIS 

♦X 

-Y 

+ Z 

SIDE 

+x 

-Y 

-Z 

SIDE 

-X  , -Y 

♦ Z 

SIDE 

-X 

-Y 

-z 

SICE 

1 THE 

-z 

AXIS 

-X 

♦ Y 

-z 

SIDE 

♦ X 

♦ Y 

-z 

SIDE 

1 THE 

-X 

AXIS 

-X 

+ Y 

+z 

SICE 

I THE 

♦ X 

AXIS 

THE 

+ Y 

AXIS 

THE 

♦ z 

AXIS 

♦X 

+ Y 

♦ z 

SIDE 

TOWARD  THE  ORIGIN 


TOWARD  THE  ORIGIN 

TOWARD  THE  ORIGIN 
TOWARD  THE  ORIGIN 
TOWARD  THE  ORIGIN 


BOXC 


PROGRAM  BOXC 

ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 

PAGE 

BODY  ID.  TEST 

TEST  BODY 

INPUT  PARAMETERS- 


IFL AG=  0 LIST*  C IS IG*  0 IPRS=  9 MPR*  C 

NCOOE-  0 NNON=  C NCFF*  d KMAGH=  0 KTPi4=  1 

NUMBER  OF  LEAKY  QUADRA LATERALS*  C FRACTION  OF  FREE-STREAM  VELOCITY  LEAKED 
PARA  M FT  R I C INFORM  A TIC  N 

GENERATED  UNIFORM  FLOWS 

X-F.OW 

NO  SYMMETRY  SPECIFIED 


PROGRAM  BO  XC 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD*  MASSACHUSETTS 


BODY  10.  TEST 


N M X 

Y 

Z 

1 1 24  30CC3  0 

0. 099 00 G 

0. 903909 

2 2*aocono 

0*300000 

0.003CG0 

3 2.39?003 
0. OOOCflO 
C.  ) 03 30  0 

4 2.090000 
0.000300 

0. 0 00  coo 

5 2.30*1000 
0. 330000 
0. 0000  CO 

6 2. 303030 
0.303030 
0.03000  0 

7 2.000000 
6. 100003 
Q. 330030 

8 2* 302000 
0. 903003 
0 « 0 0 9 0 P 0 

9 2.330C00 
0.1  3 33  09  9 

c. ooscco 

1C  2.' 30.3000 

Q . 309 CO  C 
0. 339030 

11  2.301000 
0. 313030 
0.393030 

12  2.  300000 
C.0930CD 
fl.  a 93  03  0 


TEST  BOCY 

X X 

V Y 

z z 


2. CO  0 000 

1.503030 

C. 000003 

1 .670000 

9.G0P090 

.229708 

2. 00 D 00 9 

1.503000 

0.003003 

1.466300 

3.0C3000 

.465960 

2. 090  COD 

1.533300 

0. 000009 

1.140030 

0. 000030 

. 652020 

2.  000(300 

1.500020 

O.COOOOO 

•800000 

0.000003 

.768103 

2.000000 

1.503003 

0.000000 

.400000 

3.  C C 4 0 0 9 

.842600 

2.  00  0000 

1.500000 

a.ocoosa 

0.000000 

0.000080 

.866000 

2. CO  0 000 

1. 503000 

Q.QwOOGO 

-. 4 GO  G u 0 

3.603000 

•800030 

2.00*3530 

1.5  0300  0 

0.600000 

-.800062 

0. 00  0000 

. 6 0 3 0 U 0 

2.603000 

1.500022 

a. ooo coo 

- 1.20000  U 

0.003600 

.400923 

2.060000 

1.500000 

0. too GOO 

-1.  660 OU 0 

C. 003000 

.202020 

2.00-1  COO 

1.500000 

a. ooooco 

- 3*7  32000 

0. 000030 

'0.000300 

2.  000000 

1.5  CO 000 

0. 093009 

-1.67000  0 

o.ecoooc 

-.229700 

X 

NX 

Y 

NY 

Z 

NZ 

i.  500  DC  0 

I 4956986 

1. 732000 

*276584 

C.  *,03000 

' .C74655 

1. 59 C GOO 

4 941794 

1. 670300 

4251249 

.229700 

4223380 

1. 500000 

.915363 

1.  460  00  0 

.202414 

.4659U0 

.348052 

1.530  006 

4891771 

1. 140000 

i 4146221 

. 652060 

j 4428  210 

1.500000 

.874522 

.800500 

.388302 

.768120 

.476787 

1. 500 320 

.1865649 

•400600 

4029238 

.842600 

.-459797 

1.  53CCC0 

• 8 63  38  7 

0. 033000 

-.062222 

.6  6603  0 

.498316 

1 • ! 

1. 520020 

j .872672 

-.406000 

-.1218  216 

.808000 

• 43643  6 

1. 502200 

.872872 

-.600000 

-.218218 

.630360 

.436436 

1. 510000 

.872872 

1.20  2 00  0 

-.218218 

. 40 C 020 

.436436 

1. 5 3D  0 3 0 

.945063 

1.630909 

-.272824 

• 22(3  32  0 

•139564 

1. 500GC0 

• 9 5808  6 

1. 732600 

-.276584 

0.  OOCGOO 

-.074655 

P‘1 


NPX  1 
NPY  ; 
N°  Z 

1.  55135 
1*  38  97? 
4 C9435 

1.  55ti3<i 
1*25402 
4 25  292 

1.  60  51  j 
1.  Cl  953 

• 44  56i 

| 

14  60  92 3 
4 75032 
4 55  74ij 

1.  620  20 
4 44790 

• 613  98j 

1*624311 
. 14708 
.64122 

] 

1.  62  60  4 
-. 14031 
4 62  322! 

i i 1 

i 1.  62723 
-.44234 

• 52  411 

! 1 

j 1. 61862 

‘-.75116 
. 36  677 

1.  60  714 
-1.  38  597 
. 24  271 

1.  56  979 
-1.136520 
r 08  446 

1.  53139 
-1.38979 
- . 09439 


Foioour  If 


KOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


| BOCY 


f 

X 

X 

NX 

NPX 

[ 

Y 

V 

NY 

NPY 

Z 

z 

NZ 

Np  Z 

9 

1.  503000 

1. 500000 

.956  036 

1.  59139  5 

9 

1.670000 

1. 732000 

.276584 

1. 38  97  94 

1 

.22970(1 

c . v u •:  o p o 

•C74655 

• S948  99 

1 

1.500000 

1. 53C0C0 

.941794 

1. 59  63  49 

1.460000 

1.670300 

.251249 

1.254320 

.465900 

.229700 

.223380 

. 262927 

1.503300 

1. 500000 

.915363 

1.  €0  5113 

I«l430u0 

1.  t6u00IJ 

.202*1* 

1.  Cl 9539 

• 6520C  0 

.465900 

.348052 

.445612 

1.500300 

1.  531)000 

.891771 

1.  60  92  75 

.800000 

1.140000 

.146221 

. 75  0 3 20 

• 7 68 i Q J 

. 652000 

« 4 28  210 

• 55  7 494 

1.593003 

1. 500000 

.874522 

1.  €20269 

.400000 

.800200 

. 3 8 8 8 0 2 

• 4479 1/ 1 

.842600 

. 768 1 u 0 

.476787 

.613081 

- 

1.500000 

1. 500000 

• 8 65649 

1*  6:248  11 

0.300300 

.490000 

.029238 

. 1470  89 

.866000 

.842603 

.499797 

.641222 

1. 5 90  00  0 

1.  5 3 1 C C 0 

.863387 

1.  62  60  41 

-.  4 0 3 0 U 3 

0 • 0 0 0 0 0 0 

-.062222 

-. 146316 

.800000 

.666000 

.498316 

.623224 

1.5  0 3 00  0 

1. 500000 

.872672 

1.  €2  7233 

-.800380 

-.490000 

-.218216 

-.44  26  *6 

• 6 C 3 0 u 0 

.SOC COO 

. 43643  6 

• 52  4111 

1.5  00  000 

1.504000 

.872872 

1.  618821 

-1.200000 

-.630000 

-.218216 

-.751160 

•400003 

.630300 

.436*36 

• 366778 

1.500000 

1. 50G3GO 

.872872 

1.  €0  7148 

- 3.  600  300 

-1.200000 

-.218218 

-1.  38  5976 

•200000 

• 40 C 30  0 

.436436 

. 242716 

1.500000 

1.  53  C 0 0 0 

.945963 

1.  589795 

- 3.732000 

-1.630033 

-.272824 

-1.  36  52 C 6 

0. 0 00 303 

. 200030 

.180:16* 

. 08  4464 

1.50300  a 

1. 500  COO 

.958086 

1.  591395 

-1.670300 

-1.  782000 

- .2  7658  4 

-1.389794 

-.229700 

a. cot 0CO 

-•C-74655 

-. 394899 

L 

■ 

*f9onurmfr< 

0 

T 

A 

0. 

.18  C3E  + 01 

• 20  7 6£+  v Cl 

•S882E-15 

• 17  58E+C1 

• 23  50  E4  CO 

• 26  6 5E-14 
•16 12Ef 01 

• 22  99E+ iG 

• 2665E- 14 

• l4a5E+01 
.19c5E+  to 

•9992E-15 
» 12 17E*  Gi 
•2097E+CU 

• 2 2 2 0 E- 15 

• 1C58E+01 

• 20  C i £+0  0 

•2220 E- 15 
•1C25E+01 
•2C07E+L0 

•8862E-15 
• 1118Ef 01 

• 2291E«-ufl 

•1776E-14 

• 13  6GE-H;  1 

• 22'3'IE+uO 

• 88 8 2 E- 15 
• 1688E+C1 
•2291E+00 

0 . 

•18G3E+01 
.18  22E+QC 

4 • 

.i8  03E«-ai 

• 20?6E«-G0 


. ....  .ii 


PROGRAM  BOXC 
BODY  10*  TEST 


N M 


1 13 


14 


15 


16 


17 


18 


i\> 

ro 


20 


21 


22 


23 


2 1 


Fotoour  fRAi* 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
8E0F0RD,  MASSACHUSETTS 


TEST  BOO Y 


X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

NP\ 

Z 

Z 

Z 

Z 

NZ 

NP2 

1 

2*033000 

2. 000000 

1.500000 

1.  500  CCO 

.941794 

1 

1.  598 

0. 9009CO 

0. CO  COCO 

-1.460000 

-1.670000 

-.251249 

-1.25^ 

0*  300000 

C • QC  1000 

-.  <+6590  3 

-.2297133 

- • 223383 

-.28  2 

2.30CC30 

2.000900 

1.50J0.30 

1.830  03  0 

.915363 

1.  608 

3.000000 

o.ocoooo 

-1.1<+0QG0 

-1.460030 

-.  202  414 

-1.  01^ 

0. 3000CQ 

0*  00  3 000 

-.652033 

- . 465y C 0 

-.346052 

- • 448 

1 

2.303000 

2. 00 0000 

1.  503000 

1.500000 

.691771 

i.  eo^ 

0.  103000 

P.OOuCOi} 

-.8  oo'joe 

-1.  143  00  9 

-.146221 

-.750] 

3.330030 

0. 001000 

-.768100 

-. 652000 

-.426213 

- . 55  7\ 

2.030000 

2.  0 0 0 Q 0 0 

1. 5 OuO  3 J 

1. 500000 

.874522 

1.  6201 

o. 3onrno 

a.OQGOflU 

-.<+00300 

-.833000 

-.058802 

-»  44  7( 

•3.  3 3 30?  0 

R.fioorao 

-.842603 

-.768100 

-.<♦7678  7 

-.613'; 

2.303009 

2. GGOOO0 

1.530309 

1. 533000 

.865649 

1.62  41 

0. JOOOOG 

0.  00 J C 0 0 

3.930003 

-•<+39030 

-.029238 

-.  14  7i 

0.333003 

3.003000 

-.866009 

842600 

-.499797 

- . 641! 

2. J00G0C 

2.000000 

1.500303 

1.  5 0 G 0 Q Q 

.865649 

1.  €2  41 

0. 000035 

0.000000 

.430003 

9. 9 1C  00 3 

.0  29  236 

. 1471 

0. 303y00 

c . o o o o o a 

-.842600 

-.6  66  00  0 

-.499797 

-.641! 

2. 000G0C 

2.000000 

1.500093 

1. 530000 

.874522 

1.  620! 

2. 30J0QC 

G. OCGOCO 

.600000 

. 40  COCO 

.068602 

.<+47* 

R. 303^03 

G.OOGCOO 

-.768100 

-.842600 

-.476787 

-.6131 

2.400360 

2.009000 

1.53000 J 

1.530003 

.691771 

1 . eo  9! 

0.950000 

9.90  0 000 

1.  1 <+3 09  9 

.690000 

.146221 

.750! 

0.000000 

0 . 0 0 0 0 0 o 

-.652000 

-.766100 

-.428213 

-.557' 

2.  3320 vlC 

2. 003003 

1.500300 

1. 500000 

.915363 

1.  645: 

0 . 3030 3 3 

0. 00  fit  00 

1.  <+60009 

1.  1<+Q0t0 

. 202414 

1.019! 

0. 309000 

6 'Ot 0800 

-.465933 

-.652900 

-.348352 

-.  445! 

2.033030 

2 . 0 0 "G  0 0 G 

1 • 5 U 0 3 v 0 

1. 500000 

.941794 

1.  59 8, 

0.  303  00  0 

G . OC  3 000 

1.670900 

1.  460 CO 0 

.251249 

1 . 25  41 

0.000000 

0 .000000 

-.229720 

-.465900 

-.223380 

-.262' 

2. 303000 

2.000000 

1.500  03  0 

1.500  30  0 

.958086 

1.  591! 

0.039003 

0.000090 

1.732939 

1. 676000 

.276584 

1.  36  9i 

0.0 3303 0 

0 .1000990 

0.330 030 

-.229730 

-.074655 

-.  £94! 

1.500000 

1.  50  0 COO 

1. 880008 

1. uUOOOC 

.435365 

1.  22 Ul 

1.732000 

1.6  7 0 Oii  0 

1.873000 

2.  OOCQOO 

.655263 

1.831! 

C. 030000 

.229700 

.354690 

0. UO0OCO 

• 26103(3 

. 149! 

ATMOSPHERIC  science  associates 
BEDFORD,  MASSACHUSETTS 

TEST  90DY 


X 
[ Y 
i Z 

t 

\ 

00  0 C 00 
061003 
DC  <1000 


X 

Y 

z 


1*500060 
-3.46 0000 
-.465903 


105003 

j 0 0 0 0 0 
iooooo 


1.503030 

-1.140000 

-.652003 


X 

Y 

Z 

1.  500  OCB 
-1.670000 
-.229700 

1. 53C3C0 
“1. 460000 
-.465900 


io  0 000 

io  u ooo 

jflOCGO 


1. 503000 
-.8  00  00  0 
-.  76810  0 


[oaooo  i.5aofloo 

B 3 QQU  -.400300 

83C00  -• 842603 


1. 500000 
-1.  140  COO 

-. 652000 


1.  5-20  00  0 
-.630000 
-.  76 6 10 n 


BO  000  1.533 30  0 

DSC  00  3.0  30900 

DOCOO  -.866000 


1. 530003 
-.43*0  9u  3 
-. 842600 


DOC00  1.500003 
>0000  .433003 
IOOQO  -.842600 


1. 530000 
0*696909 
-.666000 


1300  0 
10000 
I3C30 


1*503003 
.63000  0 
-»  7 6810  0 


1. 530003 
• 43 U 30  0 

-.842600 


OOGQ  l. 530COJ 

0000  1.140033 

0000  -.652003 


1.530020 

• soecfio 

-• 766100 


6003  1*509000 

pcoo  1.  460009 

0000  -.465900 


1*500000 

1.  1400  L 0 
-.652000 


IICQO  1 • 5 U3  Ow  9 

IJOOO  1,67090  0 

1!C  00  -.2  297  0 0 


1. 530000 
1.  460  CP O 
-.465900 


1 o 0 C 1,5  00  03  0 

flOOO  1.732000 

1000  0.8  30  000 


1. 5Q0  uC  0 
1. 670000 
-• 229  7U  0 


COO 
JfiO 


CQ 

l. 

I; 

i 


1*033000 
1.873900 
. 3 5463  0 


1.  U0U0O0 
2. 030000 
S.  w 09 00 0 


NX 

NY 

NZ 

.941794 
- .251249 
— . 223380 

.915363 
-•2C2414 
-.346  05  2 


.891771 
-.146221 
-.428  213 

.874522 

-.088802 

-.476787 

. 865649 
- .029238 
- .499797 

.865  64  9 
• 0 29  236 
-.499797 

. 8 7452  2 
. 08860  2 
-.47678  7 

.691771 

•146221 

-.428213 

•915363 

.202414 

-.348352 

-i  .941794 
' *251249 
-.223388 

.958086 
.276584 
-.07465  5 

.435365 

.655263 

•26103a 


PAGE 


N3X 

NPY 

NPZ 

1.  598349 
-1.  25  4020 
-.282927 

1.  635113 

— 1.  0.1  9539 
-.445612 

1.  60  92  75 
-. 750320 
- . 55  749^ 

1.  620269 
-.447901 
-.613081 

1.  624811 
-•  1470  69 
-•  641222 

1.  62  4811 

• 147089 
-.641222 

1.  620269 
. 44  79 ul 
-.  61 30  o 1 

1.  60  9275 

• 75  a 3 20 

— . 55  74  94 

1.  63  5113 
1.019539 
-.  445ol2 

1.  59  6 3 49 
1 . 25  40  20 
-.262927 

1.  591395 
1.  36  9794 
-• C94899 

1. 223560 
1.831729 

. 14  99  00 


3 


0 

T 

A 

• 88  8 2E- 15 
.17E8E+C1 
•2358E+C0 

.26  65E-14 
. 16 1 2E+0 1 
•229SE+00 

•2665E-14 
* 1405E+Q1 

• 196  5 E* CO 

•9992E-15 

•1217E+01 

• 20  9 7E  + C 0 

•2220 £-15 

• 10  5 6E+ 0 1 

• 2GfclEH3 

•2220 E- 15 

• 10  582+0 1 

• 20  3 1£  *-00 

•9992E-15 

• 1217E+  31 
•2O97E+U0 

. 26652-14 

• 14 C5 £+01 

• 196  5 E + 30 

•2665E-14 

•1612E+01 

•2299E+0Q 

•8682E-15 
*17  5 8E  + 01 
. 23  50  E+ CQ 

0 . 

.16  C3E+01 
• 2G 76E+00 

•5764E-02 
• 6416E+0O 
. 170 6 £♦ 00 


•'fBonurimt,  J2 


PROGRAM 

BOXC 

ATMOSPHERIC  SCIE 

MCE  ASSOCIATES 

BECFORO,  MASSACHUSETTS 

PAGE 

BODY  ID 

. TEST 

TEST 

&ODY 

N M 

X 

X 

X 

X 

NX 

NPX 

Y 

Y 

Y 

Y 

NY 

NPY 

z 

Z 

Z 

Z 

NZ 

NPZ 

2 2 

1.500C30 

1. 500000 

1. 300323 

1. COG 000 

.390089 

1.241719 

1 ,67*3  6 0 0 

1.465003 

1.600993 

1. 870390 

• 

6 5217  9 

1.  652830 

.2  2970  0 

.465900 

.600003 

.354600 

• 

653004 

• 41  468  0 

3 

1.500000 

1.  500000 

1. 003000 

1. 330000 

• 3 24553 

1. 2416  30 

1. 463000 

1.140C09 

1.200003 

1.600000 

44700  6 

1.  351646 

•46590 0 

. 65290D 

•809002 

.600005 

833577 

.631851 

4 

1.5  3008  0 

1. 50  0 COO 

1.060000 

1. 3 SC  009 

286009 

1.242990 

1.140  0 0 0 

•601000 

.800000 

1. 20CCC0 

287154 

. 965715 

.652000 

.766100 

• 916500 

* 6GCQ0Q 

913561 

. 786135 

5 

1.53300  0 

1.500000 

1.000000 

k. 000000 

270929 

1.  25  0160 

.809000 

. 403009 

. 403000 

1 .600030 

163401 

• 601*0  88 

,,76810  0 

.842600 

.979690 

.916500 

948629 

. 876683 

6 

1.533  CO  0 

1.500000 

1.303039 

1.  090000 

2 61 38 h 

1.  25  0 017 

•400000 

O.OOOGOG 

0.903000 

.400030 

052527 

.201.0  26 

.842600 

.866000 

1.300003 

.979800 

9 638 Q 5 

.922094 

N. 

23 

1.500000 

1. 582000 

1.009000 

1. O0GOGO 

12614Q 

1.  2460  98 

0..  9000G 

-.400000 

-.400030 

0. 0G3O0G 

- 

312996 

-.  19  95  66 

. 16600  0 

•8B0GO0 

• o 0 0 0 0 0 

1.G90000 

941341 

.867167 

8 

1..5  0D0  Q 0 

1. 5OCOO0 

1.300000 

1.009900 

a 

000000 

1.  25  u uOfl 

-.^00030 

-.800003 

-.800000 

-. 400000 

- • 

447214 

-.600000 

.,8  00  00  0 

• 605000 

.690003 

• 800000 

894427 

• 70  0 u ii  3 

9 

1.530000 

1.500000 

1. OO0  3O  U 

1. 030000 

0 

003000 

1.250000 

-.830000 

-1.209000 

- 1.200000 

-.60G0C0 

- 

447214  -1.06  0000 

.633000 

.403090 

.400000 

• 63000  0 

! 

894427 

.50  U0U4 

10 

1,533003 

1.500000 

i.OiHOGO 

l.OOCQOO 

0 

000093 

1.:  25  U0  00 

-1.200000 

-1.60QGGQ 

- 1.600  3C0 

-1.  2C0000 

- 

447214 

•1.4C00CO 

. 4QDC0  0 

. 2Q0CC0 

.200000 

. 490000 

894427 

• 30  00 Cu 

11 

1.530000 

1.500003 

i. 0 09  flu  9 

1.030000 

159008 

1.  2167  89 

-1.630000 

-1.732000 

-2.0  0030  0 

-1.600000 

i- 

593315  -1.  739216 

•:  2 0 3 C 0 0 

0. 000000 

0.903 00 U 

. 290900 

789109 

. 10  20  18 

12 

1.533000 

i.50 Doo a 

1.003009 

1.  COS  000 

■ : 

• 

435365 

1.220560 

-1. 732000 

-1.670003 

- 1.87000  C 

-2.GO00OO 

•l 

655263  -1.  831729 

9.030000 

-.22  9700 

-.354600 

0.000000 

- « 

281038 

-.149900 

13 

1.503000 

1.503000 

1.000909 

1. 000000 

390089 

1.241719 

-1.673030 

-1. 46  CO  03 

-1.603000 

-1.870000 

-w 

652170  -1.  652830 

) 

-.229700 

-.465900 

-.603900 

-.354630 

im 

650004 

-.  41468  0 

Fotoour  f m*  j I 

ERIC  SCIENCE  ASSOCIATES 

fORO,  MASSACHUSETTS  PAGE  4 


f 


! X 

X 

NX 

NPX 

C 

f Y 

Y 

NY 

NPY 

T 

f z 

Z 

NZ 

NPZ 

A 

Ucoaoo 

1.000000 

.390089 

1.241719 

•8288E- 02 

>•6  uQOfl  0 

1.878090 

.652170 

1.  65  28  30 

•6561E+80 

Uooaos 

. 3 546C  0 

.652084 

• 41466  0 

.18466+Gi) 

i*  0 o a 3 6 Q 

1. 030300 

.3  24553 

1.241630 

.60436-82 

^ 20000  0 

1.600000 

.447006 

1. 351646 

. 68146+ iO 

1,8  02 02  3 

.600009 

.833577 

.631851 

• 21  596+20 

[•030000 

1. tOCOOO 

.288009 

1.242959 

.42166-02 

•800000 

1. 230000 

.287154 

. 98  5715 

• 66  CiiE+00 

[•91650  0 

• 8QC000 

.913561 

. 786135 

.20  256+00 

[•  000000 

1«  000  000 

.270925 

1.  25  016Q 

•2656E-02 

;•  403000 

•600930 

.163401 

. 60  0 0 88 

•6744E+0Q 

.979800 

•916500 

.948629 

. 8766  83 

*21 C8E+8G 

•.003033 

1.  030000 

.26138* 

1.25  0017 

•771CE-03 

•300000 

•400080 

.052527 

.200026 

•65S4E+O0 

• 002000 

.979300 

.963805 

. 922094 

•2C75E+U0 

• 000080 

1.  20(1000 

.126140 

1.  2460  98 

• 3153E-01 

•408023 

0.008000 

-.312996 

-.  19  9566 

.67G8E+30 

t • 6 2 0 02 0 

1.  (380  080 

• 941 341 T 

. 867167 

•2125E+C0 

[•000900 

1. 283980 

0. CO  0 03 0 

1*  25u<JuQ 

• 35  53E-14 

:«  800083 

-. 490000 

-.447214 

-• 60  00  00 

.67  08  6+  u 0 

•600000 

.800000 

.894427 

. 7 0 (s  j u 0 

•2236E+2Q 

.•  000  30  0 

1.2  30  00  0 

3. 0 83  00  8 

1.  252000 

• 35  53E- 14 

1.200900 

-.632900 

-.447214 

-1. 003000 

. 670  6E  + wO 

•400000 

. 630000 

.894427 

. 50  00 UO 

• 2236E+Q0 

[•08000  0 

1.000000 

8. 0 GO  009 

1.250000 

.6661E-14 

[•  60030  0 

-1.  200  900 

-.447214 

-1.  40  0000 

.67  £ 8 E + C G 

• 20000  0 

. 400000 

. 8 9442  7 

• 30  OOcy 

.2236E+GU 

•oooaufl 

1.030000 

.159308 

1.  216789 

•3975E- £1 

UU 00300 

-1. 600 OCO 

-.593315 

-1.  73  9216 

• 67  b 6 E + CQ 

•003900 

. 200209 

.789109 

. 10  2018 

• 1685E+  -JO 

..003020 

1.  £ 30  00  9 

.435365 

1.220560 

•57646-02 

1*87300  C 

-2. 090090 

-.855263 

-1.  831729 

•64166+00 

*35460  0 

0.000000 

-.281038 

-. 1499 uC 

• 17Q8E+t£l 

.•000903 

1. 000900 

.390889 

1.241719 

• 8268  E- C 2 

..6  0300  0 

-1 .870000 

-.652170 

-1.  6528  38 

• 65  61E+  00 

•603990 

-,354680 

-.650004 

- . 41 4680 

•1 846E+U0 

nnomircRAfv, 


PROGRAM 

BO  XC 

ATMOSPHERIC  SCI 

ENCE  ASSOCIATES 

BECFORD.  MASSACHUSETTS 

PAGE 

BODY  ID 

. TEST 

TEST 

BOGY 

N M 

X 

X 

X 

X 

NX 

NP  X 

Y 

Y 

Y 

Y 

NY 

NP  Y 

Z 

Z 

Z 

Z 

NZ 

NP  Z 

2 14 

1.503000 

1. 5C0OGO 

1.000000 

i.  ouacoc 

.324553 

1. 241630 

- 1. 463  00  3 

-1.140003 

-1.20U0G0 

-1. 600 04 C 

- .44709  € 

-1. 351646] 

465900 

-.  65  2000 

-.830000 

-. 630000 

-.633577 

-.631851 

15 

1.503000 

1. 509000 

1. 000000 

1.808000 

.288009 

1.242990 

-1.140000 

-.  50  0000 

-.8  0300-3 

-1.203000 

-.287154 

-.98  5715' 

-.652000 

-.768100 

-.916500 

-. 890000 

-.913561 

-.76  6135 

16 

1.500000 

1.500000 

1.000900 

1.  20000  0 

.270929 

1.  25  C1 180 

-.600000 

-.400000 

-.400000 

-.808000 

-.163401 

-•  6C  C-368i 

-.768100 

-.842600 

-.979800 

-.916500 

-.948629 

-.376683 

17 

1.590000 

1.508000 

1.000000 

1. 030000 

.261384 

1.  25  0017 

-.400090 

O.  GO 00.00 

G • 0 0090  0 

-•430000 

-.052527 

-.200  0 261 

-.8142600 

-.866000 

-1.000300 

-.979800 

-.963605 

-.922394 

18 

i. 530090 

1.500300 

1.U0J0S0 

1.  030  COO 

.261384 

1.  25  00 17 

0.030000 

.400000 

*40u0u0 

3. G 30 000 

.052527 

. 2C  0Q  26 

-.865090 

-.842600 

-.9798GG 

-l.  cdoooo 

-.963805 

-•  92  20  94- 

J 

19 

1. 5 0(1  193 

1.508900 

1.0  30  00  9 

1.030000 

.270929 

1.  2501801 

.403000 

•800000 

. 8 0 u O G 0 

. 400000 

. 1.63  40  1 

• 6 ii  t C 6d 

-.842630 

-.768100 

-.916500 

-.979800 

-.948629 

-.  8766631 

20 

1.  500  90  0 

i. 50 C 300 

1.300000 

1.000080 

.288809 

1.  2429901 

.809009 

1.  143  000 

1.203009 

.600080 

.287154 

.96  5 7151 

-.768103 

-.  65  20  00; 

-.803940 

-.916500 

-.913561 

-.76613  5j 

21 

1.  5330(30 

1. 500000 

1.9  0030  3 

1.40  mo 

. 324553 

1.  241630] 

1.140000 

1. 462000 

1.600030 

1.  203  00  0 

.447006 

. 1.351646! 

-. 652O0C 

-. 46590C 

-• 600303 

-.6  3300  0 

-.8  33  577 

-.  6318  511 

22 

1.5,3000  0 

1. 509000 

1.903000 

i.esosoo 

.390089 

1.241719 

1.46900  0 

1.67  0 000 

1.870000 

1.606030 

.652170 

1.  65  28  30 

-.465900 

-.229700 

-.354600 

i 

-.600000 

-.650034 

-.  414680! 

23 

1.  509  00  0 

1.  50  9000 

1.00  vOuC 

1,6  00  000 

.435365 

1.  22  0 560: 

1. 673000 

1.732000 

2.0  O-"  .!;  0 

1.670000 

.855263 

1.  331729 

-.229700 

rs,  oisanoo 

O.yCVSO 

; -.3  54  68  0 

-.281038 

-.149900 

3 1 

1.QO0GOQ 

1.  0 0 C*  0 0 G 

!) . 0 0 0 

0. 006 000 

o.  ooo  go  a 

• S3  GO  00 

2. Q0QC0  ' 

1.873000 

1.879303 

2. 000000 

.938893 

1.  93  53  GO! 

0.090000 

. 354600 

.354680 

0. GO  COO  0 

.34420  8 

. 177300 

2 

1. 3030V 

1.000000 

0. 000000 

C. 800000 

0.060000 

. 50  0000 

1.  8700  ’0 

1 . 60  0 GOO 

1.600000 

1.67C0C0 

.672591 

1.73  50  G< 

.3  54V  0 

.600000 

.60001*  0 

.354600 

.740014 

.477301 

FOtOOUT  fRA**.  |[ 
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NX  NP  X 0 

NY  NP Y j 

NZ  NP  Z A 


.3 24553 

1.  241630 

•6043E-C2 

-.44750  6 

-1.351646 

•68146+00 

-.833577 

-.631851 

.21596+00 

.288009 

1.242990 

• 4216E- 02 

-.287154 

-.985715 

» 66  C 0 E+  0 0 

-.913561 

-.786135 

.20256+00 

.270929 

1.  250180 

• 2656E-  1)2 

-.163401 

-• 60 C 068 

• 67  44E+00 

-.946629 

-.876683 

» 21 C8E  + C0 

• 261384 

1. 250017 

• 77 10  E- 03 

-.052527 

-.200026 

•6594E+GQ 

-.963805 

-. 922094 

•2C75E+00 

.261384 

1.  25  0017 

• 77  JuE-03 

.052527 

. 2C00  26 

.65946+  £0 

-.963805 

-.922094 

.20  75E  + C0 

.270929 

1.  250180 

•26566- C2 

.163401 

. 60  tC  88 

.67446+00 

-.948629 

-.  876683 

.21086+00 

.288009 

1.  242990 

.42166- 02 

.287154 

.96  5715 

• 66  £ 06  + 00 

-.913561 

-.  766135 

.20256+  £0 

. 324553 

li  241630 

• 60  4 3E-  0 2 

.447006 

. 1.351646 

.68 IhE+GQ 

-.8  33577 

-*  631651 

.21 59E+U0 

.390089 

1.241719 

•82eeE-02 

•652170 

1.  65  2 8 30 

• 65616+  CO 

-.650034 

-.  41  4680 

.18466+00 

•435365 

1.22  0 560 

.57646-02 

.855263 

1.,  331729 

•6416E+00 

-.281338 

-.14991-0 

.17  08  6+110 

0.0  08  COO 

• 50  fc  040 

0 • ! 

.938893 

1.  93 50 00 

.10696+01 

.34420  8 

.177300 

.37776+00 

0.060000 

* 50  0000 

.48856-14 

.672591 

1.  73  53 CO 

• 10  64E+01 

.740014 

.477300 

.36496+00 

rnOOUTfPA?,. 


PROGRAM  80 XG 
BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


TEST  BODY 


M 

X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

Z 

Z 

z 

Z 

NZ 

3 

1*000000 

1. 009000 

9.033066 

3. 330300 

3.363698 

1*600000 

1. 2CG000 

1.23000  3 

1.600000 

.447214 

.600030 

• 800000 

• 80300  0 

•6oncoo 

.894427 

4 

1.000000 

1. Off  0090 

u. a oo 090 

Q *630000 

9.0  OU  033 

1.  2:9900  0 

•300003 

.800003 

1.230000 

.279631 

.330000 

• 916530 

.916500 

.830000 

.96013  7 

5 

1*009000 

1.000040 

C.3G0QC0 

o.caeaoo 

0.0 60000 

•803000 

• 40  CO 00 

•490090 

• 8 00 oc  a 

.156305 

.9165  0 e 

.979830 

.979800 

.916500 

.987709 

6 

1. 500000 

1. 000000 

0. QOOOuO 

9. 030060 

9.0  CO  00  0 

.430000 

0. CO  3000 

3. 092 3 00 

.400000 

.050436 

.979800 

1.000900 

1.300000 

. 979860 

.998727 

7 

1.003000 

1.000000 

0*000030 

9.  0 00 30 0 

0* ocuooc 

3.300000 

-.  4.0  300  0 

-.  4 34  39  0 

9 • 09 0 03  0 

-.447214 

1.230C30 

.800000 

*8 09000 

1*400600 

.894427 

5 

i. 300000 

1 .000600 

U . 0 00  00  0 

3.  096000 

0*000300 

— . 400  0 0 0 

-.800030 

-.800009 

-.  430PC3 

-.447214 

.300000 

.60  003 G 

.600  00  9 

•640000 

.894427 

9 

1*300000 

1. 00  COCO 

0.3 00300 

0*003060 

3.3  00  900 

-.330000 

-1*  200000 

- 1.  2 00003 

-.830090 

-.447214 

.600000 

.400000 

.400300 

• 630  CO  0 

.894427 

10 

1.300000 

1.030000 

0*009000 

9.0300 00 

0.0  GO  600 

-1.200000 

-1.600000 

-1.609000 

-1.  29 C 90  0 

-.447214 

.400000 

. 200009 

.200000 

• 430  6 3 0 

.894427 

11 

1.030000 

1. 603030 

0.0  00  063 

4 * 0 3 C 0 0 0 

O.CilOOQy 

-1.600003 

-2.000090 

-2.000030 

-i.  639000 

-.447214 

.203030 

0.000000 

0.000090 

• 230000 

.89442  7 

12 

1.  G 30  00  0 

1.060000 

C.JOCOOu 

9. G30000 

0*000  030 

-2. 333300 

-1*870000 

t :.  a 70 09 a 

-2.  63c 03 9 

-.938893 

0. 300000 

-.  354603 

-. 3 5466  3 

0. 630000 

-.  3 4420  8 

13 

1. 333090 

1*000000 

0.030003 

0.300000 

0 .0 06  GO  3 

-1.870090 

-1. 609000 

-1.600300 

-1.870000 

-.672591 

-.354609 

-.600003 

-.  6 30  00  3 

-.254633 

-.7  49  314 

14 

1.300000 

1*000000 

0. 003000 

3.906006 

0 . 3 C J 0 0 u 

- 1.633000 

-1.2SCCOO 

-1.203039 

-1. 690900 

-.447214 

-.600000 

-*800009 

-.800000 

-.630030 

-.694427 

PAG 


NPX 

NPY 

NPZ 

•50000 
l.  4t!  o u c 
.70000 

• 50  030 

1.  00000 

.85625 

.50000 

•61333 

.94815 

. 50  000 
. 20  000 
. 93  990 

. 50  00  0. 
-.26  0031 
. 90  O Off 

. 5 0 0 0 0! 
-.66300 
.70000, 

.50030 
-1.66  300 
.56000 

. 50030 

-1.4(3  U8C 

• 30  0 30 

• 53000 
-1.800  01 

• I0w3( 

. SutiOj 
-1.93501 
-.  17  731 

. 5C  00 
-1.  73  501 
-.47  73! 

« 5c  Off 
-1.  40  Off 
-.70  00 


potoour  f m*  j/ 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEOFORO,  MASSACHUSETTS 

TEST  BODY 

X X 

Y Y 

Z Z 


OOOi! 

o.eojoy* 

3.230000 

0000 

1*20000  1] 

1.600000 

0000 

• a ooou  o 

•6oncoo 

GOOG 

U.tiOQOOO 

C. C300C0 

0 00  0 

.800303 

1.230000 

6506 

.916500 

. 8JOOCO 

0020 

0.000000 

0.600000 

0000 

.400000 

. 8 oc oca 

98  00 

.979800 

.916500 

OOGQ 

0*000000 

a. 030020 

0000 

0.000000 

.400030 

oooo 

1.000000 

. 979800 

oooo 

0.000330 

u . G 0 U u 0 0 

oooc 

”.401)00  0 

U . uUiiCOB 

oooo 

.800030 

1. vOOOOO 

oooo 

L. 000000 

J. 032000 

oooo 

-.800000 

-. 43C0C0 

0030 

• b 0 C 00  0 

.6 JOGCD 

coco 

0.000000 

0. 043000 

0 coc 

-1.2OO0OO 

-. 630000 

oooo 

.403000 

. 60 0 CO  Cl 

oooo 

3.000003 

3.000000 

oooo 

H 1.600000 

-1.29CU00 

oooo 

j .200000 

•400200 

oooo 

0.003000 

u.ojcooo 

DO  00 

-2.083080 

-1.  630000 

DO  00 

0.0 00030 

.200003 

i COD 

0.300300 

2. G 300  CO 

loco 

- :«8  700u0 

-2.  U 3ti  03 0 

*600 

-.35463  0 

0.  4)30000 

IOOC 

0.000000 

0.  uQOliOO 

kooo 

-1.600300 

-1.67C000 

loot) 

-.600003 

-.$54600 

1000 

0.003000 

0 .000000 

(COO 

boo 

- 1.2  CO  03 3 

-1.6JO0OO 

-.800000 

-.600000 

PAGE 

6 

NX 

NPX 

0 

NY 

N?Y 

T 

NZ 

NPZ 

A 

3 .30243 2 

•5000G0 

• 66  61 E- 14 

.447214 

1. 400300 

.1C 95E+G1 

.694427 

. 70  0-300 

•4472E+0G 

0.00UG3Q 

. 50  0000 

• 244  2E- 14 

.279631 

1.  00  0 0 GO 

♦ 10  £ 3E+  01 

.9  6213  7 

•856250 

•4166E+3Q 

0.0X0000 

.500000 

• 2442  E- 14 

.156305 

•610300 

4 10  79E+G1 

.987709 

.946150 

*40  5 0E  + 00 

0.0  CO  00  0 

. 500000 

•5551E-16 

.050436 

. 200000 

.1077E+G1 

.996727 

. 98  99 C O 

• 40C  5E+00 

0.008000 

. 50  00  00 

» 31 E9E- 14 

-.447214 

-• 20 i 0 8u 

• 10  9 5 E ♦ Q 1 

.694427 

. 96  0060 

. 4472E+0O 

0.0  OGuOQ 

• 50  0 0 uO 

• 3 5 53  E-  14 

-.447214 

-.660000 

• 109  5E+ 1.  1 

• 89442  7 

.700020 

• 44  7 2E  + 0C 

3.300000 

.500300 

•5553E-14 

-.447214 

- 1 . 2 l u 0 U u 

•1095 t +21 

.894427 

• 5 C 0 C 0 O 

.4472E  + 0G 

0.0  06  20  a 

. 506023 

.66616-14 

-.447214 

-1.402300 

.1Q95E+D1 

.894427 

. 30  00  CO 

• 44  72  E+  uO 

0.000004 

*5C00tu 

• 4441E-15 

-.447214 

-1.800303 

• 10  9 5E  + G 1 

.894427 

. 103826 

.44  72  E+  0 C 

9*000  ODD 

. 5u  0C-C  O 

0 « 

-.936893 

-1.935380 

.i069£+01 

-.  34420  8 

-.  17  73 CO 

•3777E+  CO 

Q.GCuGQu 

. 500008 

• 48  85 E- 14 

-.672591 

-1.  735030 

. 1 C 6 4 E+  0 1 

- .7 46314 

-.477328 

.3649E+00 

0 .3  C 3 DO  u 

. 5 y 0000 

• 66616-14 

- * 4 4 7 2 1 4 

-1.  40  0020 

• 10  95E+C 1 

-.894427 

-. 70 8300 

.44 7 2 E+ 60 

PROGRAM  80  XC 

ATf-OSFHERIC 

SCIENCE  ASSOCIATES 

BEDFORD, 

MASSACHUSETTS 

800Y  10.  TEST 

TEST  BODY 

N M X 

X X 

X 

NX 

Y 

Y Y 

Y 

NY 

Z 

2 Z 

Z 

NZ 

3 15 

1. 330000 
-1.200000 
-.800009 

1.000000 

-.800000 

-.916500 

0.303303 

-.800000 

-.916503 

0.050000 

-1.200000 

-.809000 

9.0  00 090 

-.279631 
-.96019  7 

. 50  00 CO  | 
-1. 00 0230  * 
-.856250 

16 

1.  10!)G1£ 
-.800000 
-.916500 

1.  COOOuO 
-. 4C2000 

-.979800 

0.000300 
r.#  C000  3 
-.979300 

3. 0 55  QUO 
-. 800000 
-.916500 

0.0 00 000 
-.156305 
-.96770  9 

• 50  0300 
-• 6G0OUO 
-.948150 

17 

1.000000 

-.430033 

-.979630 

1. 000000 
0.000300 
-1. ODOCQO 

B. 900000 
0.003300 
-l.OOuOCO 

0.000000 
-. 40U0Q9 

-. 979850 

O.CCOuCO 

-.C5043& 

-.998727 

. 503000  ; 
-• 26  00 GO 
-.  96  9900 

13 

1. 330000 
C. 303000 
-1.300030 

1. 009330 
. 400000 
-.979800 

O.U 00360 
•403300 
-.979850 

O.oJL'OOO 

o. ooooeo 
-1. COOQOO 

0.0 0069 0 
.053436 
-.998727 

. 560000 
.209050 
-.  96  99  30 

19 

1*303000 

.405000 

-.979600 

i.ccoeoo 

.803000 

-.916500 

0 . 0 Ou  0 u 0 
.800053 
-.916500 

u. 600000 
. 405uO0 
-.9793C0 

0.0  00  009 
.156305 
-.967709 

. 500000 
.60 00  CO 
-.948150 

20 

ro 

CT) 

1.  0 03  00  0 
.300000 
-.916535 

1. 0*03000 
1.200000 
-.835033 

O.OOuQO  0 
1*200000 
4.8  01*30  0 

v . uOOOUO 
.890000 
-. 916530 

0.600593 

.279631 

-.960107 

■ 

. 50  03  30 

i.  oc  ou  go 

-.358250 

21 

1.000000 

1.200000 

-•30CC0C 

i*  co  off  as 

1.603300 
-.  600000 

b. 580900 
1.600900 
-.6 00300 

3.405000 
1 . 290500 
-.  8 00  COO 

0.  CSO 00  0 
.447214 
-.894427 

. 500300  ; 
1. 46wOuO  i 
-.700000 

j 

22 

1.300000 
1*630000 
-.600  00  0 

1. OOOOtfU 
1.870030 
-*  35460C 

0.009000 

1.6700&O 

-.354600 

0. G9U000 
1.600000 
-.630000 

0.000000 

.672591 

-.740014 

.5600*0  | 
1.  73  50  00  J 
-.47  7330  5 

23 

1.003000 

1.873000 

-.354600 

l.OCdOCO 
2. OOOCOO 

o.ooocce 

b. 03.350 
2.0COOGO 
6.000000 

0.00 COCO 
1.870000 
-.354600 

6 . 660  Ou  u 
.938893 
- . 3 4426  6 

\ 

.50*060  ! 
1.  93  5300 
-.  177300  ; 

4 1 

0.030000 
2. 030039 
0. 0 30  00  0 

0. 005000 

1.  870003 
.354600 

-.5  0000  0 
1.850300 
•3415U0 

-.590000 
1.9 7200 C 
5.000000 

-.049  53  2 
.939127 
.3  3998  0 

1 

-.2480  68  i 
1.92  30  92  , 
.17  4*0  52  j 

2 

0.330003 
1. 870000 
.354630 

IS*  00  3000 
1.60 3000 
.600000 

-.503000 
1 • 5 65flu  0 
. 5 866u  3 

-. 500600 
1.850000 
.341500 

-.043145 

.675158 

.736411 

-.  249477  ! 
1.  72  6269 
*476688  j 

3 

0.303000 

1.630300 

.630000 

u.ecoeco 

1.2C0  000 
.800000 

-.590000 

1.195009 

•784460 

*•508000 
1. 585000 
. 586600 

-.034875 
• 4‘*947l 
.892614 

-.249169  j 
1. 39  5016  1 
.692774  3 

Fotoour  f I 


r 

[ PAGE  1 


I NX 

I NY 
I NZ 

Jo.  ooo  ooo 

[-.279631 
-.96010  7 

fO.OCOOOO 
-.15630  5 
-.96770  9 

I 0.0  CO  00  0 
I - .05043  b 
I -.95872  7 

I 

E 0.000000 
.053436 
. -.998727 

' 0 .0  OOwQ'J 
.156305 
, -.96770  9 

i 6 • 0 0 0 u 3 3 
f .279631 
> -.960107 

0.000003 
F:  .447214 

| -.694427 

[ 

; o.oooooci 

f .67259  1 
-.740014 

O.OUuOuw 
r .938693 
-.344246 

r -.049  53  2 
.939127 
j .33998  3 

- .0  4314  5 
f .675158 
.736411 

-.0346  7 5 
,449  471 
f,  *692614 


NPX 
N°  Y 
N?Z 

* 50  00 CO 
-U0DCD30 

-*856250 

, 500300 
- • 60  00  4 J 
-.948150 

• 50  20  00 
-.200000 
-.  969920 

•502000 
.20  CO jO 
-.  96  99  00 

. 50  0 3 00 
.600000 
-.948150 

. 53 03 3 0 
1.  QC  00  GO 
-.358250 

. 50  0 3 j 0 

1. 40 40 4 0 

-.700000 

1.  73  50  u 0 
-.  47  73  00 

. 5 Ou  0 00 
1.  9353C0 

-.  17730  0 

-.  24  80  68 
1.92  30  92 
.17  40  52 

-.249477 
1.  72  62  69 
• 47  0 6 88 

-.249169 
1.39  5016 
.692774 


C 

T 

A 

.2442E-14 

• lb  6 3E+  0 1 

• 41 6 6 El  CO 

•2442E- 14 
.10 79E+01 
.40 5 0 El 00 

. 55 5 IE- 16 
.10  77E  + 01 

• 43  05  El uO 

. 35  5 3E- 14 
.13 7 7 E+ 01 
.40C5E100 

• 222 CE- 14 
.10796101 
.40506100 

.3109E-14 

.10836101 

• 41 66E+0 0 

• 66  6 IE- 14 
.1095Eiol 
.4472E100 

.6217E-14 
.1C64E101 
.364961  CO 

•6217E- 14 
.10696101 
.37776100 

.76486-03 
.623861  00 
.18  £36100 

.7887E-C3 
.62356100 
.18  1661  CO 

.63  2 7 6-03 
.669361C0 
.22136180 


ffiom/r  w!.  -2 — 


PROGRAM  30XC 
BODY  10.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD*  MASSACHUSETTS 


TEST  9C0Y 


M 

X 

X 

X 

X 

NX 

Y 

V 

Y 

Y 

NY 

Z 

z 

Z 

Z 

NZ 

4 

0.000000 

0*  OS 3 000 

-.500000 

-.500050 

- .031043 

1. 200000 

•000050 

•8CC00U 

1.195000 

•261449 

•300000 

• 9l 6500 

.901208 

. 784400 

• 959G7  4 

5 

o.ooonoo 

0. OQQOOO 

-.500300 

-.500000 

- .C 29218 

.8  COCO  0 

.400000 

.400080 

. 8 0 0 0 C 0 

.157442 

.' 16550 

.979800 

•965500 

.931249 

•987096 

6 

o«03jcno 

0.  00  0008 

-.500300 

-.500000 

-.328252 

.435000 

3. 00  COCO 

0.0 0030 0 

.430000 

.05078  9 

.979800 

l.OOOCOO 

•966000 

. 9655C  0 

.998310 

7 

C*Q000i)0 

C. 000008 

-.508000 

-.530000 

-.'812606 

0.030000 

-.4CC000 

-.403000 

0.U3C800 

-.434526 

1.309550 

•803000 

.8  3 300  0 

.986000 

.900571 

8 

n. 900000 

3.000050 

-.503058 

-. 5DCC00 

0*00000 3 

-.430000 

-• 8EC0QG 

-.800003 

-. 430003 

-.447214 

.800055 

.600000 

•600080 

• 8 0 C 0 0 0 

.|89442  7 

9 

0.000000 

C.OCOOOO 

-.500000 

-.500000 

0.300300 

-.800000 

-1.2COCOO 

- :. 203030 

-.6D02C0 

-.447214 

.509C0Q 

. 400060 

.433000 

.600100 

.894427 

10 

C. 905C00 

C. OOOUOO 

-.500330 

— • 53  uCCO 

o.oooono 

-1.200000 

-1.6C.0C08 

- 1.603300 

-1.  23CuC  0 

-.44721 4 

•hocojo 

. 2Pr/C00 

.200000 

. 430  GOO 

*694427 

11 

0.303090 

l« C.CU0C3 

-.508000 

-.5  38  00  0 

-.512880 

-1.603033 

-2.80  3 000 

- 1.972000 

-1.630030 

-.460010 

.230  € 0 0 

c.oocooo 

0.00003  5 

. 230050 

.887620 

12 

C. 330035 

U 50  3000 

-.500300 

-. 530000 

- .049  53  2 

-2.309000 

-1. 870000 

- 1.  850000 

-1.972000 

-.939127 

C. J03CJ0 

-.354600 

-.341500 

3. 103CC9 

-.33998!: 

13 

r. 009003 

ft.  OSuOOO 

-.500300 

-. 59CC00 

-.043145 

-1.375000 

-1.6CGC0G 

-1.  5850w  J 

-1.650030 

-.675158 

-.354630 

-.6CC000 

-.586600 

- . 34 1500 

-.736411 

14 

0. 030000 

0.300000 

-.500300 

-.503000 

-.034875 

-1.630000 

41. 200000 

-1.19500  0 

-1.  585000 

- .449  47 1 

-.600033 

-.803500 

-.764403 

-. 586600 

-.892614 

15 

0.300053 

0.300000 

-.500500 

-.500090 

-.031043 

- 1.223500 

-.800000 

-.800000 

-1.  19  5000 

-.281449 

-.830000 

-.316500 

-.901200 

-• 734400 

-.959874 

-1 


-1. 


-1 


-1 


-1 


-1 


FOLOOUr  fRA?<  jf 


IC  SCIENCE  ASSOCIATES 

RD,  MASSACHUSETTS  PAGE 


X X NX 
r Y NY 
l 1 NZ 


NPX  C 

NPY  T 

NPZ  A 


neoco 

-•500000 

-.031343 

-.249537 

. 4237E- 03 

DCOOU 

1.195000 

•261449 

.956756 

.65  C 7 E+uO 

D12O0 

. 784400 

.959074 

.850538 

.20  72c+£3 

10  3 U 0 

-.500000 

- .C29218 

-.250316 

•2468E-33 

jJOOuO 

•&OOOGO 

.157442 

.600321 

• 64  El E+  CO 

>550  0 

.901240 

.967096 

.940749 

.20  26E+  00 

I03CO 

-.500000 

-.028252 

-.25  30  0 2 

.7467E-C4 

10  30  C 

• 4 J C 0 0 0 

.05078  9 

• 20  3 030 

1.641 2E+0Q 

16000 

•965500 

.996310 

.96*325 

. 23  C 3 E* 3 0 

ICOOO 

-.530000 

-.412606 

-. 249496 

.31 52 E- 2 2 

IQ  00  9 

3.000000 

-.434526 

-.199997 

• 67£  8E«-00 

IOOOC 

• 9860  0 0 

•9C0571 

• 896529 

• 2221E+CC 

10  00  0 

-.532000 

0.00003  3 

-• 2500CC 

j.  35  5 3 E-  14 

IOOCO 

-. 400003 

-.447214 

-.603000 

j.  67  G 8 E ♦ 3 0 

lOSJL'O 

.800000 

.894427 

. 7 0 2 3 0 0 

•2236E+U 0 

10  DO  0 

-.500000 

0. COO  000 

-.253330 

• 35 5 3 E- 14 

10  00  9 

-.6UG03Q 

-.447214 

- 1.  033000 

.67  C8E+  wO 

10  00  Q 

.600100 

.894427 

. 5C0UwQ 

.22  6 6E+ 30 

j 

lOOUfl 

i -.53uOCO 

0.003300 

-. 25£  J30 

. 66  6 IE- 14 

1000  0 

j-1.  230  uC  0 

-.447214 

-1. 403030 

• 6728E+00 

IOOCO 

. 400300 

.894427 

• 33^,363 

*2236E+o3 

IOOCO 

-• 5 Jt  0 00 

-.0  128  6 0 

-.247831 

. 32 20 E- 02 

'2  00  0 

-1.630030 

- .460013 

-1.  79  3d  15 

• 67  u 8 E+ u 0 

iOOu  0 

.230000 

.887620 

• 10  wO  *4 

•2174E+C3 

10  0 0 u 

-. 530300 

-.0  49  53  2 

*.24d063 

. 7648E-Q3 

>0  00,3 

-1.972300 

-.939127 

-1.  92  3 'J  92 

. €2 3 8 E+  00 

15  flu 

U« IQJvCO 

- . 33  998  £ 

-.174052 

.18  E3E+00 

0 3 D 0 

-. 50 CC  00 

-.043145 

-•  249477 

•7887E-23 

50u  J 

-1.654300 

-.675158 

-1.  72  62  69 

.6205E*  10 

6603 

-.341500 

-.736411 

-.472688 

•1816E+3 0 

eooo 

-• 503003 

-.034875 

-.249169 

• 6327E- 03 

5000 

-1. 585000 

-.44947 i 

-1.  35  5016 

.6693E4-00 

4 40  3 

-. 586600 

-.892614 

-.692774 

.22 13E+0Q 

[0  90  a 

-.500090 

-.031043 

-. 249537 

•4237E-03 

poco 

-1.195330 

- . 281449 

-.996756 

. 65  C7E+  00 

|20  3 

-. 734403 

->.95927  4 

-• 350538 

.20  7 2 E+00 

X 

X 

X 

NX 

NPX 

Y 

Y 

Y 

NY 

NPY 

Z 

Z 

Z 

i 

NZ 

NPZ 

0 00  0 

9*  909000 

-.500900 

-.501000 

i 

- .10  2921 6 

-.  250016 

000  0 

-•  40  9000 

-.40990  0 

-.6  a co oo 

-.157  442 

-*;6ooooi 

659  0 

-.979800 

-.965500 

-.931200 

- .1967  39  6 

1 

— •!  3 4 u 7 49 

. 

000  0 

C.  01!  CO 00 

-.500900 

-.500090 

-.028252 

J 

-.250002 

aoao 

9.000000 

0.900000 

-• 400000 

-.050785 

-.200000 

9800 

-1.  003890 

-.986900 

-.965590 

-.998  319 

-.982825 

oono 

0.000005 

-.500930 

-.530000 

-•628252 

-*25  00  92 

0 00  0 

.400000 

.409939 

0.090003 

• (j  50  78  5 

. 2Q00u« 

0C30 

-.979300 

-.96550  0 

-.936000 

-.958  310 

-.196  2820 

5000 

0.003000 

-.503900 

-.5  00  00  0 

- *113  2921o 

-•  25  0016 

ICO  c 

.903000 

.800000 

.490000 

•1157442 

•t  60  coal 

98  0 0 

-.916500 

-.901209 

-.965590 

-•967396 

944  7 49 

500  0 

O.GOOQOO 

-.509900 

I 

-.530990 

- •031943 

■ i i 

-•249537 

000  0 

1. 200000 

1.195900 

. 6 00  0 0 0 

•1261449 

• 998756 

6 50  0 

-.800000 

-.784400 

-.501209 

- *9  5907  4 

- .35  0 538 

050  3 

0.000003 

-. 500909 

-.500000 

-.034875 

-•249169 

0 0 0 3 

1.600900 

1.585033 

1.195850 

•1449  471 

1.  39  5016 

0 00  0 

-.600000 

-.586600 

-. 7844Q0 

-.692614 

-•69  2 77:4 

! \\  ■ 

0003 

0. CO  0003 

-.500000 

-.500000 

- .!0  4314  5 

y 

-.  24  94  7^ 

000  3 

1.67COOO 

1. 850900 

1.595000 

.675158 

1.  72  6269 

0 09  0 

-.354600 

-.341500 

-. 586609 

-.736  411 

-.  47  0 688 

3 03  0 

3.000000 

-.503030 

-• 530000 

-.1049532 

-*2480  68 

0 0 3 0 

2.000000 

1.972000 

1.650000 

^939127 

1.92  3J92 

460  0 

0.00 0500 

0.0  00309 

-.  341500 

— .{ 3 3 9 9 8 U 

-.174052 

000  0 

-.500000 

-1.000300 

-1. 09  COCO 

-.153543 

-.  74  3334 

2000 

1.850000 

1.785000 

1. 685609 

.934141 

1.87*150 

ocoo 

. 341500 

.39390  3 

0.190900 

• 3 2 2 1 6 8 

. 161626 

1 

0 00  0 

-.500000 

-l.flOCOui 

-l.  sooiioc 

-•13274J 

; 3 

-.747389 

3 00  0 

1.  585000 

1.543003 

1. 785090 

•603173 

1.;  69  o 2 8| 

1500 

• 58  6600 

•544390 

.333990 

•{716  091 

.{ 44  4219 

i J 

QQOG 

-.  50  0000 

-1.000903 

-1.C9Q0C0 

- •:  1 C 8 8 u 9 

-.74  77  52 

5C0C 

1.19  5000 

1.175009 

i.  5^ono 

.457325 

1.373892 

660  0 

.784400 

. 737400 

. 544000 

•86261 6 

. 663324 

ocao 

-•550000 

- 2.  00900  0 

-1.  9 9 w 0 0 0 

-•095703 

| 

-.74  79  51 

5 09  0 

.600000 

.800999 

1. 17  50  0 0 

.288525 

. 992572 

440  C 

.901200 

.853390 

. 737400 

.952677 

. 81 93 82 

SCIENCE  ASSOCIATES 
; MASSACHUSETTS 


PAGE 


OCO 
00  0 
50  0 

boo 
boo 
DO  0 

DOO 

boo 

50  0 

100 
10  0 
20  0 

100 
10  0 
*0  0 

10  0 

13  0 
>0  0 

10  0 
10  0 
>00 

100 

ICO 

ICO 

ICO 
10  0 
10  0 

ICO 

0 0 
0 0 

loo 

0 3 
0 0 


X 

NX 

NPX 

0 

y 

NY 

NPY 

T 

2 

NZ 

NPZ 

A 

- • 5 u w u 0 0 

-*029218 

-l 2500 16 

•2468E- 03 

-•80(000 

f * i 

157  442 

- . 60  0 301 

• 645 lt+  00 

-.931200 

* « 

967096 

-i 94u7  49 

•2BZ6E+00 

500  GoG 

* i 

G 28252 

250002 

.74 8 7 E- 04 

-.400000 

• • 

0 5u78? 

-♦200000 

.6412E+U0 

-.965500 

" « 

998313 

-f  98  28  25 

. 20  0 3 £+  u 0 

-. 530000 

-.628252 

- . 25  0 0 0 2 

•7467E- 04 

3. 090  COO 

0 50  78  9 

. 20  00 uO 

• 64l2E>00 

-. 986000 

• 

998  310 

-.982825 

• 20  C3E+C0 

-. 500  GOO 

- 

0 2921o 

-.  250016 

•2468E- 03 

• 4 00  OPO 

157442 

. 60  C 0 31 

. 6451E+00 

-. 965500 

* 

967396 

-.940749 

• 20  2 6E+U9 

-.530000 

- 

031343 

-.249537 

•4237E-U3 

.600000 

261449 

. 998756 

•6507E+QQ 

-.931200 

* 

959074 

-.350538 

.2072E+0I3 

-.500000 

- 

034875 

-.249169 

•6327E-C3 

1.195350 

449*71 

1.  395316 

•66S3E+00 

-.  78440  0 

* 

892614 

-.63  2774 

• 22 1 3 E*  GO 

-. 500300 

- 

043145 

-.|24  94  77 

• 78  87E- 0 3 

1.585000 

675153 

1.  72  6269 

•62G5E+Q0 

-.  586600 

• 

736*11 

-.1 47  0 588 

• i616E+  00 

-o  5 JOOOO 

- 

049  532 

-.1248068 

• 7648  E- £3 

1.650000 

939127 

1. 92  30  92 

• 62  3 8 E> 00 

-.341500 

i 

33998U 

-.  174052 

•1853E*00 

-jl.  .030000 

j- 

153543 

-.743334 

• 196SE-G2 

1.  685600 

s 

934141 

1*8  7.*1 58 

• 6143E+  00 

jj.  031*000 

322183 

. 161626 

•1727E*uO 

•it.  coaofio 

■im 

132  740 

-.  747389 

. 2518E-02 

1. 785S00 

683173 

1.!  650  261 

.62226+00 

! . 3 3390  0 

i 

| 

718  391 

.444215 

•1776E+  GO 

-1. C 30000 

- 

108  83  9 

-.747752 

• 1887E- 02 

1.  5*0000 

457325 

1.373892 

• 664GE+  CO 

. 5 440  0 0 

88261  6 

• 66  33C4 

•2139E+  00 

-1.  L-OwCOO 

• 

095703 

-.  7479  58 

.1347E-02 

1.175000 

• 

288525 

. 992572 

.64  flE* CO 

. 737400 

.952677 

.819363 

.20  2164*00 

'****■0!*',  J 


PROGRAM  BO XC 
BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 

TEST  BODY 


N 


5 


rv> 

vo 


M 

X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

Z 

2 

Z 

Z 

NZ 

5 

-.503000 

-.500603 

-1.000003 

-1.  QQOOCQ 

-.089915 

. 8 00  0 0 0 

•400000 

. 4 00  Qvi  0 

• 6 09000 

•162323 

• 90120  C 

* 965500 

.921400 

.653800 

.982682 

6 

-.5  00  DC  0 

-.500000 

-1.  030  00  0 

-1.  1)00  00  0 

-.066851 

• 405  00  0 

0. OCPOOO 

C. 000000 

• 40 U 000 

.052106 

.965500 

• 96  6000 

.942800 

• 9214C 0 

.994858 

7 

-. 500000 

-.500000 

- 1.  000003 

-1. 1)00000 

-.039925 

0.000000 

-.400000 

-.400300 

y.  D'JOGOCi 

-.379842 

.986000 

.800000 

• 603000 

•942600 

.924189 

8 

-.530000 

-.500000 

-1.0Q00CQ 

-1. 030000 

0.000000 

-.4030*10 

-.800000 

-.800000 

-• 40CCCC 

-.447214 

.800030 

.600000 

.600000 

. 800000 

.894427 

9 

-.500030 

-.500000 

-1.  OuOQOQ 

-1.  003000 

0.000  wUii 

-.33000? 

-1. 200000 

- 1.200300 

-.600000 

-.447214 

.600030 

. 400000 

• 40030  0 

.600000 

.894427 

13 

-.500000 

-.503000 

- 1.000000 

-1.  OOl'OCO 

0.000000 

-1.  2 0000  0 

-1.600000 

-1.6U0000 

-1. 20300  0 

-.447214 

.43300 0 

. 20  CO  00 

.200303 

.400000 

.894427 

11 

-.503030 

-.500300 

-1.000000 

-1. QflCBQO 

-•C 44355 

-1.630000 

-1.97 2 DCS 

- 1,885600 

-1.600000 

-.5  19  16  0 

.20000  0 

0 . 000000 

o.Oooooa 

.200000 

.853499 

12 

-. 503000 

-.50  COCO 

-1. 300303 

-I.  600000 

-.153  54  3 

-1.972030 

-1.850000 

- 1.765000 

-1.865600 

-.934141 

0.300000 

-.341500 

-.303900 

u • C 3 C u CO 

-.322183 

13 

-.503033 

-.500000 

-1.00630  0 

-1.0  0C0C0 

-.132740 

-1.350000 

-1.  58  5 COO 

-1.543300 

-1.  785000 

-.683173 

-.341500 

-.  586600 

-.544000 

-.303900 

-.718  091 

14 

-. 503050 

-•  50 00 00 

- 1.00  000  fi 

-1.400000 

-.166609 

-1.585000 

-1.19  5 000 

- 1.17500  0 

-1.  5411300 

-.457325 

-.536600 

-.  784400 

-.737400 

-. 544000 

-.882618 

15 

-.503000 

*. 5CGC00 

- 1.  OOC‘30  3 

-i. 00C0C0 

-.095703 

- 1.195  00  3 

-.603000 

-.8 1)3000 

-1.175000 

-.288525 

-.7  3440  0 

-.901200 

-.853833 

-.737403 

-.952677 

16 

-.500000 

-.  50  0 0 00 

-1.O0OOCO 

-1.  GO  OOC  Cl 

-.069915 

-.300000 

-.40  0 COO 

-.403000 

-.6  O'*  0 00 

- • 1 62  C2G 

-.93120  0 

-.965500 

-.921400 

-.653600 

-.962682 

PAGE 


NPX 

NPY 

NPZ 

-.753055 
« 66  0009 
•910468 

-• 75  0G  05 
.26  0003 
.953924 

3 

-.  748551 
-.  195961  : 
.36  2279 

-.750000 
-.660000 
.70  COCO 

-.750000  | 

-1.  00  0 0 00  j 

• 50  13  J b0  ! 

-• 75u0  uQ 
-1.400000 
. 30  Odufi 

-.741375 
-1.  76*7  60 j 

• 10  U 234 

-.  743334 
-1.  874150  3 
-. 161626  ] 

-.747389  | 
-1.  69  0281  . 
-.444215  j 

-.74  77  52 
-1.373892  I 
-.66 33 u 4 ] 

-.747958 
-.992572 
-.81 9383 

-.7500  55 
-.600009 • 
-.914468; 
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Idy 


l X 

X 

NX 

NPX 

C 

Y 

Y 

NY 

NPY 

T 

Z 

Z 

NZ 

NPZ 

A 

-1.0  00  00  0 

-1.  03  QBE  0 

-.C 8 99 15 

-.  753055 

•81C7E- 03 

• h 0 0 0 u 3 

.603000 

.162323 

• 60  0009 

• 653  SJE^OO 

.921400 

.653800 

.982682 

.910468 

•2035E+C0 

U 1.  J300C  D 

-1.  tOCOOO 

- • D86651 

-•  75  OC  ti5 

• 2236  £- 03 

c.  ooo oca 

. 400000 

.052106 

• '20  0003 

. 6436E+C0 

.942800 

. 9214C0 

.994858 

.953924 

.20 1CE+ CO 

-3.00030  3 

-1. 030000 

-•(3  3992  5 

-. 748551 

•9981E-C2 

| -.400000 

c.  0 30  000 

-.379842 

-.  199961 

• 66  63E  + uii 

•800303 

. S 4280  0 

.924189 

• 362279 

•2164E+00 

-l.ooooca 

-1. QOGOC0 

0 .0  00000 

-.750000 

. 35 5 3 E- 14 

-.800003 

-.  4 UC CO C 

-.447214 

-. 600000 

• 67G8E+  00 

.600000 

• 8U0000 

.894427 

. 70  00  DO 

. 2236E+00 

- 3.  33000  0 

-I. 033000 

0 • C 0 u u u J 

-.750000 

• 35  53E-14 

- 3.2000 (JO 

-.830000 

-.447214 

-1.  OCO0OO 

. 67£  8E+00 

•400000 

.603000 

.854427 

. SCOOtO 

• 223  6£+  u 0 

- 3.  00  0 30 3 

-1.  OSOCC  tl 

0.000303 

-.750040 

•6661E-14 

^-l.  6uoooa 

-1. 200000 

-.447214 

-1.400040 

• 67C  8E*00 

.200303 

.4130)300 

.894427 

• 30  QOuO 

. 2236E+00 

-1.0  BO  00  0 

-1. 03 C 000 

- • C 44355 

-.741375 

•1121E-C1 

- 3.88560  0 

-1.600000 

-.5  39  16  0 

-1.  764760 

. 6 54 5 E+ GO 

0.633303 

. 230030 

1 

.653499 

. 10  U 234 

.1926E+  CO 

-1. 303303 

— 1.  CGBQoO 

-.153  543 

-. 743334 

• 1969E-SJ2 

h 3.76500  0 

-1.865600 

-.934141 

-1.874150 

.6143E+00 

[ -.303900 

4 • C'OC  u C 0 

— .322188 

-.  161626 

• 172  76* CD 

hi. 38000 0 

-1.0,  GO  SCO 

-.132740 

-.747389 

• 251 8£- 0 2 

r 3. 543  33  0 

-1.  735 OC 0 

-.683173 

-1. 690281 

•6222E+CQ 

\ -.544000 

\ 

-.303900 

-.718091 

-.444215 

. 1776E+0G 

i-  3.000000 

-l.gioGCCO 

-.108809 

-. 747752 

.18876-02 

hi. 175300 

-1. 540  30  0 

-.457325 

-1.373892 

. 6640  £*G0 

| -.737400 

-. 544000 

-.882618 

-.66  33i.4 

» 21396+  CO 

r 3.0  0030  a 

-1.  0 0 C>O0B 

-.095733 

-.747958 

•13476-02 

i -.603000 

-1.175000 

-.2  88  52  5 

-.9925  72 

.64  616+00 

1.  -.85380  0 

-. 737400 

-.952677 

-.  819383 

.2C21E+O0 

-3.0  OOOC 0 

-1. ooooco 

-.089915 

-.  750055 

• 81c  7E- D3 

-.403000 

-.6 000 00 

-.162020 

-.6CO0O9 

.65006403 

-.921400 

-.6538C0 

-.962682 

-.910468 

•2O35E+Q0 

9: 

Ffionur 

, --rf*” 

X 

Y 

Z 

SCO  3 

-.50  0 

00  3 0 

0.  000 

5500 

-.986 

000 

X 

Y 

Z 

-1.  00000  0 

000 

-.  40030  0 

80  0 

-.521409 

30  0 

-1.  0 30  000 

00  3 

0. 300090 

40  0 

-.942800 

3o  3 

-1.  430000 

00  0 

. 430000 

800 

-. 921400 

000 

-1.033000 

00  0 

.600300 

403 

-.  8 53800 

000 

-1.033000 

00  0 

1.175000 

93  0 

-. 737490 

30  0 

-1*003000 

000 

1.540000 

93  0 

-.  54400  0 

009 

-1.030000 

60  0 

1. 785000 

903 

-.303900 

900 

-1*  500900 

003 

1. 732300 

73  0 

0. 000000 

00  0 

-1.500000 

000 

1.670000 

900 

.229700 

000 

-1. 500000 

000 

1. 463090 

90  0 

.465900 

90  3 

-1.500000 

000 

1.  140000 

10  3 

• 65  293  0 

90  0 

-1. 500900 

300 

.800000 

609 

.766103 

NX 

N?X 

NY 

NPY 

NZ 

1 NPZ 

086851 

-.7500 

052106 

-.2090 

954858 

-.95  39 

| 

086851 

-.7509 

05219  6 

• 2009 

994858 

-.9539 

089915 

-.7509 

162029 

• 69  9 9 

982682 

-.9104 

995703 

-.  7479 

288525 

.9925 

952677 

-.8193 

106839 

-.7477 

457325 

1.  37  38 

88261 6 

-.6633 

132749 

-.7 473 

663173 

1.  69  0 2 

718391 

-.44  42 

i 

153  54  3 

-.7433 

934141 

1.6741 

322188 

-.1616 

268347 

-1.  2296 

921489 

1.  7736 

280799 

. 13  49 

239065 

-1.  24  53 

702123 

j 1.  61  46 

670724 

I • 36  65 

i 

194936 

-1.2450 

475316 

1. 3293 

857948 

. 60  0 6 

170981 

-1.2457 

3 0468  3 

.9793 

936981  i 

. 75  35 

159881 

-1.  2501 

172638 

.6039 

971923 

• 84  64 

ULili 


X 

c 

Y 

T 

Z 

A 

COG  5 

•2238E-G3 

fcOC3 

• 6436£>fiO 

39  24 

• 20  10  E+  00 

0dii5 

•2238E-03 

COG3 

v,  64366+0  0 

3924  .. 

• 23  1C E+  CO 

00  55 

•81C7E-03 

0009 

• 65e0£+li0 

0468 

i .2035E+00 

PROGRAM  BO  XC 
BODY  ID.  TEST 
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co 


TEST  BODY 


M 

X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

Z 

Z 

Z 

Z 

i NZ 

6 

-1.00  0 *0  2 

-1.0G90U9 

-1.500000 

-1. 500000 

i 

-.1  53  515 

• 400*  0 0 

Q.C03800 

0.000900 

. 432000 

*055250 

.92140  0 

.942830 

. 86600 0 

.842600 

.966601 

7 

-1.305030 

-1.00 0300 

-1.500900 

-1. 500000 

-*074106 

0.  303090 

-. 400000 

-.400  30  0 

3.030000 

-.251846 

.9428 CO 

.800000 

.800300 

. 666000 

* 964926 

8 

-1.000030 

-1. 000000 

-1.500000 

-1. 50CQ00 

e.Oucaoo 

-.400000 

-•8C00Q0 

-.800900 

-.490030 

-*447214 

•803000 

.600^00 

• 600  000 

• 603000 

.894427 

9 

-1.300000 

-1.  CO  G- 00 

-1.500303 

-1.530000 

ojaooaao 

-.800030 

-1.  200000 

-1.200000 

-.690000 

-.447214 

•60000  0 

. 40 0000 

•400000 

. 600000 

.694427 

10 

-1*303 030 

-1. 000000 

- 1.500000 

-i. 580000 

c.OGoaoo 

-1.230000 

-1. 600000 

- 1.600003 

-1.  230000 

-.447214 

• 433000 

.200000 

•280900 

. 490000 

.694427 

11 

-1.000000 

-1.000000  .. 

- 1*500903 

-1. 500000 

-.105654 

- 1.  6 0000  0 

-1.885600 

-1.732003 

-1.690000 

-.687853 

.200300 

5. 090000 

0.030900 

•209000 

.718119 

12 

-1.  00-3  000 

-1. 900000 

- 1.500300 

-1.506000 

-.268  3 4 7 

-1.885600 

-1. 78  5COO 

-1.670303 

-1.732000 

-.921489 

e.aaoocc 

-.303900 

-.229700 

8.080000 

-.280799 

13 

-1.000003 

-1.  (jO  <30  00 

- 1.  500000 

-1. 50CC00 

-.239065 

-1.785030 

-1. 540000 

-1.4630 CO 

-1. 6700C0 

4.762123 

-. 303900 

-.544000 

- . 4 6590  3 

-.229700 

-.670 724 

14 

-1. 303330 

-1. 000000 

- 1.503903 

-1.  50000  0 

-.194936 

-1.540000 

-1.175000 

- 2*140000 

-1.460000 

-.475316 

-.544000 

-.737400 

-.652300 

-.465900 

-.857946 

15 

-l.baooco 

-1. 000000 

- 1.500030 

-1.530000 

-.170981 

-1.  175005 

-.800000 

-.8  00  90  0 

-1. 140000 

-.304  68  3 

-.737400 

• i.  • 

-.853600 

-.766100 

-.652000 

-.936981 

16 

- 1.  1300  00  0 

-1. 000300 

-1.50000U 

-1. 53CCC0 

-.159881 

-.800000 

-.400000 

-.400000 

-.030000 

-.172638 

-.053800 

-.921400 

-.842603 

-. 768102 

-.971923 

17 

-1.003000 

-1. 008000 

- 1.  500008 

-1. 590000 

-.153515 

-.400000 

0.000000 

0.309000 

-. 400000 

-.055253 

-.921400 

-.942800 

-.866000 

-.642600 

-.986601 

*oioourfT}& 


■1.241 
-.19< 
.85  2 


>1*25(1 

-.600 
.70  0 


j 


•i*25q 
■1.  00  0 
.50  i 


>1.25(1 
•1. 40  d 
. 30  0 


>1*22  5! 
>1. 73  71 
. 10  Si 


-1.229^ 
-1.  773i 
-.  134 


-1.  245 
-1.  £14 
-.38  6 


-1.245 

-1*329 

-.600 


-1.24  5 
-.97  9 
-.75  3 


! -1.250 
-.  £0  0 
-.846 


-1.250 
-.20  0 
-.  893 


f*s 
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X 

X 

NX 

NPX 

0 

Y 

Y 

NY 

NPY 

T 

Z 

2 

NZ 

NPZ 

A 

• 500000 

-1. 500000 

- . 1 53  51 5 

- 1.2503 12 

.49336-03 

• C 30300 

.400000 

.055250 

• 20  03 10 

•64816+00 

• 666000 

•842600 

.966601 

.893198 

.20  2 76+  00 

• 5 00003 

-1. 500000 

-.074106 

-1. 248100 

• 18  53E-S1 

.430300 

9.030000 

-.251346 

-.  199335 

• 6560E+00 

• 630300 

.866000 

.964926 

. 852389 

•20736+09 

• 503300 

-1. 500000 

9.0  00  30  3 

-1.250000 

.35536-14 

• 6 0030  0 

-.400000 

-.447214 

-.  600000 

.67086+00 

• 600303 

.604000 

,894427 

• 70  0300 

.22366+00 

• 500333 

-1.530000 

0.300393 

-1.250000 

.35536-14 

• 200300 

-.830000 

-.447214 

-1.  ODOJfcO 

.67086+00 

• 400300 

• 600 00  0 

.694427 

• 50  03 SO 

.22366+00 

.500003 

-1.530000 

0 • C 00  300 

-1. 250000 

.66616-14 

• 600930 

-1.  230000 

-.447214 

-1.400000 

• 67  C 86+  C 0 

• 2 0090  Q 

. 430 CC  0 

.694427 

• 300000 

.22366+00 

.500333 

-1.500000 

- .105  65  4 

-1.225923 

.26416-01 

. 732303 

-1.690000 

-.687853 

-1. 70  7445 

.60966+00 

4000330 

.204000 

.718119 

• 10  U 626 

•1454E+  CO 

• 5 00300 

-1.530CCQ 

-.268  34  7 

-1.229655 

.36846-02 

• 670303 

-1.732009 

-.921489 

-1. 773614 

.59196+60 

• 229700 

9.  0 00 00  0 

-.280795 

-. 134912 

.14486+00 

,560000 

-1.500000 

-.239065 

-1.  245329 

.54966-02 

,460010 

-1, 670900 

-.752123 

-1.  614691 

•616SE+O0 

,465900 

-.229700 

j-  - .670  72  4 

-.  38  65  55 

.16966+  GO 

,5  03903 

-1.590  GOO 

-.194936 

-1.245068 

.37826-02 

,140000 

-1.  46000  0 

-.475316 

-1.329324 

• 6494E+C  0 

,652300 

-.465900 

-.857948 

-.600627 

.19966+10 

5 0000  0 

-1.500000 

-.170981 

-1.24  5763 

.25966-02 

8 0^000 

-l. 440*00 

-.304  68  3 

• .979004 

.63746+00 

766100 

-. 652000 

-.93693  1 

-.  75  3 5 i 2 

.19066+00 

5 0000  U 

-1.  530010 

-.159881 

-1. 25 4 123 

.16776-02 

40  030  0 

-.600000 

-.172638 

-.  6000  34 

.65  646+0  0 

842600 

-.  76610  8 

-.971923 

-.846449 

• 2 ti  5 6 E + CO 

15  00  30  0 

-1. 530000 

-.153515 

-1.  25CU12 

.49336-03 

0 0 U QUO 

-. 400000 

-.055259 

-• 20 0010 

• 64  ElE+00 

8 66  00  0 

-.642600 

-.986601 

-.39  3198 

•20276+00 

rnomrr  fF?A' 
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Pt 


go 

ro 


BOOT  10. 


N M 


6 Id 


19 


20 


21 


22 


23 


7 1 


2 


3 


A 


5 


6 


TEST 

TEST 

BODY 

1 

X 

X 

X 

X 

NX 

NP  X 

Y 

Y 

Y 

Y 

NY 

NPY 

Z 

Z 

Z 

Z 

NZ 

NPZ  j 

1*900000 

-1.  OQJOQO 

- 1.500003 

-1. 500000 

-.153515 

-1. 25  00 12 

0. 0 00 GOO 

. 40  2 0 9 0 

•400009 

U.C3C0C0 

• 0 55  25  J 

.200010 

-.942800 

-.921400 

-.842603 

-.666000 

— .986631 

-.89319^ 

1.003000 

-1.000080 

- 1*503808 

-1.  50CC0O 

-.159881 

-1.  250120 
.600034 
-.84  6449! 

.403000 

•850000 

. 8 00000 

. 400  00  0 

.172638 

-.921400 

-.853800 

-.768100 

-.8  42600 

-.971923 

1.000090 

-1. GC  0 00  0 

-1.530300 

-1.500000 

-.170981 

-1. 245783 

•8 0009 3 

1.175900 

1.140300 

.636000 

.304683 

.97  9 004 

-.853800 

-.737400 

-.652000 

-.768100 

-.936981 

-.753512 

1.000000 

-l.coacoo 

- 1.530003 

-1.500000 

-.1949  3 6 

-1.24  5060 

1.175000 

1.540000 

1.460000 

1.  140  0C  0 

.47531 6 

1.3293241 

-.737430 

-.544000 

-.465903 

-.  652000 

-.857948 

-.60  0 6271 

1.00-309G 

-1. 003000 

- 1.500300 

-1. 500000 

-.239065 

- 1.  245  329 

1. 543000 

1.78  5000 

1 • 67a 90  9 

1. 460000 

.702123 

1.614691’ 

-.544000 

- • 303900 

-.229700 

-. 4659C0 

-.670724 

-.36  6555 

1.033000 

-1. 003000 

- 1.5  00  30  3 

-1. 50  0 OG  0 

-.268347 

-1.229655 

1.785030 

1.885600 

1.732900 

1. 6700C0 

.921489 

1.  77  3614 

-.  3,33930 

S.OC9020 

9.005000 

-.225700 

-.280799 

-.  13  4912; 

1.530000 

-1. 503500 

- 2.3  33003 

-2.  eiocsoo 

- .414479 

-1.  699678 

1.732000 

1.670500 

1.465000 

1.490700 

.885202 

1. 611865 

0. 309000 

. 22  9700 

.13785  3 

0 • 000900 

.211244 

• 09 65 76 

1 .503031 

-1.  59  9050 

-2.400900 

-2.  00.000 0 

-.372374 

-1.  733772 

1.673000 

1.  460  0*0  0 

1.322900 

1.  46  501' 0 

.725701 

3.  464752 

.229730 

• 465900 

.344400 

.137800 

.578529 

. 297994 

1.5;  00  CO  3 

-14  50  0 000 

-2.000000 

-2.GOG300 

-.310024 

-1.7389  32 

1. 460  00  0 

1. 143000 

1.072000 

1. 322000 

.507279 

1. 25  a 730 

. 4659  ii  3 

. 652550 

.517990 

. 3 4440 0 

•804085 

.497910 

1.530£no 

-1. 50  9 COO 

- !•  O0UOOQ 

-2. 030000 

-.269527 

-1.  73  62  66 

1.149  00  0 

.809000 

.805000 

1 . 072000 

.335023 

. 954054 

.652030 

.768100 

.628900 

. 5179ii0 

.902837 

. 644837 

1.509000 

-1.500000 

-2.000300 

-2. 100 000 

-.250229 

-1.  750  276 

.809903 

• 480000 

. 401.30  0 

.805000 

.19358  3 

. 60  CIO  4 

.768150 

.842600 

.7iaoco 

.628900 

. 948555 

. 73  93  06 

1.533009 

-1.50 000 C 

-2.000900 

-2.  CONOCO 

-.237694 

-1.  750025 

• 4 00  C 3 0 

0. 90 0900 

0. 300000 

. 400000 

.061556 

• 20  CO  30 

.342609 

.866000 

.745400 

.716000 

• 96938  £3 

. 792992 

- aaa&ajaiMsSHH 


... 


FOtOOUOT  fRA?*  I 
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BOOY 


X 

X 

NX 

NPX 

0 

Y 

Y 

NY 

NPY 

T 

2 

Z 

NZ 

NPZ 

A 

- 1.500000 

-1.  503  G0O 

-.153515 

-1 

25  00  12 

. 4933 E- 03 

• 400  DC  0 

O.C0OOOQ 

.055250 

• 200010 

•64816+00 

-.8  4260  0 

-.666000 

-.986601 

- 

893198 

.20  27E+UG 

- 1.5Gj303 

-1.  503000 

-.159881 

-1 

25  3 123 

• 16 7 7E-G2 

.300000 

• 430000 

.172638 

633334 

•6564E+00 

-.768100 

-.842609 

-.971923 

• 

34  6449 

.20  5 8E+00 

-1.500 300 

-1.530000 

- . 1 7 u 9 8 1 

-1 

245783 

.2596E-02 

1. 14030  0 

,831000 

• 3 04  68  3 

979004 

• 63  74 E+  03 

-.652000 

-,766100 

-.936981 

m 

753512 

•1908E+C0 

- 1.500003 

-1. 530300 

-.194936 

-1 

24  50  68 

•37 82E-02 

1.460000 

1. 140000 

.47531 6 

1 

329324 

•6494E+00 

-.465900 

-.  6523C  0 

-.857943 

m 

60 u 627 

•1996E+00 

- 1.5  00  30  0 

-1. 50J030 

-.239065 

- 1 

245  3 29 

• 545CE-C2 

1.67a OGO 

1. 460000 

.702123 

1 

614691 

» 61 8 SE  + GO 

-.229700 

-. 4659C0 

-.670724 

- 

38  6555 

• 16  9 6E+f<0 

-1.50Q3C0 

-1. 500303 

- . 268347 

-1 

22  9 6 55 

. 3 6 6 4 E - C 2 

1 • 7 3230  U 

1. 670030 

.921489 

1 

77  3614 

•5910E+00 

0.  CO  0 06  0 

-.229760 

-.280799 

- 

13  4912 

.144  86+ £3 

- 2. 0 33103 

-2.  OOC3GO 

- • 414479 

-1 

699678 

•3183 E-g2 

1.465300 

1.490700 

.865202 

1 

611865 

•5833E+00 

.1  37800 

a. 63a  00  0 

. 211244 

39  65  76 

.10386+00 

- 2 • a 0 J 3 G 0 

-2. C0UOQC 

-.372374 

-1 

73  3772 

.7874E-u2 

1.322303 

1. 465300 

.725701 

1 

464752 

•6199E+0Q 

.34440  0 

.137800 

.578529 

29  79  94 

.15256+00 

-2,0  Of*  000 

-2.  COS 00  0 

-.310024 

-1 

738932 

.6345E-C2 

1.372003 

1. 322000 

. 507279 

1 

25  g 730 

. 6350E+  CO 

.517930 

• 3 **440  0 

. 604085 

497910 

• 1772  E+ 00 

- < . fi  0 u 0 8 0 

^2*  0 00  OGO 

-.269527 

-1 

738266 

•45*4£-  C2 

.830030 

1 .!  u 7 2 0 w 0 

.335023 

954054 

. 82186+00 

,.62  890  0 

. 5179u0 

.902837 

644637 

,16956+uC 

- 2.  u 00  30  0 

-2. 000300 

-.250229 

-1 

750276 

.34  82E-S2 

i.  40090  0 

.6000X0 

.193983 

60  C It- 4 

• 675  CE+00 

7 18  1u  0 

. 628900 

.943555 

7393G6 

• 8 1 a 8 £ + i 0 

-2. 060393 

-2.  003309 

-*237694 

-1 

75  0 0 25 

•9694E-C3 

0.  30000  0 

. 403000 

.0  6155  6 

23  CO  30 

•6572E+00 

• 7h54u  3 

<>71603  0 

.969380 

792992 

• 2C63E+C0 

e 

€ 

* 

# 

( 

< 

r 

i 


< 

( 

c 

( 

c 

( 

( 


{ 


PROGRAM  80 XC 
80DY  ID.  TEST 


ATKJSPHERIC  SCIENCE  ASSOCIATES 
BECFORO,  MASSACHUSETTS 

TEST  BOO  M 


N M 


7 7 


3 


9 


10 


11 


12 


GJ 

CO 


13 


14 


15 


16 


17 


18 


X 

X 

X 

X 

NX 

NPX 

Y 

Y 

Y 

Y 

NY 

N9  Y 

Z 

Z 

Z 

Z 

NZ 

NPZ 

l. soocno 

-1.5CCOOO 

-2.000300 

-2. 000000 

- ,197278 

-1.  74  95Sj 

0. J93030 

-.4SGO0O 

-. 403000 

0.600000 

-.113683 

-.1997  5, 

. 866COO 

.800000 

.718000 

. 7454G0 

.973734 

• 76246 

1.500COC 

-1.5CCC00 

-2.0 CO  30  0 

-2.000000 

-.075981 

-1.  7473ll 

-.400C00 

-.800000 

-.600000 

-• 40CC00 

-.368319 

-.  5998^ 

•800000 

•600030 

•600000 

.718000 

.926589 

. 67977j 

1 .500000 

-1. 500000 

- 2.  u 03  00  0 

-2.COOOOO 

0.0  CO 00  0 

-1.  */5J0d 

-.800000 

-1. 200000 

- 1.20300  0 

- * 6 j -g  O 0 G 

-.447214 

-l.OOcuO' 

.60C0J3  0 

*400000 

.400000 

• 600  CO  0 

.894427 

. 5oao« 

1.500000 

-1.500000 

-2.3  00000 

-2. OOGOGO 

-.050829 

-1.  72  J4ffi 

1.200000 

-1. 60 0000 

- 1.40000  0 

-1. 20  P OC  0 

-.496741 

-1.  35  28  2| 

.400000 

. 2000(13 

.2560G3 

.400000 

.866409 

.314113 

1.50 CO 00 

-1.550  000 

- 2.  GfiOOuO 

-2.030400 

-.3  48  62  6 

- 1.  76 253] 

1 . 6 0 0 £ 0 0 

-1.732000 

-1.493700 

-1. 400000 

-.842191 

-1. 55  0 51! 

.20^000 

O.GCGOOO 

0.000000 

• 25  ECO  0 

.411307 

. 1139  4 

1.503000 

-1.503000 

- 2. 0 00  00  0 

-2.  GOO 000 

-.414479 

-1.  699671 

1.732 COO 

-1.670000 

- 1.465000 

-1.490700 

-.885  20  2 

-1.  61186! 

0.000030 

-.225700 

-.137800 

0. GO  000  0 

- • 211 2 *♦  4 

-.09  6571 

1.500000 

-1.500000 

-2.000  0C0 

-2. 000000 

-.372374 

-1.  733771 

1.6700 00 

-1.460000 

- 1.322000 

-1.465000 

-.725701 

-1.  46  475:1 

-.229703 

-• 4659U0 

-.3 44ho  0 

-.137800 

-.578529 

-.297  99* 

1.50300  C 

-1. 500000 

- 2. 0 03  00  0 

-2.  O0C0C0 

-.310324 

-1.  7 3893! 

1.463030 

-1.  14 C CO  3 

-1.072000 

-1.  322000 

-.517279 

- 1.  25  J 731 

-.465900 

-.  652000 

-.517900 

-.344400 

-.804085 

-.‘♦97911 

1.533000 

-1. 50 0000 

-2.000000 

-2.000000 

-.269527 

-1.  73  8 2 6! 

1.140000 

-.800000 

— . 8 o 0 0 C 0 

-1  • £7  200  C 

-.335023 

-.95405' 

-.652030 

-.768100 

-.628900 

-. 517900 

-.902837 

-.  64483: 

1.50000  0 

-1  .505000 

-2.303000 

- 2. O QO  OGO 

-.250229 

-1.  75  0 27! 

-.803000 

-.4P  0000 

-.  40000  0 

-.600000 

-.193980 

-.60  CIO* 

-.768100 

-.842600 

-.71630  0 

-.626900 

-.948555 

-.739301 

1.50  *1000 

-1,500000 

-2.00030 r 

-2. uocoeo 

-.237694 

-1.  7500  2! 

-.400000 

0.000050 

0.003300 

-.430000 

-.061556 

-.200031 

-.342600 

-.866000 

-• 745400 

-.716000 

-.969383 

-.79299! 

1.533000 

-1. 500000 

-f. 003000 

-2.0 10000 

-.237  69  4 

-1.  750  0 2! 

0.030000 

.400 GOO 

.400000 

c.cooooo 

.061556 

.2000  31 

-.36603 0 

-.84  2630 

-.718000 

-.745400 

-.969388 

-.  79  299, 

( FOtOOUf  fR«<  |f 


SCIENCE  ASSOCIATES 


j;  MASSACHUSETTS 

PAGE 

14 

\ 

. 

X 

NX 

NP  X 

C 

Y 

NY 

Ns  Y 

T 

z 

NZ 

NP  Z 

A 

00  0 

-2.000000 

-.197278 

-1.  74  9550 

• 93  97E-C  2 

00  if 

U*  0 3000  0 

-.  113  68  3 

-.  1997  59 

• 65  72E+  00 

>00  0 

• 745  40  0 

.973734 

. 762469 

. 20  5 4E+  6 0 

[00  0 

-24O0&000 

-.£75383 

-1. 747311 

. 19G6E-01 

to  GO 

-•  430000 

-.368319 

-.599857 

• 67  G8E+C0 

rOtlO 

• 7189C0 

.926589 

. 679777 

• 2158E+  00 

?00fl 

-2  *£00000 

0.0  CO  30  3 

-1.  <5  3 0 00 

•3553E- 14 

boo 

- • 6 J g 0 0 C 

- • 447214 

-i.actjtiQ 

.6708 6+ 0 0 

'00  0 

. eoccoo 

.894427 

. 56  0 ju(l 

• 2236E+  GO 

loco 

4 2.0  D L 0 0 0 

-.  050  829 

-1.  72  j4C9 

• 1271E- 01 

loco 

-1. 290300 

•-.496741 

- 1.  35  26  29 

.67686400 

OCO 

. *JUCQO 

.866409 

• 31*114 

. 17 3 1£+  CO 

043  0 

-2.  005000 

-.3  48  62  6 

-1.  76  25  37 

. 1445E-C1 

70  0 

-1. 43CG0C 

-.842191 

-1. 550513 

•65Z5E+U0 

00  0 

•25EC0Q 

.411307 

. 1139  43 

.13 54E+00 

00  0 

“2. 000000 

-.414479 

1-1.  69  96  78 

.31 80 £-02 

00  0 

-1. 490700 

-.88520  2 

-1.  61 18  o5 

. 5 8 2 3 E + 0 0 

oou 

0*030000 

-.2112*4 

-.03  6576 

.1C  386  + 00 

100  0 

-2. Gvcaoo 

-.372374 

-1.733772 

• 78  7 4E-  0 2 

:oco 

-1. 465009 

-.725701 

-1.  464752 

• 61 99E+0  0 

■40  0 

-.137800 

-.578529 

-.297994 

.1525E+U0 

me  4 

-2.  GOSOCO 

-.313024 

-1.  738932 

• 63  4 56- c 2 

:oco 

-1. 322000 

-.507279 

-1.  250730 

• 635GE+  Cu 

’9€  0 

-.  3 444C  0 

-.004085 

- • *9  791C 

. 177  2E+0C 

IOGO 

4 2.  GOG OCO 

-.2  69  52  7 

-1,  736266 

•*544E- C2 

19  G 0 

-1 • C 7200  C 

-.335023 

-.95*0  54 

.62186+00 

>900 

, 517900 

-.962837 

-.  644837 

. 1695E+0C 

to  0 0 

-2.  300  008 

- • 259  22  9 

-1.  75  6 2 76 

.34626-02 

>00  0 

-.690300 

-.193980 

-.60  010* 

• 67  506+00 

IOGO 

1 -.628930 

-.948555 

-.739 JO 6 

•21C8E+00 

190  G 

-2.  uOGOCO 

- .237694 

-1.  75  00  25 

. 9694E-03 

IOGO 

-•493000 

-.061556 

-.26  60  30 

• 65  7 2E+  bO 

>40  0 

-.718000 

-.969388 

-.792992 

• 20  € 3£+o  0 

So  GO 

-2.030030 

-.2  37  69  4 

-1.  750 U 25 

• 9694E-03 

loco 

0. C3G0C3 

.061556 

.200030 

.6572E+00 

pee 

-.745400 

-.969388 

-. 792392 

.20  6 3 E ♦ u 0 

*«onurcRA?» 


PROGRAM  BOXC 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


BODY  ID.  TEST 


TEST  BODY 


M 

X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

1 

2 

Z 

Z 

NZ 

19 

-1. 530COG 

*1.50  00  00 

-2.006000 

-2.090600 

-.250229 

.400009 

.800030 

.800000 

.430000 

.153983 

-.342600 

-.  768100 

-.628900 

-.7180GG 

-.948555 

20 

-1.500000 

-1* 50 0030 

-2.  000030 

-2. 00C 000 

-.269527 

•303 C 3 6 

1. 140300 

1.072000 

•eocooo 

.335023 

-. 768 1C  0 

-.652000 

-•517900 

-. 628900 

-.902837 

21 

-1.500000 

-1.560006 

- 2.000300 

-2.  ooeooo 

-.310824 

1.140000 

1. 460000 

1.322300 

1.0  72000 

.50727= 

-.652000 

-.46  5930 

-.344400 

-.517900 

— .8  8488  5 

22 

-1.530000 

-1.5030(30 

-2.060000 

-2*  66060  0 

-.372374 

1. 46060 C 

1. 673 coa 

1.465085 

1. 322000 

.725701 

-.4659C0 

-.229700 

-.137800 

-. 344400 

-.578529 

23 

-1.  500 00 C 

-l. 50  no co 

- 2.000000 

-2. 030000 

-.414479 

1. 67000 C 

1. 732300 

1.490760 

1.465000 

.865202 

-.229700  0.  00  5000 

.*  ********** 

0.600000 

-.137860 

************ 

-.211244 

1 

-2.000000 

-2.000000 

- 2.556303 

-2. 500006 

-.557981 

1.490700 

1.322000 

1.003000 

1.6  5 500  0 

.747834 

6.003000 

.344400 

.235700 

0.300000 

.288382 

2 

-2. 330000 

-2. CCGCOO 

- 2.50030  0 

-2. 500  CO  O 

-.425912 

1.322000 

• 8 0 0 CO  0 

.805006 

l.GOOCCQ 

. 4 63  26  u 

, 34440  3 

.62  89  00 

. 3 8155  8 

,235700 

.777293 

3 

-2.030000 

-2. CO  COCO 

- 2.500900 

-2.530000 

-4397691 

.300000 

.400000 

• 40030  6 

.660800 

.246251 

.623900 

.716C00 

. 515360 

. 381 500 

,883807 

4 

-24  3000 no 

—2. DC  0000 

-2.500000 

-2.500000 

-«366o0  5 

4403030 

0. 000000 

0.600009 

. 400300 

*075  56  9 

• 7 1300  0 

« 74  5700 

• 5 528« 0 

.515306 

.927222 

5 

-2.000000 

-2. 000000 

-2.500 360 

-2. 53  C 30  0 

-.366809 

0.003000 

-.40  0000 

-.400000 

C.GOCOOO 

-.075569 

.745700 

.71  8000 

.515300 

.552800 

.927222 

6 

-2. 033600 

-2.000000 

- 2.  506000 

-2. 538800 

-.372805 

-.403000 

-.800000 

-.800060 

-.466880 

-.278586 

.718000 

•600000 

.381566 

,515310 

.885102 

FDA  nmir 


SCIENCE  ASSOCIATES 
MASSACHUSETTS 


PAGE  15 


NX 

N®  X 

NY 

NFY 

NZ 

NPZ 

0 

T 

A 


00 

00 


IOO 

bo 

bo 


-2.  000000 
. 400000 
-.718000 

-2.  0 OC  00  0 

•eocooo 

-.  628900 


-.250229 

.153980 

-4948555 

| 

-4265527 

•335023 

-.902837 


-1.  750276 
. 600104 
-. 739306 

-1.  73  82  66 
.95  40  54 
-.  64  48  37 


• 34  6 2 E-  0 2 
• 675CE+  CO 

• 21 U8E+ 00 

•4544E- w2 
•62186+00 
. 1655E+-  iO 


)03  -2.  OOCOC 0 

100  1. U 72000 

bfl  -.517900 


-.310024  -1.  738932 

.50  727  5 1.  25  0 730 

-.84)408  5 -.497910 


. 63 4 5 E- 02 
•63506+00 
. 17 7 2 E+  CO 


ICO 
10  0 
ICO 

-2.000000 
1. 322009 
-.344400 

-.372374 

.725701 

-.578529 

-1.  733772 
1.  48  4752 
-.297954 

•7874 E- 02 
•6159E+C0 
•1525E+0G 

10  0 

OC 

10  0 

1 

-2.000000 
1. 465000 
-.137390 

-.414479 

.885292 

-.211244 

-1. 699678 
1.  611865 
-.  09  6576 

• 318  CE-0  2 

• 5823E+  CO 

• 10386+0  0 

*¥¥*¥**¥*¥*¥ 


00 
0 0 
0 0 

0 0 
00 

0 Q 

00 
0 0 
00 

00 

9 

0 

0 

0 

0 

0 

0 

0 


-2. 500000 

-.557981 

1.  655006 

.747834 

0.000000 

.288382 

-2. 5 00  COO 

-.425912 

l.GOOOCO 

.463  20* 

.235700 

.777203 

-2. 500000 

-.397601 

! .609000 

.246251 

: . 381  SCO 

.883837 

- 2 • 50G000 

- • <5 66o0  5 

i. 400000 

•075569 

.515300 

.927222 

-2. SBCOOO 

-.366809 

0.000000 

-.075569 

• 552800 

.927222 

-2.  5ii>UQ0 

-.372805 

-.4  0(1  GUO 

-.278586 

. 5153C0 

.88510  2 

-2.  218024 

.13426-01 

1.  249  7 23 

• 73516+fifl 

. 149617 

.19396+00 

-2.  214445 

• 1C  3 4E-C 1 

. 99*269 

.72386+00 

.411287 

•2322E+C0 

-2. 25 G 969 

•9677E-02 

. 6C  C)  3 92 

.72336+00 

. 56 1 379 

•2263E+CQ 

-2. 250072 

•2272 E- 02 

. 20  0191 

•68C5E+U0 

. 632913 

•2157E+*U 

-2.250072 

•2272E-02 

-.  20  0191 

• 68  C5E+U0 

. 632913 

•21576+00 

-2.  250383 

.3496E-G2 

-.  60  0126 

•7233E+C0 

. 553459 

. 2 2 6 0 E + G 0 

*norn/rfFM?,. 


PROGRAM  BOXC 
BODY  10.  TEST 


N 


M 


8 7 


co 

cn 


10 


11 


12 


13 


14 


15 


16 


-2.; 

•1. 


-1. 


* 2i 


- 2. 


ATMOSPHERIC 

BEOFQRD* 

TEST  BODY 


SCIENCE  ASSOCIATES 
MASSACHUSETTS 


X 

X 

X 

X 

NX 

NP>] 

Y 

Y 

Y 

Y 

NY 

HP] 

Z 

Z 

Z 

Z 

NZ 

NPJ 

3 

030000 

-2.  GO  0 COO 

- 2.  58030  0 

-2.586060 

-.356212 

-2.21 

830800 

-1.230000 

-1.090080 

-.800000 

-.458473 

-.  951 

63009  S 

• 468003 

•235700 

.381500 

.795*99 

• 416 

3QOOOC 

-2. 690009 

- 2.500006 

-2.  506300 

-.537231 

-2. 213 

293830 

-1. 49  0700 

-1.055006 

-1.  636 600 

-.740960 

-1. 2D? 

46GC0C 

0. 006000 

O.OCGOOC 

•235700 

•462941 

. 166 

j 

930000 

*2.600000 

- 2.500000 

-2. 566060 

-.597981 

J 

-2.216 

490700 

*1.322660 

-1.000000 

-1.055CC6 

-.747834 

-1.240 

300  30  0 

-.344400 

-.23570  0 

0*330000 

-.288382 

-.149 

1 

909C00 

-2.000000 

- 2.500000 

-2. 566000 

-.425912 

1 

-2.214 

322000 

-.60  0600 

-.80002  0 

-l. oococa 

-.463200 

-.990 

3 4440  0 

-.628900 

-.381500 

-*  23570  0 

-.777203 

-.411 

900006 

-2. OS  0006 

-2.503003 

-2. 50C0Q0 

-.397801 

i 

-2.250 

890000 

-.400000 

-.439000 

-.80^000 

-.246251 

-.600 

628900 

-.718000 

-.515300 

-.381500 

-.883807 

-.  560] 

000030 

-2.000000 

-C.500G03 

-2.  506000 

-.366578 

-2. 25 o] 

439000 

6. 600003 

0.300300 

-.400000 

-.075231 

-.200 

718030 

-.  745400 

-.552800 

-.515300 

-.927341 

-.632 

300000 

-2. 000030 

-2.500000 

-2.  53QOCO 

-.366578 

-2.  250 

300000 

.43  0000 

• 40006  0 

0.006000 

.675231 

. 20  0 

745400 

-.71  8000 

-.515300 

-.552800 

-.927341 

-.63  2 

] 

909960 

-2.30  00  00 

- 2.500000 

-2.506000 

-.397801 

-2.  250! 

400609 

•60COOO 

•800000 

. 460000 

.246251 

.600; 

713009 

-.62  89  0 0 

-.381500 

-.515300 

-.883807 

-.  56511 

000C3G 

-2.  OOROOO 

-2.500303 

-2.  50  6 26  0 

-.425912 

-2.  214 

300000 

1. 322600 

1.0  00  oca 

. 806000 

• 463200 

.9900 

62 893  G 

-.344400 

-.235700 

-.381560 

-.777263 

- . *1 1 

033000 

-2. 009000 

-2.500060 

-2.  5010600 

-.597981 

-2.218 

3220 00 

1.  496700 

1. 055080 

1.  606000 

.747834 

1.  240! 

3 4440  0 

6.600000 

9.30 COCO 

-.2357C0 

-.288382 

-.149 

**•#♦***•**♦** 


509000 

-2.500000 

-2.6  0000  3 

-3.009000 

-.868756 

-2.  62  6 

655030 

.809000 

0.300300 

0.000000 

.411733 

.66  7 

900090 

.381560 

0.300300 

C*CS0000 

.275298 

. 149 

Foumirfm?. 


ThOSPHERlC  SCIENCE  ASSOCIATES 
i BEOFORO,  MASSACHUSETTS 

BODY 


PAGE 


16 


S * 

f Y 

Z 

I - <.5flQ3uO 
! -i.ocaoeo 
• .235703 

! ”2.500000 

”1.055000 
0.000006 

i ” e. 5 0000 u 

”1.00(3000 
*.235700 

“ 2.5  00  33  0 
-.80000  0 
*•381500 

”2. 50^303 
”.43«a0C 
-.  51530  0 

-2.500003 
0.0  0030  0 
-.5528(3  0 

”2.500900 

• *0033  D 
-.515330 

> ” 2.50090*3 
.800300 
-.381500 

! ”2.500  30  3 
1 • 3 00 00  0 
”•235703 

*2.500003 
1. 05593 3 

0. 0 00  90  0 


? 2.  0 0000  0 

0.3  0000  0 

O*  900000 


X 

Y 

Z 

NX 

NY 

NZ 

NP  X 
NPY 
NP  Z 

“2.520000 

800000 

.381500 

-.39  621 2 
-.458473 
*755+99 

-2.218355 
-•  95  6945 
•416059 

“2.  5009CU 
”i.  ojac  ooo 
•235700 

“•537231 
- • 740  96  0 
.002941 

”2.  212088 
-1. 2D  9729 
• 166619 

“2. 590000 
“1.055000 
0.090000 

- . 557981 
”•747834 
”.28  8 382 

”2.218924 
-1.  240  723 
“.149617 

-2.  500002 
“1. 030000 
”. 235700 

-.425912 

-.463203 

-.777203 

“ 2.  21 4445 
”• 990269 
“•  41126  7 

-2. 5002 00 
-.SOtSOO 
-•38150 0 

-.397801 

-.246251 

-.883807 

-2.250969 
-• 60 0392 
-.  56  0 379 

“2.  5OCC0O 
-.400000 
-.515300 

-.366578 

-.075231 

-.927341 

-2. 250074 
-. 200104 
-.63 2837 

”2.  530040 
O'  • 0 00  90  0 
-• 552800 

-.366576 

.075231 

-.927301 

“2.  252  0 74 

• 20  y 104 

”.632837 

”2.59000  0 
• 400 000 
-.515300 

”*357691 
•246251 
-.88380  7 

-2. 250969 
• 608  39  2 
- • 56  u 3 79 

“2.  500090 
*800000 
-.381500 

-.425912 
• 463  206 
“•777203 

”2.2 1 4+45 
• 990  269 
”• 411267 

-2,  5-300GO 
1. 630900 
- • 2 3 5 7 C 0 

-.557981 
• 747834 
-.288382 

► % 

“2. 218024 
1.240723 
-.149617 

•3.002000 

0. 008000 
C. CC0OO  0 

”•868756 

.411733 

•275206 

"2 • 62  68 33 

• 66  76  92 

• 1^145 

0 

T 

A 

•12146-01 
. 650  2E+C0 
•16666+00 

•2711E-C1 
*73  SlE+ufl 
•21456+00 

• 13426-01 
.73616+00 

.19396+00 

.13346- wl 
.723  86+  00 
• 2 3226+00 

.98776-02 
. 72 3 2 E+ 00 
.22 636+00 

.2342E-u2 

.63046+00 

•21576+00 

•23426-52 
* 68346+30 
.21 576+00 

.98776-02 

•72336+00 

•22636+00 

• 1034E-C1 
.72386+00 

.23226+00 

.13426-01 

• 73  916+00 
•19396+00 


0. 

•11 676+01 

* 23 166+00 


*nenurfftot. 
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PROGRAM  BO XC 
BODY  10.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BECFORD,  MASSACHUSETTS 


N M 


9 2 


3 


4 


5 


& 


co 

CD 


7 


8 


9 


10 


11 


12 


TEST  BOOt 


X 

X 

X 

X 

NX 

np| 

Y 

Y 

Y 

Y 

NY 

NP| 

Z 

Z 

Z 

Z 

NZ 

NPZ 

-2.500000 

-2.500000 

-3.000009 

-3. 000000 

-.*76209 

-2.  62  9 

• 80GCQ9 

• 40(1080 

8.000000 

0. U0C0OO 

•200802 

.434 

.381500 

. 515300 

0.000090 

D.C800CO 

.597912 

.336 

-2.500000 

-2.500500 

- ;.ooooco 

- 3 • 0 3 u 0 0 0 

-.7  68175 

-2.63  5; 

.408  00  0 

0. OOGCOO 

0.000000 

0 .008000 

.062764 

. 14  if 

.515300 

. 552800 

0.000900 

u«  9.90 SCO 

.669478 

.38  9] 

1 

-2.530000 

-2.50CC08 

- c.uCOQCO 

-3.080000 

-.740175 

- 2.  63  5| 

0.000000 

-.400000 

0 .0  00  30  0 

8.080000 

-.062764 

- • 14 1| 

•552800 

. 515300 

0.000000 

Jib  06  000 

.669478 

. 38  91 

-2 .5iOOOO0 

-2.500003 

-2.  00000  0 

-3. OOGCOO 

-.776209 

■] 

-2.  62  91 

-.400  COO 

-.80(3000 

9.000000 

8.00 0000 

-.20089  2 

- . 43  <*l 

• 51530 0 

.38  1500 

0.000900 

9.000000 

.597912 

.33  6! 

- 2.  5 00  DO  0 

-2.500005 

— 2 . S 3 a 33  0 

-3.  000090 

-.868756 

-2.  626* 

-.300000 

-1.055000 

0.000300 

0.030000 

-.411733 

-•  6B7( 

.381500 

0. 00  3 000 

0. 0 0090  0 

3. 000 000 

.275208 

.1491 

-2.500000 

-2.500000 

-3.000000 

-3. 000800 

-.8  68  75  6 

-2.  62  66 

-1.  055000 

-.830000 

0.009390 

9. 0 90030 

-.411733 

-.68  76 

0.300 G00 

-.381500 

0.000000 

0.  000060 

-.27520  8 

-. 1491 

-2.503000 

-2.  50  3G 00 

- v. 0 0008  0 

-3.000000 

-.776239 

-2.  62  91 

-.300000 

-.400000 

0. 003000 

O.COOOCO 

-.20060  2 

-.  4341 

-.381500 

- .51 53  00 

0.000088 

0.600000 

-.597912 

— . i>3  62 

-2.530000 

-2.500300 

-3.  0 0000  0 

-3. C 06600 

-4740175 

-2.63  54 

-.430030 

G. 090000 

C. 808000 

U. 800000 

-.062764 

- . 14 12 

-.515300 

-.55  28  00 

0.000000 

0.000000 

-.669478 

-.  389? 

-2.500000 

-2. 500000 

* 2.  000000 

-3. 00GOCO 

- .7  40 17  5 

-2.  63  54 

0.003000 

• 400000 

0. 000000 

0. 000000 

.0  62  764 

. 14  It 

-.552800 

-.  515  300 

0.000300 

0.008900 

-.6 69478 

-.  3892 

-2.500000 

-2.503000 

— 3.00U000 

-3. COPCO  0 

-.776209 

-2. 6291 

.400000 

.800000 

0.000300 

9.800000 

.280002 

. 43  41 

-.515300 

-.  381500 

0.000309 

U.C06C8O 

-.597912 

-.  33  62 

-2.500000 

-2.500000 

*3.030000 

-3.000000 

-.868756 

- 2.  62  6fi 

.309900 

1.055000 

0.0 0390 0 

o.cooooo 

.411733 

. 6876 

-.381500 

C. 0 00000 

0.009008 

u . 9 00  00  0 

-.275298 

-.  14  91 

*******«*?** 


I 


poioour  fRA?,= 


[tmospheric  science  associates 

8ECF0RD*  MASSACHUSETTS 
boo  y 


PAGE  17 


X 

Y 

Z 

X 

Y 

Z 

NX 

NY 

NZ 

NPX 

NPY 

NPZ 

-3.000000 
fl. 000030 
0.0  00900 

-3. COOOCO 
8. uOEfiGO 
0. COOOCO 

-.776209 

.200002 

.597912 

-2.  629150 
• 43+1  70 
.33  62  28 

- .‘.  0 00  00  0 
0.00(100  0 
o. yooooa 

-3.D3U0U0 

o.ecjoco 

4.C9C*CCO 

-.78ul75 

.062764 

.669+78 

-2.  63  5472 
. 141262 
.38  9779 

-i.uCOOCfl 
0*0  CO  00  0 
0.00090 0 

-3.030000 
o. fiuecoo 

3. OOCOCO 

- .74217  5 
-.062764 
.669+78 

- 2.  63  5472 
-.  1412  62 
.389779 

-c.  000000 
0*  000900 
0. 080000 

-3.  800000 
8.0OOOOO 
0.0133090 

-.776209 
-.25039 2 
.597912 

-2.  62  9150 
- . 43  41  70 
. 33  620  8 

- c.  536330 
C. 000000 
0.900904 

-3. 008C50 
U. 030000 
3 . 088  00  G 

- • 6 68  75  6 
-.4:1173  3 
.275296 

i 

-2.  6263  33 
-.66  7 692 
• 149145 

-3, 009000 
9.903990 
0.000000 

-3.000000 
9. 0 30  COO 
0. 000080 

-.8  68  75  6 
-.411733 
-.275208 

-2.  62  6833 
-.687692 
-.  1491+5 

-3.CC00G0 

O.OOuOOO 

0.000908 

^3.  0 00  000 
0. COOOCO 
0. 800000 

-.776209 
-.20000  2 
-.597912 

-2.  629150 
-.  43+170 
-.336208 

- i.  9 90  90  0 
C. 008030 
0. 003000 

-3. COOOCO 

u. 000000 

0.  00000(3 

-.748175 

-.062764 

-.669476 

-2.  635472 
-.  1412  62 
-. 389779 

- 3.  000900 
0.880980 
0.900908 

-3. 800000 
0. 000000 
0.008800 

-.740175 

.062764 

-.669478 

-2.  63  5472 
. 141262 
-. 389779 

-3. 0 3 u 3 9 3 
0.900300 
0.000300 

-3.  corcoo 
9.000000 
u • COOOCO 

- *776209 
.250092 
-.597912 

-2. 629150 
. 43  41  70 
-.  336298 

— 3i.  0 30  30  3 

8.009000 

8.003004 

-3.000000 
0. COOOCO 
8*  8 90  00  0 

-.868756 

.411733 

-.275293 

-2.  €2  68  33 
. 68  76  92 
-.149145 

0 

T 

A 

• 13 22E-  14 
.1018E+01 
•1672E+CC 

.22 2 fi £-15 
•82l9E+0a 
•1454E+C0 

.3C53E-15 

• 82 1 9E+C0 
•1494E+O0 

.111GE-14 

•1Q16E+G1 

• 167  2E  + Q0 

•8882E-15 

• 3.167E+&1 
.23166+00 

Ci  • 

.11676+01 

.23166+03 

.13326-14 

• 1818  E+Gl 
.16726+00 

• 02  20  E- 15 
•82i9E+tfO 

• 1494E+CC 

• 35  536-15 
.62  19E+G9 
•1494E+O0 

.11106-14 

• 1C  186+01 
•1672E+W0 

•8882 E- 15 
.11676+01 

• 2316E+  00 


* *♦  **  * * * * 4 * * 


189  BASIC  ELEMENTS  WERE  INPUT 

FLOWS  HAS  SET  UP  1 x FLOW*  n v c,  n,,c  * 

* a G Y FLOWS.  AND  C 


Z FLOWS. 


NEAR  ELEMENTS  = 123A0 

INTERMEDIATE  ELEMENTS  = 128L9 

FAR  ELEMENTS  = 10532 

LEADING  VFORM 
LEAVING  AF CRM 

THE  189  X 189  MATRIX  WITH 
LEAVING  ATAPES 


1 RIGHT  SIDES  WAS  SOLVED  DIRECTLY. 


CO 

00 


PROGRAM  80XC 
BODY  ID.  test 


N M NPX 

NPY 
NPZ 

I 1 1.  591385 

1. 389794 
♦094899 

2 1.  596349 
1.25  40  20 

. 282927 

3 1.605113 
1. 019539 

.445612 

**  1. 639275 

. 750323 
. 557494 

5 1.620269 

. 447921 
.613081 

6 1.624611 

. 147089 
.6412  22 

7 1.626041 
“. 148316 

. 623224 

8 1.627233 
-•  4428  46 

• 524111 

9 1.618821 

751168 
• 3S6778 

10  1.60  7146 

-1.085976 

• 242716 

II  1.589795 
-1. 365206 

• 0 34^64 

1.  591395 
-1. 389794 
-.094899 


atmospheric  science  associates 

BEDFORD*  MASSACHUSETTS 
TEST  BOO Y 

X-FLOW 


VT 

YTSQ 

CP 

VX 

t/Y 

VZ 

OCX 

OCY 

OCZ 

NX 

NY 

NZ 

• 650542 
.422205 
•576795 

•186355 

-.603774 

-.i54737 

.266460 
-. 928109 
-.237813 

• 958086 
.276584 

• 37*655 

•722674 

•522546 

•477454 

.242954 

“•520217 

-.439198 

.336094 

-.719651 

-.607572 

.941794 

.251249 

.223380 

• 82  73  95 

• 684562 

• 315418 

.333138 
-.36  9638 
-.649454 

• 402599 
-.473922 
-.784950 

.915363 
• 202414 
. 348352 

•907577 
.8236  <6 
• 176304 

.410652 

-.257457 

-.767312 

.452482 
-.283676 
-.8  45451 

.391771 

.146221 

.423210 

. 940308 

• 88  5119 

. 1148  61 

.456097 

-.124536 

-.813376 

.484793 

-.132373 

-.864553 

• 87h522 
.088802 
.476787 

•975755 
. 9520  98 
• 047902 

.487596 

.010372 

-.845127 

.459713 
• 010630 
— . 8 6 6l  2 6 

.865645 

.929238 

.499797 

1. 0225  (2 
1.  045673 
-•045673 

• 516023 
.185219 
- . 36  31 8 6 

. 504625 
.181129 
-.844124 

.863087 

-.082222 

•493318 

1.027046 
1.  3 548  24 
“. 054824 

.521379 
• 38  5641 
-.309336 

. 487683 
.375486 
-.7880  23 

.872872 
-.218216 
. 436436 

1*  03  78  72 
1. 0771 79 
-•077179 

• 5C  563  3 
.464951 
-.783893 

•487230 

.436350 

-.755286 

.872872 

-.218218 

.436436 

1.045350 
1. f 92756 
-•092756 

.507243 
.50  4246 
-• 762363 

.485237 
.4823  70 
-.72^290 

•872872 

-.218216 

•436436 

• 643584 

• 711633 

• 288367 

.275038 
.631390 
-.48  7141 

.3260  94 
.7484  62 
-.577466 

• 9-450  63 
-.272824 
.180064 

• 659236 
•434594 
. 565406 

• 18  2435 

. 63  34? -.s 

-. 304927 

*276812 
. 5608  95 

-.00  7*73 

•958086 

-.276584 

-.074655 

ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


EST  BODY 

I X-F.OW 


|fT 

[ 

VX 
\i  Y 
V z 

OCX 

DCY 

DCZ 

NX 

NY 

NZ 

VN 

SIG 

50542 

22205 

^6795 

.186355 

-.603774 

-.154737 

.286460 

928109 

-.237613 

.958066 

.276584 

.074655 

. 000030 
-• 139C5C 

228  74 
£2546 

77454 

' ' 

.242954 

-.523217 

-.439138 

.33  60  94 
-.719651 
-.607572 

.941794 
.251249 
. 223380 

. 5000  JO 

-.137437 

2 73  95 
B4562 
L 5418 

.333138 

-.369638 

-.649454 

.402595 

-•47i*922 

-.784950 

.915363 

.202414 

.348352 

. GQOQUQ 
-.133778 

97577 
236  <6 
76304 

.410652 

-.257457 

-.767312 

. 452482 
-.283676 
-.845451 

.891771 

.146221 

.423210 

. u 0 0 (i  u 0 
-.130613 

♦0  30  8 
5119 
.48  61 

.456097 

-.124538 

-.81337© 

.484793 

-.132373 

-.864553 

. 8 74 !? 22 
.086302 
.476787 

.003030 

-.128792 

P57  55 
>20  9 8 
♦ 7902 

.487598 

.010372 

-.845127 

.499713 
• C 146  30 
-.866126 

.86564? 

.029238 

.499797 

. 0 0 GO  uG 
-.1276  64 

225  iZ 
15673 
► 56  73 

. 516023 
.185219 
-.36  3136 

. 504625 
.161129 
-.844124 

.863087 

-.082222 

.493318 

. 3 S 0 a 5 C 
-.127758 

!7046 
|48  2 4 
148  24 

. 531079 
.38  5641 
-.805336 

. 487683 
.375436 
-.788023 

.872872 
- . 21321 2 
. 436436 

. 333030 
-.134528 

,78  72 
•7179 
17179 

.505633 

•454951 

-.783893 

.487230 
.436350 
- . 7 5 52  86 

.872872 

-.218218 

.436436 

.350430 
-• 136386 

S3  50 
i27  56 

27  56 

.507243 
. 50  424  6 
-.762363 

.485237 
. 48  23  70 
- • 7 2i2  90 

.872872 

-.218218 

.436436 

.000030 

-.128697 

35  84 
1633 
83  67 

.275033 
.631390 
-.48  7141 

.326094 
.74  84  62 
-.5  7 74  66 

.945063 
-.2  728  24 
.180364 

.003000 

-.140478 

9238 
|5  54 
54  06 

.18  243  5 
.63345  8 
-.004927 

.276812 
. 960895 

-.00  74  73 

.958386 

-.276584 

-.074655 

• WOO  33 0 
- . 1437 42 

rniOnurfR*!, 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 

TEST  BOO Y 


X-FLOW 


M 

NPX 

VT 

vx 

OCX 

NX 

NPY 

VTSQ 

V Y 

OCY 

NY 

NPZ 

CP 

VZ 

OOZ 

NZ 

13 

1. 598349 

•686910 

•228438 

• 332515 

• 941794 

-1.2540  20 

.471645 

• 54  5533 

.794140 

-.251249 

-.282927 

.528155 

.149431 

•508700 

-.223380 

14 

1.635113 

.794765 

.319054 

•401444 

.915363 

-1.019539 

.631651 

.417354 

.525129 

-.2  £2414 

-.445612 

.368349 

.596332 

.750386 

-.348352 

15 

1.609275 

•683063 

•399194 

.452056 

.891771 

-.750320 

.779800 

.290737 

.329203 

-.146221 

-.557494 

•220200 

.7  32075 

.8  29018 

-.4282x0 

16 

1.629269 

.918614 

•445350 

.46  4618 

.874522 

-.447901 

.643852 

.170819 

,1859  53 

-.088802 

-.6133  81 

.156148 

.785065 

.854619 

-.476787 

17 

1.624811 

• 938859 

.469995 

.500602 

.865645 

-.147089 

.881457 

• 0651633 

.0  645  81 

-.029238 

-.  641222 

.118543 

.810435 

.8632  65 

-.499797 

, 8 

1.624811 

.941987 

.471601 

,500645 

.865649 

.147089 

.887340 

-.0  v271 4 

-.045345 

.029238 

-.641222 

.112660 

.814314 

•864464 

-.499797 

19 

1.620269 

.928862 

.450432 

.484982 

.874522 

.447901 

.862784 

-.15  2091 

-.163739 

.083802 

-.6130  81 

.137216 

.797947 

.859059 

-.476767 

20 

1,609  27  5 

.902372 

.40  8274 

• 4 52446 

.891771 

.750320 

.814275 

-.271614 

-.301000 

.146221 

-.557494 

.185725 

.757535 

.839459 

-.428210 

21 

1.605113 

•624376 

.331816 

•492505 

.915363 

1.319539 

• 679596 

-.397026 

-.481607 

« 202414 

-.445612 

•320404 

,641767 

.778488 

-.348052 

22 

1.598349 

.721173 

.242312 

.335997 

.941794 

1. 254020 

• 520  6 99 

-.523590 

-.726026 

.251245 

-.232927 

.479910 

.432699 

.599994 

-.2  23380 

23 

1.591395 

.649987 

.186167 

.286416 

.953086 

1.389794 

• 422484 

-.604720 

-.930356 

.276584 

-.094899 

• 577516 

.148793 

.228917 

-.074655 

1 

1.220  560 

1.298463 

1.168799 

• 900141 

.435365 

1.831729 

1. 666005 

-.543418 

-.418509 

,855263 

.149900 

-.686005 

*.156877 

-.120616 

.23x038 

PROGRAM  BO XC 
300Y  ID,  TEST 


r 

5E  ASSOCIATES 

ICHUSETTS  PAGE  19 


I 


OCX 

NX 

VN 

OCY 

NY 

SIG 

DCZ 

NZ 

.332515 

• 941794 

. OOllCOO 

.794140 

-.251245 

-.141206 

.508700 

-.223380 

.401444 

.915363 

. 000030 

.525129 

-.202414 

-.136358 

.750388 

-.348352 

.452056 

.891771 

.000000 

.329203 

-.146221 

-.132383 

.829018 

-• 425  2aD 

.48  4818 

.874522 

.000000 

.185953 

-.088802 

-.129915 

.854619 

-.476787 

.500602 

.365645 

.000000 

.0  645  81 

-.029238 

-.126441 

.863265 

-.499797 

. 500645 

• 8 65649 

• 000000 

-.045345 

.029236 

-.126168 

.864464 

-.499797 

.464982 

.874522 

• GGGQlO 

-.163739 

.088802 

-.129054 

.855059 

-.476767 

.452446 

.891771 

, 0 0 4 O is  0 

-.301000 

.146221 

-.130873 

.839459 

- . 428  2iS 

.432505 

.915363 

.00300U 

-.481607 

. 202*1^ 

-.1339  79 

.77  6488 

-.348052 

.335997 

.941794 

. 2 0 0000 

-.726026 

.251245 

-.137551 

.595994 

-.223380 

.286416 

.958086 

• 00  0 000 

- *930356 

,276584 

-.139065 

.226917 

-.074655 

.900141 

,435365 

. OOCQbC 

-.418509 

.855263 

-.041547 

-.121)618 

,28x036 

<♦  i 

\ 

rnmurmt, 


i. 


PROGRAM  30  XC 
BOOY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD.  MASSACHUSETTS 

TEST  BOOT 


X-FLOW 


M 

NPX 

MJ 

MX 

OCX 

NX 

NPY 

VTSQ 

MY 

OCY 

NY 

NPZ 

CP 

Ml 

OCZ 

NZ 

2 

1.2417 19 

1.342441 

1.235682 

.9204  59 

•390069 

1.1652833 

1.8C2147 

-.395679 

-.29  4746 

.652170 

.414680 

-.802147 

-.344584 

-.2  5 66  7 0 

.650004 

3 

1.241630 

1. 394162 

1.318375 

.945640 

.324553 

1.351646 

1. 943687 

-.240723 

-.172665 

.44700  e 

.631851 

-4  9436  £7 

-.38  4222 

-.275593 

.833577 

4 

1.242993 

1.422806 

1.362458 

.9575  85 

.2  880  0 c. 

. 935715 

2*024378 

-.135694 

-.095371 

.28715  i 

.786135 

-1.024378 

-.366676 

-.271910 

.913561 

5 

1.250180 

1.439029 

1.365168 

.962571 

.270929 

• 6900  88 

2.07080  5 

-.055319 

-.036442 

.163401 

.876683 

-1. 070805 

-.386C75 

-.268289 

• 948629 

6 

1.250017 

1.440042 

1.388034 

.9636  84 

.261384 

•200026 

2.3  737  22 

.055597 

.036606 

.052527 

.922094 

-1. 073722 

-.378465 

-.263509 

.963805 

7 

1.  2460  98 

1.454052 

1.441656 

.991475 

.126140 

-.  199566 

2.114266 

.10  3242 

.07 1003 

-.312996 

.867167 

-1.  114266 

-•  158654 

-.109249 

. 941341 

8 

1. 2500  Ou 

1.4642  73 

1.46  3954 

.999782 

U.  0 soil  00 

-.60CQGG 

2.144096 

.027383 

.016687 

-.447214 

.700300 

-1.144096 

.013631 

.009344 

.894427 

Q 

1.250000 

1.45  9110 

1.458550 

.999623 

U.OCOuQO 

“1. C 300  03 

2.  129001 

.035829 

.0245  56 

- .44 72 14 

.500000 

-1.129001 

.017915 

.0122  78 

.894427 

10 

1.250300 

1.413037 

1.412346 

.999511 

O.OOOOuG 

— 1. 4000  UO 

1.996674 

.03  9537 

.0279  80 

-.447214 

. 3000 00 

-.9966  74 

.019783 

.0 13990 

.894427 

11 

1. 216789 

1. 32  97  56 

1.312795 

• 9872  45 

.159306 

-1.739216 

1.768252 

.118453 

.089086 

-.593315 

.102(318 

-.76  82  52 

-.175483 

-.1319  51 

.769109 

12 

1.220560 

1. 24C825 

1.106576 

.891807 

.435365 

-1. 831729 

1.539647 

.561339 

.452391 

-.855263 

-.149900 

-.539647 

.005949 

.504795 

-.261*3  38 

13 

1.241719 

1.307517 

1.201637 

.919023 

.390389 

-1.552830 

1.  7095  99 

.417526 

.3193  27 

-.652173 

-.414680 

-.709599 

.30  2225 

• 231144 

- .650304 

FOiOOUr  fRA.c  I 


( 

fflERIC  SCIENCE  ASSOCIATES 
|CFORD,  MASSACHUSETTS 


X-FLOW 


1 tfX 

f VY 

[ ^ 

OCX 

DCY 

OCZ 

NX 

NY 

NZ 

VN 

SIG 

1.23  5652 
[ -.395679 
| —.344534 

.920459 
-.29  4746 
-.256670 

.390089 
.652170 
.65:0  00  4 

•OOGfluO 
-. 031945 

1.318375 
-.240723 
-.38  4222 

.945640 

-.172665 

-.275593 

.324553 
.447  0 0 6 
.833577 

• 08 0 0 CO 
-• 015166 

1.362458 
t 135694 

-.366876 

t 

. 9575  95 
- • C9 53  71 
-.2  71910 

.28800  ? 
.287151 
.913561 

.800000 

-.011885 

I 1.36  5163 
i -.055319 
-.386C75 

.962571 

-.038442 

-.266289 

.270929 

.163401 

.948629 

.COCO 00 
-.808418 

i 1.368034 
.055597 
1 -.379465 

f 

.963664 
• 0366  06 
-.263509 

.261384 
.052527 
. 963805 

.0000.0 

-.447881 

' 1.441656 

.103242 
-.15885* 

.991475 
.071003 
-.1092  49 

.126140 
-.312996 
. 941341 

• COCOuO 
. 022592 

r 1.463954 
.027363 
. 01363  1 

.999782 

.018687 

.009344 

0.008000 

-.447214 

.894427 

• UOuGC-O 

• 0 5 12  J 5 

1.458560 

.035829 

.017915 

.999623 
.024556 
.0122  7$ 

u . 0 L 8 . it  0 0 

-.447214 

.854427 

. U 4 C 0 0 0 
. 145966 

\ 1.412346 

.039537 
.019763 

.959511 
.0  279  80 
.013990 

0.0  00  0 4 0 

-.447214 

.894427 

.tOOG-G 
*0478  84 

1 1.312795 

•118463 
-.175453 

.987245 

.089086 

-.131951 

.159006 
-.593315 
.78910  < 

•OGuGlG 

.011237 

1.106576 
.561339 
. 005949 

.891807 
. 452391 
.004795 

. 435365 
-.855263 
-.201038 

.000030 
-.  1/52420 

. 1.20163  7 
.417526 
l * 313  2225 

* 919023 
.3193  27 

• 2 31144 

.390389 
-.652170 
- • 65u JO  4 

.no oj jo 

-.039169 

PROGRAM  BOXC 
BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
8E0F0RQ,  MASSACHUSETTS 


TEST  BOCY 


X-FLOW 


M 

NPX 

\l  T 

VX 

OCX 

NX 

NPY 

VTSQ 

VY 

OCY 

NY 

NPZ 

CP 

vz 

OCZ 

NZ 

14 

1.241630 

1.375733 

1.300194 

• 945091 

. 324553 

-1.351646 

1.892642 

.259936 

• 1869  43 

-.‘♦47006 

-.631851 

-.692642 

.36  664J 

.266651 

-.833577 

15 

1.242990 

1.414596 

1.354235 

.957309 

•283009 

-.985715 

2.  0010  80 

.15  692  8 

. 11C935 

-.267154 

-.786135 

-1.0010  60 

.3  7763  0 

.266931 

-•  91j  561 

16 

1.250180 

1.43  916  8 

1.38  5137 

.962478 

.270929 

-.600068 

2.071262 

•988699 

• 061531 

-.163401 

-.876683 

-1.071262 

.380331 

.2642  68 

-.948629 

17 

1.250017 

1. 449715 

1.399232 

.965212 

.261384 

-.280026 

2.  1016  73 

.030635 

.021167 

-.052527 

-.922094 

-1.  101673 

.377813 

. 26u612 

-.96:3805 

18 

1.2500 17 

1.451738 

1.401258 

.965235 

.261364 

. 200026 

2.  10  75  A 4 

-.022042 

-.015183 

.052527 

-.922094 

-1.10  7544 

.37  882  3 

• 266944 

-.963805 

19 

1.25C180 

1.445716 

1.391539 

.962560 

.270929 

.603068 

2.  090095 

-.379317 

-•  0 5h8  63 

.163401 

-.376683 

-1. 090095 

.36  3776 

.265457 

-.948629 

20 

1.242993 

1. 426664 

1.366014 

.957488 

.288009 

.985715 

2.  035371 

-.146440 

-.102645 

.287154 

-.786135 

-1.  035371 

.364619 

.269593 

-.9  13561 

21 

1.241630 

1. 396261 

1.320233 

.945549 

.324553 

1.351646 

1.949544 

-.245998 

-.176183 

.447006 

3 1 


-.631851 

1.241719 

1.652830 

-.414680 

1.220  5 60 
1.831729 
-• 149900 

.5*0000 
1.935083 
. 1773  0-0 

.500000 

1.735000 

.477303 


-.949544 

1.343418 
1.804772 
-. 804772 

1. 298765 
1. 686792 
-.686792 

1. 212633 
1.470479 
-.470479 

1.221463 

1.492C20 

-.492020 


.362116 

1.2364-77 

-.398298 

.342426 

1.169035 
-.544235 
.15463  3 

1.212570 
- . 00  4275 
.911662 

1.221239 
-.016098 
. 014632 


.2736  71 

.920396 
».  296481 
.254891 

.900112 
-.4190  79 
.119339 

.999948 
-.0  035  26 
.009617 

.9  99841 
-.013179 
.011979 


-.833577 

.399069 
.652170 
-.65 JO 04 

.435365 

.855263 

-.281038 

0. 0 4 0 0 30 
.938393 
.344206 

0.020000 

.672591 

,744014 


roioour 


|E  ASSOCIATES 

iCH  U3ETTS 

PAGE 

? OCX 

NX 

VN 

OCY 

NY 

SIG 

ocz 

NZ 

• 9450  91 

.324553 

.000000 

1 .186943 

-.447306 

-.024030 

.266651 

; 

-.833577 

.9573  09 

.288309 

•uceooo 

.111935 

- • 2p  71  54 

-.314970 

.266931 

-.913561 

1 .962478 

.273929 

• 30  00 CO 

.061631 

-.163401 

-.010137 

j .264268 

-.948629 

! .965212 

.261384 

.000000 

i .621167 

-.052527 

-.007697 

; . 26o612 

-.963805 

.965235 

.261364 

.300060 

-.015183 

.052527 

-.007156 

.261-944 

-.963805 

.962560 

.270929 

•uOOGOO 

-.0548  63 

.163401 

-.008545 

.265457 

-.948629 

[ .957438 

.288009 

• oofiooe 

-.102645 

.287154 

-. 012085 

1-  .2  6959  3 

1 

-.9  13561 

.945549 

.324553 

.000030 

-.176183 

.447006 

— *»j19350 

i .273671 

-.833577 

[ .920396 

.390069 

. 4 0 0 0 w 0 

-.296481 

.652170 

-.  0320  50 

i .254991 

-•65J3U4 

.900112 

.435365 

. OOOCuO 

-.419079 

.855263 

-.041587 

.1193  39 

L 

-.281038 

: .999948 

0. 0 U000G 

. OOOuUO 

-.003526 

.938893 

.309526 

.309617 

.344208 

E • , . 

| .999841 

9. 000000 

.UUU02O 

1 -.013179 

.672591 

.009772 

I .011979 

.744014 

onuTfRAf, 

ik 


PROGRAM  BO XC 
BODY  10.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 

TEST  BODY 


X-FLOW 


M 

NPX 

VT 

VX 

OCX 

NX 

NPY 

VTSQ 

VY 

OCY 

NY 

NPZ 

CP 

U 

OCZ 

NZ 

3 

•509000 

1. 232356 

1.232237 

.995679 

0.000000 

1. 430900 

1. 518701 

-.017153 

-.013919 

.447214 

.700000 

-.518701 

. 0C  8577 

.006960 

.894427 

4 

.500000 

1.237037 

1.236932 

.999955 

3. 01030  00 

1.090000 

1. 530261 

-.011243 

-.009088 

.279631 

. 858250 

-.530261 

.003274 

.002647 

.960107 

5 

.539033 

1.23  4013 

1. 23  41-11 

.999998 

0.000000 

.60  0 0 03 

1. 522789 

-.00  243  2 

-.0  02011 

.156305 

• 948 1 50 

-.522769 

•000393 

.000318 

.967705 

6 

• 530000 

1.  2200  64 

1.220020 

.999964 

a.ooacco 

.230303 

1.488557 

.010370 

.006500 

.050436 

.939900 

-.488557 

-.900524 

-.00(1429 

.998727 

7 

.500030 

1. 206541 

1.206516 

.999979 

U.OOUOOG 

-.290300 

1.455742 

-.007029 

-.005826 

-.447214 

*935300 

-.455742 

-.30351  5 

- • C 02913 

.694427 

8 

.500300 

1.196347 

1.196331 

.999986 

0.0:00300 

-..630  oca 

1.431247 

.005573 

.004659 

-.447214 

.700000 

-.431247 

.00  2737 

•002329 

.894427 

9 

. 50G0C9 

1.185439 

1.185352 

.999927 

0.300000 

-1.390003 

1. 40 5265 

.312836 

• 010626 

-.447214 

.500003 

-.  40  5265 

.006418 

.005414 

. 894427 

19 

.5003*0 

1.175488 

1.175237 

.999829 

0.000000 

-1.400300 

1.361772 

.015439 

.016537 

-.447214 

. 30C3C0 

-.381772 

.009719 

• 00*2 66 

.894427 

11 

. 530000 

1.  164000 

1.163439 

.999519 

! 

0. 0300  CU 

-1.  893000 

1. 3548  55 

.032332 

.0  277  51 

-.447214 

.100000 

-.354895 

.316151 

.0138  76 

.8.94427 

12 

. 59 05 00 

1.16  fO 03 

1.167655 

.9998  73 

U .330000 

-1.935000 

1.364231 

.006398 

.005477 

-.938893 

-.177303 

-.364231 

-.017450 

-.014940 

-.344208 

13 

.590009 

1. 1$ 54 03 

1.195120 

.999763 

3*000600 

-1.735000 

1.42  69  89 

.019253 

.016106 

-.672591 

-.477300 

-.428989 

-.017499 

-.014638 

-.740014 

14 

.530000 

1.2187  60 

1.21853  2 

*999813 

0.000000 

-1.400303 

1.48  5377 

.021030 

.017296 

- • 447214 

-.700000 

-.485377 

-.010540 

-.008648 

-. 894427 

Fouaour  i 

- 


puc  SCIENCE  ASSOCIATES 
FORO,  MASSACHUSETTS 

PAGE  22 


X-FLOW 


f vx 

VY 

YZ 

OCX 

DCY 

OCZ 

NX 

NY 

NZ 

VN 

SIC 

f 1.232237 
f -.017153 
E .908577 

H- 

[ 

.995679 
*•013919 
•C 06960 

0.000300 

.447214 

.894427 

•000030 

.910657 

‘ 1.236932 
f -• 011243 
; .30  3274 

.999955 
-.009088 
• 002647 

0.0  COO  Oil 
.279631 
.960107 

*403030 

.311576 

' 1.234011 
I -.  00  243  2 
• 000333 

.999998 
-.0  02011 
.000318 

0.000200 

.156305 

.967709 

.000030 

.011895 

1.  220020 
.010370 
-.900524 

.999964 
• 008500 
-.000429 

0.003000 

.050436 

.998727 

.380020 
. 010980 

1.20  6516 
-.  007029 
-.  30351  5 

r 

; 

.999979 

-.005626 

-.002913 

0.000030 

-.447214 

.694427 

•000000 
* will 47 

1.19  6331 
.005573 
i .00  273  7 

i 

.999986 
• C 04659 
.002329 

0.000300 

-.447214 

•894427 

.000030 

.011654 

1.18  5352 
: • 31  28  3 6 
[ .006418 

. 999927 
• 010628 
.005414 

0.300000 
-.447214 
. 8:94427 

.000000 
* 210632 

t.  175237 
'i  019439 
. 009719 

.999829 

• 016537 

• CO  02  68 

0 • 0000  00 
-.447214 
*894427 

• C 6*0  0 CO 

•008609 

|*163439 
'•03233  2 
h 316151 

.9  99519 
.027751 
.0136  76 

0.090000 

-.447214 

.894427 

•0030 00 
.004981 

[•167855 
•lOO  6398 
|.  0 1 7450 

.9  99873 
• 0 05477 
-.  014940 

U .000OCO- 
-•933893 
-.344206 

. 600090 
• 60  6411 

plS  5120 
1,019253 
.017499 

.995763 

.016106 

-.014638 

3.0000  00 
-.672591 
-.749914 

• 0000  00 

•00 7340 

• 218532 
id  21033 

• 010540 

.999813 

.017296 

-.008648 

3.900000 

“ . 447214 
-. 894427 

. u 0 2 0 C 9 
.008940 

PROGRAM  BOXC 
800 Y ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


TEST  BOOT 

X-F.OW 


N H 

NPX 

NPY 

NPZ 

VT 

VTSQ 

CP 

MX 

VY 

Ml 

OCX 

DCY 

OCZ 

NX 

NY 

NZ 

3 15 

. 53C3C0 
-1.00C003 
- • 8 5 8 2 5 O 

1. 234579 
1.524186 
-.524186 

1.234462 

.316316 

-.904752 

*999905 

*013216 

-4903849 

! 0.0  CuGJO 
-.279631 
-.960107 

16 

. 50Q0G0 
-.600-300 
-.948150 

1. 244132 
1. 547863 
-.547863 

1.244037 

.319356 

-.301640 

*999964 
*0  083  32 
-.001319 

0.0  00  0 00 
-.156365 
-.987709 

17 

.590 0 CO 
-.200000 
-.939993 

1. 2493 57 
1.563993 
-.  560953 

1.249390 
.00  4210 
-.000213 

.999994 

.003369 

-•  00&170 

O.GwOCCD 

-.050436 

-.998727 

18 

.590003 

.200003 

-.989900 

1.  2 512  59 
1. 565650 
— • 56  56  50 

1. 251258 
-.001959 
-.  00  3 099 

.999999 
-.0  015  73 
-.000379 

0.0  00 0 00 
.0  50  436 
-.998727 

19 

.530000 
. 6COOOO 
-.948150 

1. 249969 
1. 562422 
-.562422 

1.24S942 

-.038033 

-.001276 

.999979 
- .0  0 64  51 
-.  0010  21 

.156365 

-.987709 

O 

<\J 

43 

. 5095  00 
1. 000050 
-.358  253 

1.245269 
1. 550654 
-.550694 

1.24513  5 

-.013864 

-.004038 

.999933 
-.011133 
-.00  32  42 

0.  QCwOOO 
.279631 
-• 9b4 10  7 

21 

.500000 

1.40G3OD 

-.730903 

1.23  64  71 
1. 528862 
-.528862 

1.236335 

-.918128 

039054 

.999666 

-.014661 

-.007331 

0.000000 

.447214 

-.894427 

22 

.500900 

1.735000 

-.477303 

1. 223413 
1. 496738 
-.496736 

1.223215 

-.016278 

-.014795 

.999838 

-.013306 

-.012093 

O.OtuGJC 

.672591 

-.740014 

23 

.530000 

1.935000 

-.177300 

1.213215 
1. 47189C 
-.471699 

1.213153 

-.004229 

-.011513 

.999949 

-.003478 

-.309487 

o.ouooac 

.938893 

-»34*+208 

4 1 

-.246-368 
1.923092 
. 174952 

1.156990 
1. 336626 
-.3:38626 

1.155568 

.053200 

.021431 

.998771 

.045981 

.018497 

-.049532 
.939127 
• 33 99  6 C 

2 

-.  249477 
1.7262  69 
.470688 

1. 161134 
1. 348232 
-.346232 

1.160043 
.029883 
• 340  55  S 

.9950  58 
.025736 
.0  349  38 

-.043145 
.67  515  6. 
. 736411 

3 

-.249169 
1.395016 
. 69  27  74 

1. 165449 
1. 3 58  2 72 
-.3562  72 

1.164736 

.313548 

.343195 

.999364 
.0050  51 
.034489 

-.034875 

.449471 

.892614 

rotoour 


i 


jSPHERIC  SCIENCE  ASSOCIATES 
pEOFORD,  MASSACHUSETTS 

I 

0DY 


X-F.OW 


vx 

VY 
\l  1 

OCX 

DCY 

DCZ 

1.23  4*45  2 
.016316 
-.304752 

.999905 

.013216 

-.003849 

1.244037 

.010356 

-.301640 

.999964 

.006332 

-.001319 

1.249390 
.00  4210 
-.000213 

.999994 

.002369 

-. 000170 

1.251258 
-.00 1959 
-. 003099 

.999999 
-.0  015  73 
-. 000079 

1.245942 

-.008053 

-.001276 

.999979 
-.0064  51 
-.  0010  21 

1.24513  5 
-.013854 
-.004038 

.599933 
-.011133 
-.0032  42 

1.236305 
-. 318128 
-.009054 

.999866 

-.214661 

-.007331 

1.223215 
-.016273 
-.01479  5 

.999838 
-.013306 
-.0120  93 

1.213153 

-.004220 

-.011519 

.999949 

-.003478 

-.305487 

1.155563 

.053200 

.021431 

.998771 

.045981 

.018497 

1.160940 
. 329383 
.340558 

.9990  58 
*025736 
.0349  38 

1.164738 

.310543 

.043195 

.999364 
. 0 0 b0  51 
.034489 

PAGE  23 


NX 

NY 

NZ 

ON 

SIG 

0.0  020  30 
-.279631 
-•96D1U7 

*000020 

.010302 

0.0 00030 
-.156335 
-.987709 

•300030 

.211310 

0 . 0 0 Q C C 0 
-.050436 
-.998727 

.000030 
• 011924 

0.300300 
.0  50  43  6 
-.998727 

.000000 

.012193 

0.002030 

.156325 

-.987709 

. wOOCL'fl 
. 012128 

0.QC2000 

.279631 

-.962107 

.000008 
. Cl  1740 

0.090000 

.447214 

-.894427 

. C C 0 2 u 0 
.212921 

G.ObuOJC 

.672591 

-.740014 

• 3 0 02  JO 
•009613 

o.ouaauc 

.938893 

-.344208 

.300000 

.009545 

-.049532 
.939127 
• 33998C 

• 300000 
. 004922 

-.043145 

.675156 

.736411 

.0*0  3000 
.004422 

-.034375 

.449471 

.892614 

• 3 00000 

• 2 64010 

PROGRAM  80XC 
BOO Y ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BECFORO,  MASSACHUSETTS 

TEST  30 DY 


X-F.OW 


M 

NPX 

V 1 

VX 

OCX 

NX 

NPY 

visa 

VY 

DCY 

NY 

NPZ 

CP 

2 

OCZ 

NZ 

4 

-.249537 

1. 166421 

1.165610 

.999476 

-.031343 

.998756 

1.360539 

-.00  012  4 

- . 000106 

.231449 

.850538 

-.360539 

• 0 3 777  0 

•032331 

• 9590  7 4 

5 

-.250016 

1.  16  3090 

1.162535 

.999497 

-.029216 

. 630001 

1. 352777 

-.003737 

-.007555 

.157442 

.940749 

-. 352777 

.035812 

•C3S790 

.987096 

6 

-•25OP02 

1.152040 

1.151345 

.999397 

-.026252 

*200000 

1.327196 

-.021553 

-.016722 

.050769 

.9828  25 

-.327196 

.033633 

.029235 

.998310 

7 

-.249496 

1.13  5124 

1.134830 

.999714 

-.012608 

-.199997 

1. 268507 

-.026978 

-.023767 

-.434526 

.396509 

-.288  5(7 

.00  2870 

.00  2529 

.920571 

3 

-.250003 

1.119936 

1.115873 

.999944 

U. 000300 

-.600000 

1. 254256 

-.010538 

-.009454 

- • 4*7214 

.700000 

-.254256 

-.005294 

-.004727 

.894427 

9 

-.250000 

1.111342 

1.111342 

.996999 

0.030033 

-1. 030000 

1.2350  62 

• 30 123  6 

.001157 

-.4*7214 

•500000 

-.235082 

. 3 C 364 3 

.000578 

.89*427 

10 

-.250000 

1.108332 

1.106740 

.999917 

0.0 C 0330 

-1.  430  0 00 

1. 229506 

.012743 

.011489 

-.447214 

.3  IS COO 

-.2295  C 8- 

.006370 

.00  57  45 

.89*427 

11 

-. 247831 

1.115217 

1.114799 

.999625 

-.012880 

-1.793015 

1. 243710 

• 01 73*2 

.015550 

-.460010 

. 10 CO  24 

-.243710 

.025159 

.022559 

.887820 

12 

-.298068 

1.128924 

1.12689 3 

.996201 

-.0*9532 

-1.923S92 

1.274468 

-.0655*5 

-.056060 

-.939127 

-.174052 

-.274468 

.316879 

.0149  51 

-.339980 

13 

-.249477 

1.147966 

1.146858 

.999218 

-.0*3145 

-1.726269 

1.31  78  72 

-.042024 

-.036607 

-.675158 

-.470688 

-.3178  72 

-.028665 

-.024969 

-.736411 

14 

-. 249169 

1.  160735 

1.160026 

.999-389 

-.034875 

-1.395316 

1.347306 

-.  020453 

-.017620 

-.449471 

-.69277* 

-.3473 C6 

— . 03  502 4 

-.030174 

-.892614 

15 

-.249537 

1.  169028 

1.168455 

.999518 

-.0313*3 

-.9987  56 

1. 366627 

-.009974 

-.008532 

-.281449 

*•  85Si>38 

-.366627 

-.034893 

-.0298  48 

-.959074 

[CE  ASSOCIATES 
L’ACHUSETTS 


PAGE  24 


sw 


I 


1 1 


\ 


£ 

I 

i 

I 

| 


! 

| 

I 

[ 


OCX 

DCY 

OCZ 

NX 

NY 

NZ 

VN 

SIG 

j .999476 
—.000106 
j .032381 

-.031343 

.281449 

.959574 

.000530 
• 00  40  8 3 

i .999497 
!-.  007555 
.03079(1 

j 

-.029218 

.157442 

.987096 

• 00  05  09 
•004254 

! .999397 
!-. 016722 
j .0  292  35 

-.028252 
• 0 50  76  9 
.993 310 

.000000 
• to  42  49 

i .999714 
j-. 023767 
j .002529 

-.012608 

-.434526 

•900571 

•090500 
• 00  4604 

i , 9 99944 
-.009454 
-.004727 

y. 0 GO  0 00 
-.447214 
.894427 

. 050000 
-.431173 

.999999 
.001157 
, .0005  78 

0.030300 

-.4*7214 

.894427 

.000030 

-.001694 

i .999917 
i .011489 
.00  =7  45 

0.0  C0330 
-.447214 
.894427 

• u'OQO'OO 
-.002980 

j .999625 
1 .015550 
I .0  225  59 

-.0 12880 
-.460010 
.887820 

. o 0 0 0 u 0 
- • GO  32  64 

.996201 
t.  0560  60 
.014951 

-.0*9532 

-.939127 

-.339980 

.305090 

.007805 

.999518 

-.036607 

-.024969 

-.0  43145 
-.675158 
-.736411 

. 0 0 0 0 J 0 
• C 0 6 6 2 8 

.999339 
— » 517620 
-.030174 

-.034875 

-.449471 

-.892614 

.000050 
. 005602 

.999518 

-.008532 

-.029848 

-.031343 

-.2814-49 

-.959074 

*330050 
• GO  5201 

^onwrf^f. 


1 


PROGRAM  BOXC 
BODY  ID.  TEST 


N M 


4 16 


17 


18 


19 


20 


■p» 

cn 


21 


22 


23 


5 1 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


TEST  BODY 


An 


X-FLOW 

j 

NPX 

V7 

VX 

OCX 

NX 

NPY 

VTSQ 

VY 

OCY 

NY  1 

NPZ 

CP 

VZ 

OCZ 

NZ 

250016 

1.  174210  'i 

1.173709 

.999573 

-.029218  : 

6000  Cl 

1.378769  i 

-.005058 

-.004308 

-.157442  ] 

940749 

-.378769 

-. 033935 

-*  02,8900 

-.987096  : 

250002 

1.1770  71 

1.176631 

.999601 

-.028252  1 

202000 

1.38  54  57 

-.032132 

-.0018 54 

-.350789  ! 

982825 

-.3854  57 

-.033187 

-.028194 

-.998310 

2500 02 

1.177939 

1.177467 

.999600 

-.028252 

2G  0 0 00 

1.387539 

-.000154 

-.000131 

.350789  I 

93  28  25 

-.387539 

-.033330 

- . U 28295 

-.998310  ] 

250016 

1.176983 

1.176476 

.999569 

-.0 29218 

600001 

1. 385288 

. 00  2234 

.001940 

.157442  ! 

940749 

-.385288 

-.334459 

-.0  292  78 

-.987096 

249537 

1.174127 

1.173553 

.999511 

-.0310  43  1 

998756 

1. 376574 

30  615  2 

.005248 

.281449 

850538 

-.378574 

-.036176 

-.03  ceil 

-.959074 

249169 

1.1695  20 

1.168830 

.999384 

-.03*675 

39  5016 

1.367777 

.014296 

.012223 

.449471  | 

692774 

-.367777 

-.038458 

-.332692 

-.892614 

249477 

1.163098 

1.16201 3 

.999067 

-•£‘♦3145  1 

726269 

1.352757 

. 032273 

.0277  48 

.675158 

470688 

-.352797 

-.038492 

-.C33C94 

-.736411 

248068 

1.157588 

1.156167 

.998772 

-.049532 

923092 

1.340010 

.354224 

. 0 4 66  42 

.939127 

17  40  52 

-.340010 

-.013660 

- . 0161 20 

-.339980 

743334 

1.160425 

1.146655 

.988142 

-.153543 

874150 

1.346567 

.168493 

.145199 

.934141 

161626 

-.346587 

.357936 

. 0499  27 

.322186 

747389 

1.166631 

1.156335 

.991149 

-.132740 

690281 

1.361028 

• 10*+93  9 

.089994 

.683173 

444215 

-.361028 

.113650 

.097597 

.713091 

747752 

1.1718  6 4 

1.164831 

.9940  42 

-.1  £6  8 09 

373892 

1.373264 

■ .351.939 

.044296 

.457325 

663304 

-.373264 

*1||710 

.099593 

.882618 

7479  58 

1.  173024 

M ' V675S9  ' 

.9953  50 

-.095703 

992572 

1.375986 

sA  ,320130 

.017212 

.268525 

819383 

-.375986 

.111176 

.094777 

.952677 

EE  ASSOCIATES 

pCHUSETTS  PAGE  25 


i 

f 

I OCX  MX  VN 

!■  0CY  NY  SIG 

f OCZ  MZ 


i 

F 


I 


!" 

I 


i 


t 


.999573 
- » 0 0 43  0 8 
028900 

.999601 
-.0018  54 
-.026194 

.999600 

-.000131 

-.428295 

.999569 

.001940 

-.029278 

.999511 
.0052  48 
-• C3C811 

.995384 

.012223 

-.932692 

.999067 
.0  277  48 
-.C33C94 

.998772 
. 0 4 66  42 

-.016120 

.988142 
.145199 
.0459  27 

.991149 

.089994 

.097597 

.9940  42 
.044296 
.099593 

.9953  5Q 
.017212 
.094777 


-.029216 

-.157442 

-.987096 

-.028252 

-.350789 

-.998310 

-.0  28  2 52 
.050789 
-.998310 

-.3 29216 
. 157442 
-.987096 

-.031043 

.281449 

-.959074 

-.0  046 75 
.449471 
-.892614 

-.043145 

.675156 

-.736411 

-.049532 
.939127 
-. 339980 

-.153543 

.934141 

.322186 

-.132740 

.683173 

•71oQ91 

-.1 £8809 
.457325 
.882618 

-.095703 

.288525 

.952677 


.400030 

.405076 


.000000 

• 00 4937 


•000000 
. 00  476  6 


• tiOUw'JO 
. u 0 4 6 0 3 


. 0 0 0 0 C 0 

.004347 


.GuOOuO 

.004212 


. C 0 0 0 0 0 
. 004566 


.0000*0 

.004967 


.flOOl/00 

.015792 


-.000080 

. b 13445 


-.800000 

.410693 


-•uooooo 

.009621 


4* 

CT> 


PROGRA  M 80 XC 
BODY  ID.  TEST 


atmospheric  science  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


TEST  BODY 


X-FLOW 


N M 

NPX 

NPY 

NPZ 

VT 

YTSQ 

CF 

VX 

V/Y 

vz 

5 5 

-.7500  55 
.6000  09 
. 910  466 

1. 170769 
1. 370699 
-.370699 

1 . 16561 7 
-• 0u47Sl 
.107457 

6 

-.75C0C5 
. 220003 
. 953924 

1.  161565 
1.349234 
-•349234 

1.156220 

-.041833 

•103132 

7 

-.748  551 
-• 199961 
. 832279 

1.  146511 
1.3121 <5 
-• 312195 

1.143636 

-.060743 

.02  44*4  0 

8 

- » 75C  0 00 
-• 63CCQ0 
• 70  CO  03 

1. 124601 
1.264728 
-.264728 

1.124251 

-.325032 

-.312546 

9 

-.750000 
-i.  JO 0 3 00 
.500030 

1.1148  70 
1. 242934 
“• 242934 

1.114851 
-. 304C28 
-.002014 

10 

-.750000 
-1. 400000 
.300000 

1.115443 
1. 244214 
-.244214 

1.115255 

•018316 

.009158 

11 

-. 741375 
-i.  764760 
. 130234 

1.132611 
1. 2828 C 7 
-.282807 

1.130300 
.017624 
• 07  0123 

12 

-. 743334 
-1.874153 
-. 161626 

1.132236 
1.  261558 
-• 281958 

1.115714 
-.191336 
• 0 23044 

13 

-.747389 

-1.690281 

-.444215 

1.  151358 
1. 32 5626 
-•325626 

1.140735 

-.126978 

-.090072 

14 

-♦ 747752 
-1. 373892 
— • 6633  04 

1.  1652  86 
1 • 357 8 9 1 
"•357891 

1.158299 
-• 0o953i 
-.1067+1 

15 

-. 747958 
-.992572 
-. 819383 

1.173015 

1.375964 

-• 375964 

1.167615 
-.038301 
-.10  569  5 

16 

-.750355 
-.600009 
-. 910468 

1.177768 

1.387138 

-.387138 

1.17  299  2 
-.020972 
-.103671 

DCX 

ocr 

DCZ 

•995771 
-•  0D4D67 
• 0 917 84 

•955398 
-•cseo  57 
•C 887 87 

.998365 

-.053027 

.021335 

. 999689 
“•C 22312 
-.011156 

.995992 

-.003613 

-.0018(57 

.999831 

.016420 

.008210 

.997960 
.0155  60 
.061913 

.985408 

-.168990 

.020353 

.990816 
-• 110286 
-.c 762 31 

. 9 940  0 4 
-.059712 
-.091601 


. 995397 
-.032652 
-.090106 

.995944 
-.Cl  78 07 
-.086193 


potoo urm,',  i 


NX 

NY 

NZ 

-.089915 
• 162020 
.982682 

-.086851 
. 0 52106 
. 99435  6 

-.  03**25 
-.3  798  42 

•924189 

0 . 0 ..  0 0 d c 

-.447214 

.894427 

e.ocjoot 

-.447214 

•894427 

0.003000 
- . 447214 
.854427 

-.0  hh6  55 
-.519160 
.853495 

-.153543 

-.934-141 

-.322188 

- . 132  740 
-.683173 
- » 718091 

-.11881.9 

-.457325 

-.862616 

-.095703 

-.288525 

-.952677 

-.069915 
“• 1 62  0 2 £ 
-.982682 


X 
Y 
Z 

-.089915 
. 162 02C 
.982682 

-.086851 
.0  5210  6 
. 99485  £ 

-.03*925 

-.379842 
.92418  9 

0 . 0 „ 0 0 J C 

-.447214 

.894427 


Q.OCJOOt 

-.447214 

.894427 

0.00300L) 

-.447214 

.384427 


-• 0 4 43  55 
-.519160 
.853499 


-.153  543 
-.934141 
-.322186 

-.132740 

-.683173 

-.718091 


-.108819 

-.457325 

-.882616 

-.095703 

-.288525 

-.952677 

-.089915 
-.1623  2 « 
-.982682 


wa.jjSgBr 


* 0 u 0 0 j 0 
.009344 


-• a 0 C 0 J 0 
. CO  9411 


• C 0 0 0 u 0 
- * ii  0 C 4 1 6 


•C 000.0 

-.007092 


. . 0 u 0 * 0 

-.  00  7455 


. OflUCOO 

-. ou9oce 


.000000 

.005207 


-. 0300  00 
.022441 


-. 0060*0 
.610214 


-.000000 

.014426 


-.030000 

.012115 


• u Q 0 6 a Q 

.011020 


monurfmr. 


PROGRAM  80 xc 
body  10.  TEST 


atmospheric  science  associates 

BEDFORD,  MASSACHUSETTS 
TEST  900Y 


N M 

NPX 

NPY 

NPZ 

VT 

VTSQ 

CP 

5 17 

-•  750005 
-.20C003 
“.95  39  24 

1.180390 
1.  393322 
-.39  33  22 

18 

7 5 0 G 0 5 
.2000 03 
-.953924 

1. 181278 
1.395417 
-.395417 

19 

-.  75  & 0 55 
.600009 
-. 910468 

1. 160606 
1. 393835 
-.393835 

20 

-•7479  5S 
.992572 
-.819383 

1.  17  8349 
1. 388506 
-.388506 

•H 

OJ 

47 

-.747752 
1.  373892 
-.663314 

1.  174632 
1.  379760 
379760 

22 

-.747389 
1.690281 
-• 444215 

1.1678  91 
1. 363969 
-.363969 

23 

-.743334 
1.8*4150 
— . 1616  26 

1.160774 
1.34 73  96 
-.347396 

6 1 

-1.229655 
1. 773614 
.134912 

1.132362 
1. 282243 
-.282243 

2 

-1.24  53  29 
1. 614691 
.336555 

1.144713 

1.310369 

-.310369 

3 

-1.  245168 
1.329324 
.600627 

1.  15  6983 
1.343242 
-.343242 

4 

-1. 245783 
.979004 
.753512 

1. 165866 
1.  35  92  44 
-. 359244 

5 

-1.  250120 
.610034 
. 846449 

1.16  95  61 
1.367873 
-.367873 

X-FLOW 


VX 
VY 
V z 

OCX 

OCY 

DCZ 

NX 

NY 

NZ 

1.  *75928 
-.00781*+ 
-.102249 

.996219 
- . C 0 66  2 0 
-.08  66  23 

-.0  66851 
-.0  5210 e 
-.99*858 

1.17  6812 
.30  3321 
-.102562 

.996220 
• 0028 12 
-.086823 

-.C36e51 

.052166 

-.99*658 

1.17  58  2 5 
.015737 
-.104998 

.995949 

.013304 

-.088936 

-.069915 
.16202 C 
-.982682 

1.172939 

.031346 

-.108337 

.995409 
.026601 
-.0919  40 

-.095703 

.288525 

-.952677 

1.167657 

.358416 

-.113630 

.9940  63 
.049732 
-.096779 

-.1 C63G9 
.457325 
-.882618 

1.157552 

.108974 

-.110334 

. 991148 
. C93305 
-.094447 

-.132740 
.663173 
-.716  991 

1.146999 
.17  0110 
-.0  5343  8 

. 988133 
.146548 
-.0  4 60  11 

-.153  543 
• 93*141 
-.322186 

1.090628 

.291159 

.385937 

.863321 
. 257134 
.076775 

-.268347 

.921489 

•280798 

1.111521 
.197828 
.18  9089 

*9710  03 
.172819 
.16  5185 

-.239''  65 
.7  £2123 
.670724 

1.136725 
* 10  28  9<+ 
.201273 

.980795 

.088779 

.173663 

-.194936 

.475316 

.357946 

1.148618 

.048514 

.193825 

.985205 
. 041612 
.16  62  50 

-.170981 
.3  J*663 
.936981 

1.154226 
.00  6877 
.188649 

.986888 

•005880 

.161299 

-.1 59381 
.172638 
.971923 

rauiourfft^ 
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|SOCIATES 

SETTS 
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I Dcx 

1 DCY 
DCZ 

‘ .996219 
^.  0 0 66  20 
-.266623 

I .996220 
I . 002612 
"•  0 868  23 

.995949 
f .013304 
[-.088936 

.995409 
' • 0 2 6601 
-.0  919  40 

.9940  63 

• C- 497  32 
-.096779 

f .991148 
: « C 933 05 
-.0  9 4447 

I . 9S8133 
f .146548 
|.  046011 

.963321 

• 257134 
|.  076775 

1.9710  03 
f.  17  28 19 
[.  16  5185 

r ... 

'v  9 80795 
.086779 
:.  1 7 36  63 

1.985205 
f.  041612 
[•  166250 

1986888 
108  5880 
1 161299 


NX 

NY 

NZ 

-.066651 
-.0  521a  6 
-.99*856 

-•C86851 

•052106 

-.99*656 

-.369915 

.162020 

-.962682 

-.095703 

.288525 

-.952677 

-.1 C6309 
.457325 
-.882616 

-.182740 
.663173 
-.7  16  091 

-.153543 

.93*141 

-.322186 

-.268347 
. 921489 
. 285799 

239*65 
.7 021 23 
.670724 

-.19*936 
• *75316 
.857946 

1 70981 
.33*663 
.936981 

-.159861 

.172638 

.971923 


\l  N 
SIG 


• OflOCGC 

. 510 2 40 


.500000 
• 00  98  50 


.I'UuOat) 

.009620 


— . i 500  y 0 
• 3100  2 5 


- • o o o o w o 

. 511212 


. PGOiiCC 
.013668 


— .CO  0 v u 0 
. 015688 


— .usJtv-j 
.32  72  32 


— • w 0 0 0 u 6 
. 124419 


-*  Ctv0«0 
.619161 


-.302300 

.516512 


-*  OOOOtO 
. 015703 


onur 


xc 

TEST 


NPX 

NPY 

NPZ 

-1. 250012 
.200010 
.893193 

-1.248100 
-.  199835 
.852389 

-1.250000 
-.600000 
.7J0 000 

-1. 250003 

-1.-3COOOO 
. 500000 

-1. 2300  CO 

-1.410000 

.333000 

-1. 225923 

-1.707445 

.100626 

-1.  229655 

-1. 773614 
-. 134912 

-1.  245329 

-1.614691 

-.386555 

-1.2450  68 

-1.329324 

-.600627 

-1.245783 
-.91790  0*+ 
- • 7'5  3 5 1 2 

-1.  250123 
-.600034 
-.846449 

-1.250012 
-. 210010 
-.893198 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
9ECF0R0 . MASSACHUSETTS 

TEST  BODY 


X-FLOW 


VT 

VX 

VTSQ 

VY 

CP 

vz 

1.17  085  0 

1.155253 

1. 370889 

-.053638 

-.370869 

.102761 

1.174562 

1.168731 

1.379597 

-• 8969J  6 

-.379597 

.064470 

1.154940 

1.154031 

1. 333866 

-.341635 

-.333866 

-.020618 

1.138016 

1.137964 

1.295061 

-.00 975J 

-.295081 

-.004875 

1.1438  <2 

1.143*31 

1.308468 

.029956 

-.  308468 

.01497  8 

1.161360 

1.150415 

1.348756 

-.011041 

-.346756 

.158631 

1. 118520 

1.369981 

1.2510  *8 

-.32  36  0 0 

-.2510  88 

.039432 

1.130909 

1.097016 

1.278956 

-.230289 

-.278956 

-.149980 

1.151328 

1.129039 

1.3255  56 

-.127739 

-.325556 

-.18  5734 

1.162543 

1.145384 

1. 351506 

-.472753 

- • 3 5 1 5 C 6 

-.165350 

1.169385 

1.154316 

1. 367462 

-.040457 

-.367462 

-.162699 

1.172927 

1.15 9016 

1. 375757 

-.314301 

-.375757 

-.179542 

OCX 

NX 

DCY 

NY 

DCZ 

NZ 

.586679 

-.153515 

-.0  4 5811 

.055253 

.15  60  9 3 

.986601 

.91950  78 

-.074106 

-.082504 

-.251846 

.054888 

.964926 

.999187 

Q.030Q0G 

-.036050 

-.4*7214 

-.0160  25 

.894427 

.9959  54 

0.3*3030 

-.006568 

-.4*7214 

-.004284 

.89*427 

.999571 

0.0*0030 

.026186 

-.447214 

.0130  94 

.894427 

.990576 

-.105654 

-.009507 

-.667  853: 

.136634 

.716x19 

. 5565  86 

-.268347 

-.  2 653  10 

-.921*85 

.6  352  54 

-.260795 

.570330 

-.239065 

-.203614 

-.7  52123 

-.132601 

-.670  724 

. 980641 

-.194936 

-.111993 

-.475316 

-.161321 

-.857948 

.985223 

-,170961 

-.062561 

-.3  54663 

-.159435 

-.936981 

• ifi  7114 

-.159881 

-.034597 

-.172636 

-.156235 

-.971923 

. 986140 

-.153515 

-.012192 

-.055250 

-.1530  72 

-.966601 

X 

Y 

Z 


51 

25 

.986601 


-*074166 

. (HlftCSQ 

-.251846 

. u O iC  59 

.964926 

0.000030 

. 03 00 00 

-•4h7214 

-.013633 

.894427 

ii.3uO0  3Q 

.uOQQl’O 

-.447214 

-.013916 

.894427 

e.o  4.003  c 

. QO  UOCO 

-.447214 

- • 0 1 6 6 6S 

.894427 

-.105654 

.CoOQlO 

-.687853 

-.102403 

.718x19 

-.268347 

-.000030 

-.921489 

.036406 

-.280799 

-.239065 

-.COCOuQ 

-.762123 

. 031398 

-.670  724 

-.194936 

-•£00000 

-.475316 

.024287 

-.857948 

-.170981 

-.000030 

-.3  C4683 

.020145 

-.936961 

-.159881 

-.000300 

-.172636 

.016139 

-.971923 

-.153515 

-.  OOt-uuO 

-.055250 

.016626 

-.966631 

PROGRAM  BOXC 
BODY  10.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEOFORCf  MASSACHUSETTS 

TEST  80CY 


X-FLOW 


M 

NPX 

\l  T 

SIX 

OCX 

NX 

NPY 

VTSQ 

VY 

OCY 

NY 

NPZ 

CP 

V Z 

OCZ 

NZ 

18 

-1.250012 

1.173694 

1.159779 

.986144 

-.153515 

.20  CO  13 

1.377557 

.307693 

.006552 

.055250 

-.893198 

-.377557 

— . 18  0 031 

-.153386 

-.966601 

19 

-1.250120 

1.171902 

i. 156827 

.987136 

-.159381 

• 6 OG  0 34 

1.  373354 

.032555 

.027788 

.172638 

-.846449 

-.373354 

-.184514 

-.157448 

-.971923 

20 

-1.245783 

1.167332 

1.150142 

.98  52  74 

-.170981 

.979054 

1.362663 

.062430 

.053481 

.3  04683 

-.753512 

-.362663 

-.189579 

-.162403 

-.936961 

21 

-1. 245363 

1.159668 

1.137419 

.980815 

- • 15  49  3 6 

1.329324 

1.344829 

.111134 

.0958  76 

.475316 

-.630627 

-.344829 

-.196837 

-.169736 

-.857948 

22 

-1.245329 

1.  144845 

1.111627 

.970984 

-.239365 

1.614691 

1.310671 

.202859 

.177193 

.702123 

-.386555 

-.310671 

-.183853 

-.165598 

-.670724 

23 

-1.229655 

1. 132343 

1.093732 

.9632  96 

-.268347 

1.7736m 

1.  28  2201 

.293104 

. 256846 

,921^69 

-.134912 

-.282201 

-.083543 

-.  C7H27 

-.280799 

1 

-1. 699678 

1.071753 

. 975394 

. 9 ICO  58 

-.414479 

1.611365 

1.148740 

.431871 

.4029  43 

.86520  2 

.096576 

-.148740 

. 10 40 3 3 

• U97113 

.2112 4 M 

2 

-1.733772 

1.092781 

1.014192 

.92  60  83 

-.372374 

1. 484752 

1.194171 

.318155 

. 291155 

.725701 

.297994 

-.194171 

.253633 

.232145 

.578529 

3 

-1.738932 

1.121965 

1.066664 

.950711 

-.3  10024 

1.250730 

1.256805 

.179758 

.160226 

.507279 

• 4979  IQ 

-.258805 

.297852 

.265474 

. 8 64085 

4 

-1.738266 

1. 142165 

1.099857 

.562958 

-.269527 

. 954C 54 

1. 304542 

.097975 

.085780 

.335023 

. 644837 

-.304542 

.291988 

.255644 

.932837 

5 

-1.750276 

1.158627 

1 • 12 159  Q 

.966034 

-.25022 < 

.600104 

1. 342417 

.33  793  6 

.032716 

.193980 

.739306 

-.342417 

.28  8124 

. 2 486  77 

.948555 

6 

-1. 7500  25 

1.174333 

1.139526 

.970360 

-.237694 

.200030 

1.379059 

-.334957 

-.029776 

.061 556 

.792992 

-.37  90  59 

.28163  2 

. 235823 

.969388 

' / 


L 
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SSOCIATES 


-JET 


OCX 
• OCY 

ocz 

[ 

NX 

NY 

NZ 

VN 

SIG 

: .986144 
f .006552 
K 153388 

-.153515 

.055250 

-.966601 

-.000000 
• 01  60  44 

I * 987136 
= . 0 27788 
-•  157448 

-.159381 

.172638 

-.971923 

-.OOuOOO 

•016340 

; .985274 
1 .05  3481 
-.162403 

-.170981 
• 3 04  683 
-.936981 

-.0000  JO 
.017046 

\ .980815 
. 0 958  76 
-•  16S736 

-.194936 

.475316 

-.857946 

.O0-JG0O 

.419582 

.970984 
E .177193 
-.160598 

-.239065 

.702123 

-.670724 

-. 00  4 u 0 c 
.024706 

. 9 6 32  96 
• 256846 
C 7 11 27 

-.268347 

.921465 

-.280799 

-.CGGOCO 
. G 27344 

• 9 ICO  58 

.40  2943 
.397113 

-• 414479 
.88  520  l 
• 211244 

-.0000  JO 
.041810 

. 9260  83 
• 291155 
.232145 

-.372374 
.7 25701 
.578529 

-. 000000 
.037841 

.950711 
.16  0226 
• 26  5474 

-.3 10024 
.507279 
•804085 

— . 4 0 U 0 1 0 
.030138 

;•  962958 
.08  5760 
• 2 5 5644 

-.269527 

.335023 

.942837 

-.000000 

.025359 

• 966034 
*0  3 2716 

• 2 466  77 

-.25022  < 
•193980 
.948555 

-•GO00JO 

.023756 

.976360 
10  29776 
.239823 

-.237694 

.061556 

•969386 

-.000010 

.422518 

wnomFffm 


PROGRA  M 90X0 
BODY  ID,  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEOFORO,  MASSACHUSETTS 


TEST  BODY 


X-FLOW 


M 

NPX 

NPY 

NPZ 

VT 

VTSQ 

CP 

VX 
VY 
V Z 

OCX 

OCY 

DCZ 

NX 

NY 

NZ 

VN 

SIC 

7 

-1.749550 

-.199759 

.782469 

1. 2C56C7 
1« 453488 
-.453488 

1.178638 

-.115921 

.22526a 

.977672 

-.096152 

.186851 

-.197278 
-.113  663 
• 9 73  73  A 

. u 0 G 0 u 0 
.015226 

8 

-1.747311 
-.  599857 
.679777 

1.230972 
1 . 5152  51 
-.  5152  91 

1.225355 
-.100709 
. 0 63  4 '*  7 

.995437 
-.081813 
• (349105 

-.075980 

-.368319 

.926589 

. uOQuOG 
-.008677 

9 

-1. 750000 
-1.300300 
.500000 

1.  2273  83 
1.  50  6461 
-.50  64  61 

1.227221 
-.317632 
-.00  8616 

.999871 
-.014365 
-.0  07183 

0.000000 

-.447214 

.894427 

•O&UOOO 
-.  024519 

10 

-1.  720409 
-1.352829 
. 314114 

1.  218  7 53 
1.485359 
-.485359 

1.215655 
.0  2210  0 
.083939 

.997458 
. G 181 33 
. w 669 14 

-.0  508  29 
-.496741 
.866409 

» uOOO *0 
-.018933 

11 

-1.762537 
-1. 550513 
. 113943 

1. 166416 
1. 360526 
-. 360526 

1. 08  30  66 
-.29  233  5 
.31942  8 

• 926542 
-.250627 
.2738  54 

-.3*8626 

-.842191 

.411307 

-.0 0 4 4 8 0 
. 43  44  54 

12 

-1.699678 

-1.611865 

-.096576 

1.  081512 
1.169668 
-.165668 

.977211 
-.46  28  55 
.322136 

. 903560 
-.427970 
. u 20514 

- . 4 144  7 9 
-.685202 
-.2 11244 

0 • 0 0 4 6 0 G 
.£•49562 

13 

-1.733772 
-1. 434752 
“•29799** 

1.C86144 
1. 179709 
-.  1757  C9 

1. 3U6258 
-.356337 
-.200634 

.926404 

-.328121 

-.184693 

-.372374 

-.725701 

“.576529 

-.SjJQOOD 
. £45341 

14 

-1.738932 
-1. 250 730 
-.497910 

1.114650 

1.242445 

-.242445 

1.359335 
-. 218056 
-.275918 

.950374 

-.188450 

-.247538 

-.310024 
-.507279 
-.8*40 6 5 

-.000080 
. *35901 

15 

-1.  738266 
-.954054 
-. 644837 

1. 136204 
1.290960 
-.290960 

1.093985 
-.125252 
-.  26  0114 

. 9 6 26  44 
-.110237 
-.246534 

-.269527 
— . 335*23 
-.9  £2837 

- » 6 u 4 0 0 0 
.829572 

16 

-1.  750276 
-.600104 
-.739306 

1.151262 
1. 325451 
-.  325451 

1.114573 
-.071497 
-.27  943  3 

.968114 

-.062102 

-.242689 

-.25u229 

-.193980 

-.948555 

- . £0  04  00 
.026696 

17 

-1.  7500  25 
-. 200030 
-. 792992 

1.153015 
1.  340998 
-. 34U958 

1.12  4810 
-.023555 
-. 274337 

.971326 
-.0203  50 
-.2  3 66  7 7 

-.237694 
-.061 556 
-.969386 

-.  S U 4 0 * 0 
.424180 

18 

-1.  7500  25 
. 200030 
-. 79299? 

1.158514 

1.342154 

-.342154 

1.125338 
.015033 
-.27  4958 

.971338 
.013019 
-.  237345 

-.237694 

,061556 

-.969388 

- . V 0 <j  0 C 0 
. u2  35  3 3 

PROGRAM  BO  XC 
BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


PAGE 


31 


TEST  BODY 


X-FLOW 


M 

NPX 

MT 

VX 

OCX 

NX 

VN  1 

NPY 

VTSQ 

M Y 

DCY 

NY 

SIG  f 

NPZ 

CP 

MI 

OCZ 

NZ 

: 

19 

-1. 750276 

1. 152916 

1.11323  3 

.968183 

-.250229 

- . C 0 0 UO  0 

.600104 

1.329215 

.362952 

.052876 

.193984 

.024579 

-.739306 

-. 329215 

-.281996 

-.244593 

-.948555 

20 

-1. 733266 

1.139416 

1.  097239 

• 962984 

-.269527 

-.3600C0 

.9540  54 

1.298269 

.111503 

.0  978  59 

.335023 

•026002  < 

-.644837 

-. 298269 

-.286136 

-.251169 

-.902837 

21 

-1.738932 

1.123131 

1.064935 

.550724 

-.310324 

-.000000 { 

1.250730 

1.254694 

.188418 

.168210 

.507279 

.030634  | 

-.497910 

-.254694 

-.291729 

-.260442 

-.804085 

i 

22 

-1.733772 

1. 091523 

1.312998 

.9283  52 

-.372374 

-•OuOuJfl  j 

1.464752 

1.191423 

.323355 

.296251 

.725701 

.038158  « 

-.297994 

-.191423 

-.246391 

-.225731 

-.578529 

23 

-1,6996  73 

1. G 71357 

.97  497  3 

.9103  36 

-.414475 

•■i 

-.000030  • 

1.611865 

1.1478 06 

.433636 

.404800 

.865202 

.041913  j 

-.096576 

-.147806 

* t 0 9 5654 

-.0  8 9283 

-.211244 

*****  ******* 

************ 

**♦* 

******** 

■1 

1 

-2.216024 

.953089 

.763563 

.801143 

-.597981 

• • (i  0 u 0 *j  0 i 

1. 240723 

. 90  83  7 8 

.52112  7 

.546777 

.747834 

.6  656  91  1 

. 149617 

. 091622 

.231937 

. 243322 

.283382 

2 

-2.  2144  45 

1.Q78634 

.97  593  7 

.90  47  62 

-.425912 

-.  Oil u 0 00  j 

• 99G  2 69 

1. 163451 

.23  7422 

. 224114 

.463200 

• a 3 9 i 6 8 : 

.411287 

-.163451 

. 393334 

.364631 

. 777203 

3 

-2.250969 

1.  12  7743 

1.03  4658 

.917468 

-.397801 

-. uOOOuO  ] 

. 600392 

1. 2718 05 

.117331 

• 104014 

.246251 

.136269 

• 56C  3 79 

-.271605 

.433021 

.383971 

.833807 

4 

-2.  250  Q 72 

1.1608  77 

1.079656 

• 9300  43 

-.366809 

-.630000 

.200101 

1. 347636 

.00  7638 

.00  6554 

.075569 

. 63  2128  -J 

♦ 632913 

-.347636 

.426496 

.367391 

.927222 

5 

-2.250072 

1. 187823 

1.104142 

.929551 

-.566809 

-.000000 

-.2*0191 

1. 410923 

-. 082736 

-.069654 

-.075569 

.032261  ] 

. 632913 

-.410923 

.430056 

. 3620  54 

.927222 

6 

-2. 250383 

1.21 5426 

1.127038 

.927273 

-.372305 

-.  OCUU  wO  1 

-.600126 

1. 477407 

-.178691 

-.147176 

-.278586 

.631772  j 

. 553499 

-.477407 

.418424 

.344244 

.885102 

rss.-;s; 

PROGRAM  BOXC 
BODY  ID,  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 

TEST  BODY 


X-FLOW 


PAGE  32 


N 


8 


en 

tvs 


9 


M 

NPX 

VT 

VX 

OCX 

NX 

ON 

NPY 

VTSQ 

VY 

DCY 

NY 

SIG  ■ 

NPZ 

CP 

VZ 

OCZ 

NZ 

7 

-2.  218355 

1. 2 060  5C 

1.  1C  731 5 

.918133 

-.396212 

-.oocopo 

-.956945 

1.454557 

-.246493 

-.204380 

-*458473 

. 033963 

.416059 

-.454557 

• 40945  4 

•339500 

.795499 

8 

-2.212088 

1.083768 

.912264 

.641752 

-.537231 

-.  OCC'CuO 

-1.209729 

1.174554 

-*477735 

-.443855 

-.743960 

. 1.58742 

.166619 

-.174554 

.33  7711 

.311608 

.402941 

9 

-2.  218024 

.9,653  9 3 

*77  273  4 

. 8 0 C 4 8 3 

-.597981 

— • £04000 

-1.2407  23 

.931993 

-.555522 

-.575433 

-.747834 

.c69724 

-. 149617 

• 36  63  0 7 

- . 161641 

-.167642 

-.238382 

10 

-2.2144  45 

1.074426 

.971432 

. 9 0 41  i 3 

-.^25912 

.000030 

-.99  02  69 

1.154391 

-.269128 

-.250435 

-.463230 

.C43639 

-.  4112  87 

-.154391 

-.371939 

-.346175 

-.777203 

11 

- 2.  25  0 969 

! 

1. 117305 

1.02  4831 

.917209 

-.397801 

-.000000 

-.6  50392 

1.248373 

- . 145033 

-.129804 

-.246251 

.039174 

-.560379 

-. 243373 

-.420654 

-.376669 

-.8-8  380  7 

12 

-2. 2500  74 

1.138957 

1,35964  3 

•930360 

-.3(66578 

-•suaocc 

-.200104 

1. 297223 

- , 042453 

-.037274 

-.075231 

.033966 

-.632837 

-.297223 

-.415432 

-.364748 

! -.9:27341 

l i 

-2.250074 

1.1393  33 

1.059741 

.930387 

- .3  6657 £ 

-. 000020 

. 230 1 04 

1.297395 

.332406 

.028451 

.075231 

— j .033347 

-.6328  37 

-.297395 

-.416237 

-.365474 

-.927341 

! 

14 

-2.250969 

1.11  74  66 

1.325191 

.917438 

-.397801 

. w 0 0 0 U 0 

.630392 

1.248774 

.131954 

•118082 

.246251 

.037211 

-.560379 

-.248774 

-.424672 

-.380325 

-.803807 

15 

-2.214445 

1.073381 

,971066 

.9046  82 

-.425912 

.000000 

.990269 

1.152146 

• 246456 

.229607 

* 4 6 3 2 u v 

.039860 

-.411287 

-. 152146 

-.385258 

-,,358930 

1; 

-.777203 

16 

-2.218  0 24 

.953934 

.76  2055 

.8013  75 

-.597981 

-• CO  uOOO 

1.240723 

.904276 

.524156 

.551212 

• 747834 

. 06  58  33 

V,. 

-.149617 

.095724 

-.220904 

-.232302 

-.288382 

************ 

************ 

************ 

1 

3*2=.  62  63  33 

. 660120 

. 326628 

.495104 

-.868756 

. il  0 0 C t 0 

. 68  7692 

.435759 

.468033 

.709007 

.411733 

. 4713 

.149145 

• 564241 

.331497 

. 5021  77 

. 2 752G8 

PROGRAM  BO XC 
BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEOFORC,  MASSACHUSETTS 

TEST  BODY 


PAGE  331 


X-FLOW 


M 

NPX 

V T 

VX 

OCX 

NX 

VN 

NPY 

VTSQ 

t/Y 

DCY 

NY 

SIG 

NPZ 

CP 

V Z 

DCZ 

NZ 

2 

-2.629150 

.835434 

.526675 

. 63C421 

-.776209 

-.03 00 30 

.434170 

.697949 

.195323 

.233796 

. 220002 

.088646 

.336208 

• 30  20  51 

.618394 

• 7 4 C 2 0 8 

.597912 

3 

-2.635472 

.679817 

.591517 

• 672319 

-• 740175 

.000030 

. 141262 

. 774078 

.04  6040 

.052329 

.062764 

.036147 

. 389779 

• 225922 

.649655 

.738410 

.669478 

4 

-2.  635472 

.6907  66 

.598838 

. 6722  73 

-.740175 

-.000000 

-.141262 

.793463 

-.379632 

-.089465 

-.062764 

• 0 8 6 4 u 0 

.389779 

.206537 

.65463  4 

.734878 

.669478 

5 

-2.629150 

. 86  56  68 

.548218 

.630376 

-.77 62 Q 9 

. uuOOCO 

-.434170 

.756323 

-.228735 

-.263014 

-.200002 

. 089504 

. 336208 

• 2436  77 

.63  513  5 

.7303  76 

.597912 

6 

-2.  626833 

.703717 

.34  837  3 

.495047 

-.868756 

. 000030 

-.687692 

.495218 

-.497144 

-.706454 

-.411733 

. 10  60  41 

. 149145 

• 50  47  82 

.355953 

.505818 

.275208 

7 

-2.626333 

.664268 

. 32  8750 

.494906 

-.868756 

. 100  0 C 0 

-.687692 

.441252 

-.493026 

-.742209 

-.411733 

.106522 

-.149145 

.558748 

-.300168 

-.451879 

-.275206 

8 

-2.629150 

.620631 

.51723  7 

. 63C352 

-.776205 

-.434170 

.673435 

-.21743  8 

-.264928 

-.200002 

.090273 

-. 336208 

• 326565 

-.598819 

-.7297  05 

-.597912 

9 

-2.63  54  72 

.6572  83 

.576419 

.672381 

-.743175 

- . C G 0 0 i. 0 

-.141262 

.734930 

-.067574 

-.078941 

-.0  62  764 

.087213 

-.389779 

.26  5670 

-.630944 

-.735984 

-.669478 

10 

-2.  635472 

. 856967 

.576233 

.672410 

-.740175 

-.000000 

.141262 

. 7343  <2 

.056429 

• 065847 

.062764 

.086864 

-.33  97  79 

. 265608 

-.631793 

-.737244 

-.669476 

11 

-2.629150 

.819951 

.516958 

. 630475 

-.776209 

•uOCftOO 

.434170 

.672319 

.20  3153 

.2477  63 

.230002 

•C89164 

-.336208 

.32  76  fl 

-• 603150 

-.735605 

-.597912 

12 

-2.626833 

.653104 

.323443 

.4952  40 

-.868756 

-.OOOOuC 

. 6376  92 

. 426545 

.471136 

.721410 

.411733 

. 10  48  95 

-.149145 

.573455 

-*3i6135 

-• 464050 

-.27520  £ 

♦****-»♦♦♦♦*♦ 


i 


LEAVING  RINT1 

LEAVING  MAIN 


in 

-p» 


C -i. 


jfcjalMWByMMhfa  i»r  m jnwaBtoi 


■fii&Wi 


FLOPNT 


300Y  IDENTIFIER  IS  TEST  NUMBER  CF  SYMMETRY  PLANES-  0 


NUMBER  OF  QUADRALRl 


cn 

cn 


NUMBER  OF  aUAORALATERALS*  169 


MACH  NUMBER*  Q« 


FLOPNT  RUN  10  - 

TEST  PROBLEM  WITH  TEST  BCOV 


INPUT  DATA  - 

INITIAL  X=-4.50Q9E+00 
INITIAL  Y*  0* 

INITIAL  Z*  !• 09096+06 


INCREMENT-  1.00036+00 
INCREMENT*  0. 
INCREMENT* *5* 090 IE-01 


NUMBER  OF  VALUES* 
NUMBER  OF  VALUES* 
NUMBER  OF  VALUES* 


A 

1 

5 


X AXIS  IS  INCREMENTED  FIRST 
Y AXIS  IS  INCREMENTED  THIRD 
Z AXIS  IS  INCREMENTED  SECONO 


* INOICATES  THE  POINT  IS  INSIOE  THE  BODY 


cn 

cn 


X 

V 

Z 

vx 

VY 

VZ 

4.5000000 

0.0000000 

1.0000000 

9.4274E-C1 

-1.8463E-03 

3.122  56-02 

3.5000009 

0.0009000 

1.0900000 

8.9353 £-01 

-5. 2665E-03 

1.98306-41 

2.5009000 

0.0000000 

1.0000000 

9.85046-01 

-2.1C47E-0  2 

2.86386-01 

1.5000900 

0.9000000 

1.0900000 

1.1528E+0Q 

-7.720 6E-0  2 

1. €9566-01 

X 

Y 

z 

VX 

VY 

VZ 

4.5000000 

0.0090000 

• 5009000 

9.2695E-61 

-1.8687E-03 

2.01756-02 

3.5000000 

0. QOOQOOO 

• 5000000 

8.02396-01 

-5.3770E-03 

1.01166-01 

INSIOE 

QUAD  179 

12=  1 

ZNP  *RO  SQ*  TSQ*  H= 

*6. 9149E-02 

2.2821E-31  1 

•03556+00  1. 

00906-01 

INSIOE 

QUAD  ISO 

12*  1 

ZNP*RO  SQ.TSQt  H= 

-3.5348E-02 

6. 62826-32  6 

. 7553E-01  1. 

00036-01 

INSIOE 

QUAD  181 

12*  1 

ZNPfROSQ.TSQf  H= 

-3.5348E-02 

6.62826-32  6 

•7553E-01  1. 

00006-0  1 

INSIOE 

QUAO  182 

12*  1 

ZNP* ROSQ.TSOt  H* 

-8.9149E-02 

2.  28216-31  1 

.03556+00  1. 

00006-01 

2.5000030 

9.0000900 

• 5000000 

1.4449  E+00 

-2.231 4E-0 2 

1. 27 87 E- 01 

1.5000  000 

0.0000900 

• 5000600 

1.2122  £>00 

-6.2494E-02 

3. 9898E-02 

X 

Y 

Z 

VX 

VY 

VZ 

4.5909000 

9.0000000 

9.0009000 

9.1975E-01 

-1.  7342E-0  3 

1. 50686-03 

3.5000000 

9.0000000 

0.0000  COO 

7.3093E-01 

-4.4575E-03 

4.60596-03 

2.5000000 

9.9000000 

0.0000060 

1.2744E+00 

-1. 38602-0 2 

1. 86156- 02 

1.5000000 

9.0000900 

0.0000000 

1.2164E+00 

-3.060 5E-0 2 

3.  328 8 E-  02 

X 

Y 

z 

VX 

VY 

VZ 

4.5000000 

9.000 9000 

-. 5600000 

9.2565E-01 

-1. 4964E-0  3 

-1.  7501E-02 

3.5000000 

9.609  0000 

-.5600000 

7.9717E-01 

-3.30346-03 

-9. 4089E-02 

INSIDE 

QUAD  185 

12*  1 

ZNP.  ROSQ.TSQ.  H= 

-8.9149E-02 

2. 2821E-9 1 1 

• 03556+00  1. 

0 OOOE-O  1 

INSIDE 

QUAD  186 

12*  1 

ZNP.ROSQ.TSQ.H* 

-3.  5348E-02 

6. 62826-32  6 

.75536-01  1. 

OOOOE-Ol 

INSIOE 

QUAO  187 

12=  1 

: : 

ZNP.ROSQ.TSQ.H* 

-3.5348E-C2 

6.6282E-32  6 

•7553E-01  1. 

OOOOE-O  1 

INSIOE 

QUAD  188 

12=  1 

ZNP.ROSQ.TSQ.H* 

-8.9149E-02 

2. 2821E-01  1 

•03556+00  1. 

OCOOE-Ol 

2.5000000 

9.0000000 

-.5600000 

1. 42616+00 

-4.19376-03 

-1.00656-01 

>1. 5900000 

0.0090000 

-.5000000 

1.21056+10 

-1.15316-02 

1.97006-02 

! 


\ 


f*00  NUMBER  OF  VALUES=  4 

1 NUMBER  OF  VALUES*  1 

r-fll  NUMBER  OF  VALUES*  5 


E THE  BODY 


VY 

VZ 

V 

Ni 

-1.8463E-03 

3.1225E-02 

9*4326 E- 01 

bOl 

-5.2865E-03 

1*  3830E-G1 

9.0019E-01 

-01 

-2* 1G47E-0 2 

2.8638  £-01 

1.0  260E+00 

♦ 00 

-7*720  6E-02 

1. 6956E-01 

1 *167  8E+  Cfl 

vr 

VZ 

V 

-01 

-1 • 868  7E-0  3 

2.  0175E-02 

9.2720E-C1 

-01 

-5.377QE-03 

1.0116E-01 

8 .0876E-0 1 

1*0355 £♦ 00  l.OGOOE-Ol 


6*  7553 E- 01  l.OCOOE-Ol 
6, 7553 E- 01  l.QOOOS-Ol 


l*0355£+00  1*Q00UE-Qi 


► 00 

-2.231 4E-02 

1.2787E-01 

1*45066+00  * 

► 00 

-6.2494E-02 

3*  9898E-0  2 

1.2145E+CC 

►01 

VV 

-1*7  342E-0  3 

VZ 

1*  5068E-03 

V 

9*1975 E- 01 

>01 

-4.4575E-Q3 

4*  6 J59E-03 

7.3096E-C1 

► 00 

-1*  3680E-0  2 

1*  8615E- 02 

1.2746E+00 

► 00 

-3.06C5E-02 

3*  3288  E- 02 

1.2173E+GQ 

f 

i?1 

VY 

-1*  4964E-0  3 

VZ 

-1*  75  0 IE- 02 

V 

9*2  56  2E-01 

01 

-3.3C34E-03 

-9.4089E-02 

8.0271E-Q1 

1 

6 

6 

1 

00 

• 0355E4-00  1*0  OOOE-O  1 

•7553E-01  l.UOUQE-Gl 

» 7553E- 91  1*0000 E- 01 

*0355E«-0u  1.0C00E-01 

- 4* 1937E-03  -1. 00  65E-01 

1*429 7E+90  * 

00 

-1* 1531E-Q  2 

1*9700 E- 02 

1.2108E+G0 

fMonurfmr. 


X 

-4.5000000 

-3.5800000 

-f.soooooo 

-1.5003000 


Y 

3. COO  0000 
3.0000000 
0.3000000 
0.0000000 


z 

-1.3000000 
-1.0000000 
-l.COOOCOO 
-1.  0000000 


vx 

9. 40525-01 
8 .8  643  E- til 
9. 6251E-01 
1.13  53E+30 


VY 

-1.2184E-03 
-2.348 0E-03 
-3.3361E-03 
-2.5233E-03 


VZ 

-2. 9389E-02 
-1.0521E-01 
-2.8834E-01 
-2.  28990-31 


* INDICATES  THE  POINT  IS  INSIDE  THE  BODY 


cn 

-'j 


V 

9.40  98E-01 
8.9268E-01 
1.0048E+00 
1.1550E+00 


ARYTRJ 


300Y  IDENTIFIER  IS  TEST  NUMBER  C F SYMMETRY  PlANES= 


NUMBER  OF 


00 


FOUDOUT  fRft'  | 


NUMBER  OF  QUAORALATERALS*  169  MACH  NUMBER-  0. 


*r*mur  c**f, 


ARYTRJ  RUN  ID  - 

TEST  PROBLEM  WITH  TEST  90 CY 


PHYSICAL  INPUT  DATA  - 

oFc«^jris,:#ic92xsj^n°iN00F 

numerical  integrator  inputs  - 

TIME  STEP*  l.aeOOE-Ol  MINIMUM  TIME  STEP*  5.0MSE-M  PRINT  TINE  INTERVAL*  1. 


LOCAL  ERROR  TOLERANCES  FOR  OVQQ 


l.ttOBJE-85  1.C000E-C5  1.00C«E-05 


cn 

LO 


**0aurfm* 


tNENSlOK  OF  THE  BOOYs  1,  606609E+00 

iOE-01  ANO  2.686590E+02  AIR  VISCOSITY  IS  1.  C93764E-0  5 

5.8060E-03  PRINT  TINS  INTERVAL5  l.OQ36E*O0  X COORD.  OF  FINAL  PLANE*  0. 
IE-09  1.LC00E-C5  1.Q000E-C5 


HATER  OROP  DIAMETER  = 2.0QIOOE+02  MICROMETERS 

°ARTICLE  SETTLING  SPEEO=  i.  27827E«-00  M/SEC 
INITIAL  X=-5*  900 0E+Q8  INCREMENT=  0.  NUMBER  OF  VALUES=  1 

INITIAL  Y =-!•  00C0E+Q0  I *C FEME NT*  2*0909£*ii0  NUMBER  OF  VALUES*  2 

INITIAL  Z*  1 • 000  0E+00  INCREM€NT*-Z*0C00E*00  NUMBER  OF  VALUES*  2 


X AXIS  IS  INCREMENTED  THIRD 
Y AXIS  IS  INCREMENTED  FIRST 
Z AXIS  IS  INCREMENTED  SECOND 


* * * * * INITIAL  COORDINATES  X*-  E.  QC&OOEOO 
IFLAG*  7 FOR  KSTEP*  27  NEVAL*  49 


Y*-1.0COOOE*CO  Z=  l.OOOOtl 
HMIN  IS  SET  TO  3*l250E-0» 


KSTEP  T X Y 

c d.  -5.ooaoE*jo  -i.oooce*co 

H=  1. 0 C30E-01  R=  2.0586E+01  AC= 
18  1.CDC3E+03  -4.0344E+30  -l.fll45E«-00 

H*  1*0  OOOE-Ol  R=  6*  8363E+Q1  AC= 
11  l.OOOOE^CO  -4.0344E+0Q  -1*C145E«-C0 
3 H=  1* 0 000E-01  R=  7.6138E+01  AC= 

21  2*GDC0£«-C0  -3.9718E+0C  -1*  0325E*00 

H=  1.0000E-01  R=  1.8C29E+02  AC= 
31  2*3125E*00  -2.7720E+00  -1.C404E+C0 

H=  3.1253E-C3  R=  2.C134E+02  AC= 

41  2.40CdE«-0d  -2.6881E+00  -1.  0429E«-C0 

H=  1.2500E-02  R=  2.0860E+02  AC= 

51  2.80eCEM?0  -2.3035E+00  -1.0561E+00 

H=  1*0  000E-01  R=  2 • 2229E+02  AC= 
54  3*  090  0E+  00  -2.  110  lE-ffiO  -1.0637E+C0 

H=  1.0000E-01  R=  2*  0962E+  02  AC= 
64  3*  25  0GE+  CO  -1.6670E^a0  -1.Q739E+C0 

H=  1.2500E-02  R=  1.9778E+Q2  AC= 

74  3.5'j  00E*  00  -1.6219E+0Q  -1.C846E+00 

H=  5* 0 COOE-0 2 R=  1.7660E+02  AC  = 
81  4*00  00E+  00  -1.1265E+00  -1.1064E+CO 

H=  2* 0 089E-01  R=  1.4402E+C2  AC= 

86  S.COCOEfOO  -1.1968E-01  -1.1471E+00 
H=  2*0  OOOE-Ol  R=  1*51 73E+02  AC= 
86  5*  1177E4  00  9.  -1.1515E+80 

H=  2*0  009E-01  R=  1.5173E+02  AC= 


Z 

1*0033  E + UO 

0. 

1*0021  E^-OO 
7.644S2-04 
1. 00212*00 
6.1633E-04 
1*0  094E-MJ0 
5.1923E-C4 
1*0 151E+00 
5.15752-04 
l*0172r*00 
5. 090  5 1.-04 
1*0  293  E+00 
4*99292-04 
1*0373  E*00 
5.373JE-04 
1.0492E«-00 
5.6999E-04 
1.0613E+C0 
5.9854E-C4 
1.C863E+C0 
6 *98472-04 
1*1313  £+00 
6*0  359E-C4 
1.1 361 E+GO 
6.2904E-04 


VPX  VPY 

S.6596E-91  -1*  4267E-Q2 
NEVAL*  1 

9.6478E-01  -1.  52322-02 
NEVAL=  12 

9 * 6478  E-01  -1.  52  32E-02 
NEVAL*  13 

9.5991E-01  -2*  26Q0E-C2 
NEVAL*  31 

9.5930E-01  -2*78412-02 
NEVAL*  57 

9*  5956E- 01  -2.93852-02 
NEVAL*  77 

9.6440E-01  -3.  6556E-02 
NEVAL*  97 

9.6916E-01  -3. 95222-02 
NEVAL=  104 

9.7641E-01  -4.20  69E-C2 
NEVAL*  130 

9.8411E-01  -4* 33  70E-C2 
NEVAL*  150 

9.S693E-01  -4*  3131E-C2 
NEV  AL=  164 

1 •016GE+  CO  -3.  749  6E-02 
NEVAL=  175 

1 • 0161E+ 00  -3.6517E-02 
NEVAL=  175 


INITIAL  ANO  FINAL  TRAJECTORY  ANGLES  (OEGREES)  - 
ALPHAO-  -.8*62  BET  A0=  *0988 

ALPHAR*  -2*0542  BETAR*  2.2413 


Zi 

I 

Zi 

i 


3i 

4* 

4* 

4. 

4* 


Hi 

J 


DRAG  VECTOR  AT  FINAL  POINT  - 

OIRECT  ION  COSINES-  6.2179E-01  3.8626E-01  -4.1888E-01  ANGLES  A AND  GAlj 

AIR  AND  PARTICLE  SPEEDS  AT  THE  FINAL  POINT  ARE  1.10221E+00  1.01954E+0J 


* INITIAL  COORDINATES  X*-5. 000 90 £*90 
I FLAG  - 7 FOR  KSTEP=  28  NEVAL*  60 


Y= 


1*00000  E+00  Z*-1.00C00f 

HMIN  IS  SET  TO  3.125CE-031 


FOtOOUOT  fRA?t 


R01ETERS 


27327E*0Q  M/SEC 

NUMBER  OP  VALUES*  1 
OO3E+40  NUMBER  OF  VALUES*  2 
COOE+OO  NUMBER  OF  VALUES*  2 


£♦30  Y*-1.OCO0OE^OO  Z=  l.OOOOOE^OO 
HMIN  IS  SET  TO  3.125CE-03 


Z 

003  E*  VO 

02IE+OC 
445  E- 04 
021E+0C 
633  c-04 
094-E^BCf 
923E-C4 
151E*60 
575E-04 
172 t»00 
90SE-04 
29JE+00 
929E-04 
373  E + OU 
T3  ) E - 3 4 
492E«-G0 
999E-04 
&13E400 
154  E-04 
J63E  + G0 
l47E-ii4 
113  £+00 
I59E-Q4 
161  E*00 


vpx  vpy 

9.6596E-01  -1.4267E-02 
NEV AL=  1 

9 .64  78E-C1  -1.  5232S-C2 
NEVAL*  12 

9.6478E-01  -1.  5232E-0 2 
NEVAL=  13 

9.5991E-01  -2.2680E-02 
NEVAL*  31 

9.5930E-O1  -2*  78 ‘♦1E-C2 
NEVAL*  57 

9.5956E-C1  -2.9385E-C2 
NEVAL*  77 

9.6440E-01  -3.6556E-C2 
NEV AL=  97 

9.6916E-01  -3.9522E-02 
NEVAL=  1 04 

9.7641E-01  -4.20e9E-C2 
NEVAL=  130 

9.84UE-G1  -4.33  70E-C2 
NEVAL*  150 

9.9693E-01  -4.3131E-C2 
NEVAL*  1 64 

1 ,G160E*  GO  -3,7496E-fl2 
NEVAL*  175 

1.Q161E+00  -3.6517E-S2 
NEVAL=  175 


VP  Z VX 

1.6667E-33  9,e5E6E-4l 

3.1541E-33  9.43«2E-01 

3.1541E-03  9.4151E-01 

1.4476E-32  S.4637E-C1 

2. 2740E-J2  9.65C1E-01 

2.5288E-C2  9.76E1E-01 

3.  7613E-02  1.042CE+30 

4#  2861E- w2  1.G858E+00 

4. 72  62E-0  2 1.0977E+00 

4#  9329 E-G  2 1.1037E+C0 

4.8716E-32  1.09E7E+CC 

4.1378E-42  1*  lii  46E+g  0 

3,98 72E-32  1.1046E^d0 


vv  vz 

-1.4267E-02  1.5870E-02 

-3.4403E-02  4.0864E-G2 

-3.7761E-02  4.5294E-G2 

-8.7974E-02  1,2261E-01 

-9.799CE-02  1.4245E-01 

-1.0C88E-ai  1.4898E-01 

-9.9754E-02  1.5379E-01 

-8.3119E-02  1.2343E-01 

-7,214 7E-02  1.C213E-01 

-5.4774E-02  7.0318E-02 

-2.2761E-C2  2.4140E-02 

5.6844E-03  -6,C732E-C3 
5, 6644E-G3  -6.0732E-03 


> ANGLES  (OEGREES) 
|0=  ,0968 

SR*  2.2413 


01  -4,1688 E-Q 1 ANGLES  A AND  GAMMA-  2.5175EM1  1.1476E+02 

ARE  1,  10  22  IE  ♦00  1.01954E+3O 


H)0  V*  l.fllOOOE+OO  Zs-l.OOOOOE  + 00 
HMIN  IS  SET  TO  3.125CE-03 


<STEP 

0 

10 

ii 

21 

31 

41 

<♦4 

54 

64; 

71 

60 

84 


T X Y Z 

0.  -5 . 0 00  OE  + O 0 1.C0  00E+CQ  -1.  0003  £*-00 
H*  1.0C03S-B1  R=  1*51 73E+  02  AC = 0. 

1. C0Q0E+09  -4.Q369EH0  1.0132E4C0  - 1. 0 295E*CG 

H*  1.CC0GE-01  R=  4.5689E+G1  AC  = 1.2573E-13 

It  GO  0 0E+C3  -4.0369E+00  1.  C122E+C0  -1.0293E+S0 

H*  1.0C00E-01  R=  5.2997E«-01  AC  = 9.3450E-(i4 
2#  00  G0E«-  CO  -3.0  769E+G  0 1.0291E+C0  -1.&623E  + LQ 

Hs  1#  0 C0QE-C1  R=  1.5349E+02  AC=  5.6893E-04 
.2t.7656E»00  -2.3454E«-00  1.0485E+CQ  -1.0985E+00 

H=  3,1  250  E- 0 3 R*  2.0016E«-02  AC*  5.497)E-il4 
2.99  CGE+C9  -2.2168E+00  1.C529E+C0  -1.106SE  + Q0 

H*  5.0  003E-02  R=  2.0280E+02  AC*  5.4603E-Q4 
3.C000E+D0  -2 . 1 21QE+C  0 1.0563E+0Q  -1.1139E+QQ 

H=  5.  0 000E-02  R*  2.034CE+Q2  AC*  5.4493E-Q4 
3.  38  75E  + 00  -1.7482E+C0  1.  G707E+00  -ltl405E+00 

H*  6.2509E-C3  R*  1.9948E«-02  AC=  5.8877E-Q4 

3,  55 03E*  00  -1.5909E+23  1.0772E+00  -1.1532E+C0 

H=  5.3003E-C2  R = 1.9617E+02  AC*  5.9103E-L4 

4,  00  Q0E*  CO  -1.1512E»00  1.C960E+CO  -1. 1 913  E«-Q0 

H*  ItO COuE-Cl  R*  1, 8893E+02  AC*  5.9535E-04 

5 • GO  0 0 E + 0 0 -1.5051E-01  1.1371E+00  -1,2785 c*Qb 

H=  5.9CO0E-G2  R=  2.0139E+02  AC=  5.5777E-04 
5, 1477E*  00  1.3878E-17  1.  1427E+CQ  -1.29C9E+C0 

H=  2, 5 C03E-02  R=  2.0627E+02  AC*  5.1777E-04 


VFX  VPY  | 

9, 6340  E- 01  1.2975E-02  -2< 

NEVAL*  1 

9.6232E-91  1,  3703E-G2  -3< 

NEVAL*  16 

9 1 6232E- 01  1, 37  08  E-02  -3 i 

NEVAL*  18 

9 ,5692E-  01  1,  9735E-  C2  •U 

NEVAL*  38 

9.5602E-01  3.1574E-02  -5 •; 

NEVAL*  66  j 

9,  5733E-  01  3.3578 £-02  -6J, 

NEVAL*  86 

9.5864E-01  3,497 4E-C2  -6«i 

NEVAL*  92 

9.6613E-C1  3.9311E-02  -7« 

NEVAL*  117 

9.7046E-01  4.0630E-02  -8* 

NEVAL*  137 

9.8418E-01  4,  23  77E-D2  -8,1 

NEVAL*  152 

1 . S170  E+  00  3.8245E-C2  -8* 

NEVAL*  172 

1.0214E+  00  3.6966E-02  -8* 

NEVAL*  181 


INITIAL  AND  FINAL  TRAJECTORY  ANGLES  DEGREES  I - 
ALPHAO-  .7716  BET  A0=  -1,7363 

ALPHAR=  2.0727  BETAR*  -4.5852 


DRAG  VECTOR  AT  FINAL  POINT  - | 

OIRECTION  COSINES-  8.4447E-01  -2.5705E-01  4.6989E-01  ANGLES  A AND  GAMi 

AIR  AND  PARTICLE  SPEEDS  AT  THE  FINA  1 POINT  ARE  1.14163E+00  1.02538E+QlH 


FOLOOlir  CRA4  | 


W VFX  OPY  VP  Z 

I9£«00  9. 6340  £-01  1.2975E-02  -2.  9207E-S2 

| NEVAL=  1 

>5E*60  9.6232E-01  1.3708E-02  -3.  OiOOE-02 

|[3E-03  NEVAt-  16 

[SE+QQ  9.6232E-01  1. 3708  E- 02  -3.G100E-C2 

|0E-04  NEVALs  18 

|3E+B0  9.5692E-01  1.9735E-C2  -2.8095E-02 

|8£-04  NEYAL=  38 

!?E+00  9.56C2E-C1  3.1574E-02  -5.8414E-C2 

[IE-04  KEVAL=  66 

56E4-00  9*  5733E-  01  3.3578E-02  -6.2513E-32 

^pE-04  KEVAL=  86 

|0E+00  9 • 5864 E- 01  3.4974E-C2  -6.  5529E-22 

pE-04  NEVAL=  92 

[5E+G0  9.6613E-61  3.9311E-02  -7.6149E-C2 

[7E-04  NEVAL=  117 

Fe+00  9 #7846 E- 01  4.U630E-C2  -8. 9308E-C2 

[3E-U4  NEVAL=  137 

[9E+00  9.8418E-01  4.2377E-02  -8.7065E-32 

|5E-04  NEVAL=  152 

ic+00  1.0170E+00  3.8245E-C2  -8. 4P91E-02 

^E-04  NEVAL=  172 

I9E+00  1.0214E+C0  3.6966E-02  -8.1971E-C2 

17E-04  KEVALs  181 

L 

Angles  ^degrees » - 

F -1.7363 
F -4.5852 


OX 

9.  C340E-C1 
9.3841E-01 
9.35E2E-01 
9. 28C6E-C1 
9. f 771E-0 1 
1.0CA5E*00 
1. C231E+00 
1.0615E+00 
1. 8775E+0Q 
1. 11 59 £>00 
1. 1369E+00 
1. 1416E+0Q 


OY 

1.2975E-C2 
3. 1623E-G2 
3.4700E- 02 
7.  9368E-C2 
9.4036E-02 
9.187SE-C2 
8.7796E-02 
7. 4554E-02 
6.7191E-C2 
4.1874E-02 
3.9491E-03 
3.2180E-04 


02 

-1.50  04E-02 
-4. 01 63E-02 
-4.4642E-02 
-1.2368E-01 
-1*  7743E-01 
-1.8064E-01 
-1.8064E-01 
-1. 6886E-01 
-1.  5845E-01 
-1. 1920E-01 
"2#  2823E-02 
-1.4954E-02 


£ 4.6989E-01  ANGLES  A AM  GAMMA-  -1.6930E+C1  6.1973E+01 

IRE  1.14163E+00  1.02538E+0D 


CONFAC 

300Y  IDENTIFIER  IS  TEST  NUMBER  OF  SYMMETRY  PLANES a 0 


a\ 

ro 


NUMBER  OF  QUADRAlj 


FGtOOUr  fRA.-*'  | 


NUMBER  OF  QUAORAL Af ERALS=  1B9 


MACH  NUMBER^  0. 


X_ 


ffionur 


CONFAC  RUN  10  - 1 

TEST  PROBLEM  WITH  TEST  BO  CY  \ 

i 


PHYSICAL  INPUT  OATA  - 
AIR  SPEED=  9.  n00C00E«-01 
DENSITY  AND  TEMPERATURE 


CHARACTERISTIC  OINENSICN  OF  THE  BODY*  1*009G98E»0( 
OF  AIR  ARE  9*  0925OOE-O1  AND  2 •68659QE+0  2 AIR  VI! 


NUMERICAL  INTEGRATOR  INPUTS  - 

TIME  STEP=  l.oeaOE-O  : MINIMUM  TIME  STEP*  5.0000E-03  PRINT  TIME  INTERVAL* 


LOCAL  ERROR  TOLERANCES  FOR  OVOQ  - 1.0301E-05  1.C000E-05  1.0000E-C5 

PARTICLE  FLUX  TUBE  SPECIFICATIONS  - j 

NUMBER  OF  TRAJECTORIES  ON  FLUX  TUEE  PERIPHERY*  4 FLUX  TUBE  RAOIUS  AT  TARf 

TARGET  AND  INITIAL  COORDINATE  ESTIMATES 
JGUESS  YT  ZT 

1 o«ooooi;  Q*08ooo 

2 0*00900  9*01000 


YI  ZI 

0*10009  0*00000 

a. 00000  0*00080 


FotoourfRA*,  / 


I 

ERISTIC  OIMENSICN  CF  THE  BODY*  1.000C06E*00 
llE  9.092500E-Q1  ANO  2.666590E+02  AIR  VISCOSITY  IS  1.C93764E-05 

TIME  STEP=  5*  dO  0 0E-03  PRINT  TIME  INTERVAL*  l.OfldOE  + 86  UPSTREAM  START  DISTANCE*-5.00 OOsj 

1*0  J0IE-05  1.0000E-05  1.0000E-85  j 


jUEE  PERIPHERY*  4 FLUX  TUBE  RAOIUS  AT  TARGET*  *60326  TOLERANCE*  *5060 

S 

SPATES- 

[ ZT  YI  ZI 

h €00  0 0*1 0008  0*00000 

0(000  a. 00000  0.60000 

| 


h 


! 

t 


\ 

* 

\ 


r 

|- 


•I 


•monurfTMf,. 


WATER  OROP  DIAMETER  = 3.C0CQCE  + Q2  MICROMETERS 


PARTICLE  SETTLING  SPEEO=  1.27S27E*yO  M/SEC 
TARGET  COORDINATES'  X*-1.5  COOOE+OQ  Y*  i.lOOOOE+OO  Z=  6.00000E-8: 


TRAJECTORY 

NUMBER  0 

TARGET  COORDINATES  - X» 

STAR  * -1.  500000  YPSTAR  a 1.1 

YPSTARP*  l.j 

Y FINAL 

ZFINAL 

ITERATIONS 

YINIT 

ZINIT 

ERROS 

.1Z09E+Q1 

• 8803E+  CO 

1 

.1101E+01 

* 8012£^3U 

•135  2^ 

• 12 10c  + Ql 

• 8813E4-  CO 

2 

•11J2E+01 

.8C24E+00 

• 1367E; 

. 1097E+01 

• 8052E«-  00 

3 

.9795E+00 

. 7C39E+0Q 

.5  98  IE; 

. 1102E+91 

•7993E+00 

4 

• 98  34E  + Q4 

• 698lE>0u 

.211 2E| 

• 1099E+31 

• 7979 E*  08 

5 

.9830E+0C 

• 6961E«’0U 

• 2 38  3E| 

• 1100E«-31 

• 7998E*00 

6 

.9811E+00 

• 6983E+QQ 

•4269E 

KSTEP 

T 

X 

Y Z 

VPX 

VP  Y 

j 

I 

o a. 

-5. 

0C30E+30  9. 

SHOE- Cl  6.9829 

£-31  9.60C2E- 

01  1.3571E- 

02  -l.( 

H*  l.COOOE-Ol  R*  2.7725E+02  AC*  0.  NEVAL*  1 

10  7.C000E-01  -4.3281E+30  9.9068E-C1  6.972SE-Q1  9.5929E-C1  1.3983E-C2  -1. 

H*  i.ueaOE-Ol  R=  5.2057E+01  AC*  8.3495E-04  NEVAL*  13 

14  i.C000E*93  -4.0405E  + 00  9.9497E-C1  6.9703E-01  9.5819E-Q1  1.4671E-Q2  -2.i 

H=  1*  0 C3QE-01  R=  8.71«2E*01  AC*  5.9453E-04  NEVAL*  17 

24  1.8625E*00  -3.2173E  + 00  1.C101E  + C0  6.9995E-C1  9.4867E-G1  2.2660E-02  9.1 

H*  6.2533E-C3  R=  2.00  38E+02  AC-  5.2003E-04  NEVAL*  42 

34  2.0QG3E4-03  -3.J870E+00  1.0134EM0  7.C151E-01  9.462CE-  01  2.5388E-U2  1.3 

w H=  5.C  C03E-C2  R=  2.2830E+02  AC*  4.9527E-Q4  NEVAL*  62  j 

* 35  2.00C0E*00  -3.0870E+00  1.C134E+C0  7.0151E-01  S.462OE-01  2.5388E-02  1.3 

H*  5. 0 03 JE-02  R=  2.3878E+02  AC*  4.5273E-04  NEVAL*  64  ] 

45  2. 80 0 OE*  00  -2.3352E*C3  1.O437E+C0  7.2664E-01  9.3723E-01  5. 2614E-02  5.1 

H*  5. 0 OOOE-O 2 R*  3.3778E+02  AC=  4.3873E-04  NEVAL*  86  J 

49  3. 00 0 OEf  00  -2.1475E+Q0  1.C549E  + C0  7.3919E-Q1  9.4051E-01  5.9153E-02  6.1 

H*  1.3  003E-01  R*  3.2750E+02  AC*  4.4993E-04  NEVAL*  94  1 

59  3.  68  0 4E«-  03  -1.50G0E+09  1.C996E  + B0  7.9979E-01  9.6535E-01  6.93U4E-02  1.1 

H*  5.0  003E-D2  Ra  2.  7658E*02  AC=  4.7412E-C4  NEVAL*  117 

ORAG  VECTOR  AT  FINAL  POINT  - 

DIRECTION  COSINES-  8.1247E-01  4.2971E-02  5.8142E-01  ANGLES  A AN)  GAMtjj 

AIR  ANO  PARTICLE  SPEEDS  AT  THE  FINAL  POINT  ARE  1.14461E+00  9.73484E-C11 


[ GINAL  page  is 
r poOR  QUALITY 


INITIAL  ANO  FINAL  TRAJECTORY  ANGLES  (DEGREES) : 
ALPHAS*  .6099  BET  AO*  -.0973 

ALPHAR*  4.1063  BET  AR=  6.1774 


TRAJECTORY  NUMBER  1 TARGET  CCOROINATES  - X»STAR  * -1.589352  Y PS  TAR  * 1.0 

YPSTARF*  0.0 

Y FINAL  ZFINAL  ITERATIONS  VINIT  ZINIT  ERROF 

-.30  22E-03  • 3611E- 02  1 .7256E-03  .4269E-02  .4483E- 


KSTEP  T X Y Z VPX  VPV 

0 0.  -5.0000E+00  9.818  2E-  (1  7.0255E-01  9.60C8E-01  1.3563E-02  -1. 

H*  1.0  00  0E-01  Ra  2*  76 58E  + 02  AC=  0.  NEVAL*  1 

10  7.00P3E-01  -4.328 1E  + 0Q  9.9140E-C1  7.C157E-C1  9.5935E-S1  1.3974E-02  - 1. 

H*  1.0  030E-01  R*  5. 20 19E+81  AC*  8.3454E-04  NEVAL*  15 

14  1.G0Q0E+00  -4.0404E+00 9.9568E-C1  7.013SE-01  9.5825E-01  1.4660E-C2  -1. 

^ i _ ..  A A p r ^ • « + • P p a i n j f-  p . tit-u  « t . 


poioourfFw?^  t 


2=  e.ooocoe-ci 


► OO  M/SEC 
» 100  00  E+0  0 


t = -i. 500000 

i 

t 


YPSTAR  * 1.1000U0 

YPSTARP*  1.100000 


ZFSTAR  = 
ZFS1ARP* 


YINIT 

L101E+01 

L1J2E+01 

)795E»00 

I834E+CU 

)830E*OG 

reiiE^oo 


ZINIT 

ERROR  (FLUX  TUBE  SYSTEM) 

• 8U12E+3U 

• 1.352E+QQ 

•8C24E+00 

. 1267E  + 90 

•7C39E+00 

• 5981E-0  2 

. 6981E+QU 

• 2112E-32 

• 3961E«-0U 

.2  38  3E-02 

. 6983E+0 0 

• 4269E-0  3 

.600000  f FLOW  SYSTEM) 
•600000  (FLUX  TUBE  SYSTEM) 


VPX  VP  Y 

L 9.6002E-01  1.3571E-02 

neval*  1 

i 9.5929E-01  1.3983E-C2 

ft  NE VAL=  13 

L 9.56 19  E- 01  1.4671E-02 

» NEVAL*  17 

L 9.4667E-01  2.2660E-02 

► NEVAL*  42 

L S.4620E- 01  2.5398E-02 

ft  NEVAL*  62 

L 9*4620  E- 01  2.5366E-02 

► NEVAL*  64 

L 9 .37  23  E-  01  5. 2614E-C2 

ft  NEVAL-  66 

L 9.4051E-01  5.9153E-02 

ft  NEVAL-  94 

l 9. 6535 E- 01  6.9304E-02 

ft  NEVAL*  117 


VPZ 

- 1.  6308  E-  03 

VX 

9.60C2E-01 

-1.  0980E-C3 

9.  2621E-Q 1 

-2.  0919c- J4 

9. 19S8E-G 1 

9.  6867E-63 

8.7914E-C1 

1.  3176c-  02 

8.7511E-01 

1.3176E-02 

8. 7450E- 01 

5.  5791E-0  2 

9. 6531E-01 

6.  9614E-32 

1. 0177E+QO 

1.  0475E-  01 

1. 1213E+00 

VY 

VZ 

1.3571E-C2 

1.2572E-02 

2.6512E-02 

2*  5151E-02 

4.C543E-02 

3.9618E-02 

9.4479E-C2 

1.0519E-01 

1.0894E-01 

1. 2621E-01 

1. 1444E- Cl 

1. 3473E-01 

1. 5661c- 01 

2.  6234E-01 

1.4009E-G1 

2.7029E-01 

7.7552E-02 

2*  1635E-01 

f.8142E-01  ANGLES  A AN)  GAMMA-  3.8275E*C0  5.4450E+01 

1*  14461E  +00  9.73464E-C1 


[S  (DEGREES)  - 
— .0973 
6.177% 


i * -1*500352 


YPSTAR  * 1.099975 

YPSTARF*  0.  000000 


ZPS1AR  - 
ZPS1ARP* 


.603261  (FLOW  SYSTEM) 
.033280  (FLUX  TUBE  SYSTEM) 


YINIT  ZINIT  ERROR  (FLUX  TUBE  SYSTEM) 

■ 2 56E-03  • 4269E-02  .4483E-03 


VPX 

i 9.60C8E- 01 
| NEVAL*  1 

I S.5935E- 01 
i NEVAL*  15 


1 9.5825E-01 


VPY 

1.3563E-C2 

1.3974E-02 


1.4660E- 02 


VPZ 

1.  5749E-33 
1.  03  0 9 £-  03 


1.  5069E-34 


VX 

9. 6006E-Q 1 
9.3835E-C1 
9.  20  23  E- 01 


VY 


VZ 


1.3563E-C2  1.2628E-02 
2.6478E-02  2.5248E-02 
4.0463E-02  3.9745E-02 


Fraomir  cwk. 


n-  i.u  uuut-ui  k=  oi  fusectm  mg 
!4  1*  8688E+  09  -3.2U2E+00  i.OllOE+CO 

H=  6.2580E-03  R=  2.C090E+0 2 AC 
14  1.9750E«-00  -3.1105E+00  1.C135E+I0 

H=  2*  5 C09E-C 2 Ra  2.2Z24E+Q2  AC 
J6  2.  00G9E4-00  -3.0869£*0fl  1.C141E4C0 

H=  2.5C00E-02  Ra  2.3257E402  AC 
>6  2.4750E*00  -2.6395E*00  1.  C293E*00 

H=  5* 0 CQ3E-0 2 R=  3.1fl03E*02  AC 
>3  3. 00005*00  -2.1471E+00  1.0554E*00 

Ha  2.0C00E-01  Ra  3.2760E+02  AC 
>3  3.  6250E*  00  -1.5528E+00  1.0959E*C0 

H*  5*  0 QOOE-02  R=  2.8288E+02  AC 
>9  3.  67  94E*  00  -1.5034E+90  1.0997EMO 

Ha  5.0 OOOE-02  Rs  2.7205E+02  AC 
DRAG  VECTOR  AT  FINAL  POINT  - 
DIRECTION  COSINES*  6.2736E-01  3. 

AIR  AND  PARTICLE  SPEEDS  AT  THE  FINAL 


*;«»t*«* 

7.0439E-01 

5.1944E-04 

7.0557£-1.l 

5.0001E-C4 

7.0  590 E-01 
4.7405E-04 
7.1651E-Q1 
4.4628E-C4 
7.4345E-01 
4.4565E-Q4 
7.9793E-01 
4.  6314E-04 

8.0  359E-01 
4. 86392-04 


Nt¥«L=  C3  "1 

9.4670E-  01  2.2724E-C2I 

NEVALa  48 

9.4662E-01  2.4783E-C2 

NEVALa  68 

9.4636E-01  2.5  322E-C2 

NEVALa  72 

9.38L3E-01  3.9867E-02 

NEVAL*  92 

9.4086E-C1  5.8737E-C2 

NEVALa  106 

9.6301E-01  6.8579E-C2 

NEVALa  129 

9.6549E-C1  6.8798E-02 

NEVALa  133 


1554E-Q2 
POINT  ARE 


> 6078E-Q1  ANGLES  A AKOj 
1.1449  6E  4-00  9.7  35201 


TRAJECTORY  NUMBER  2 


TARGET  COORDINATES  - X»STAR  = -1.  500235 


YPSTAR  a 
YPSTARFs 


Y FINAL  ZFINAL 

> 3 9 51E-32  -. A236E-02 


ITERATIONS 

1 


YINIT  ZINIT 

• 4128E-02  - . 3891E-0  3 


KSTEP 

0 


P T X Y 

0 0.  -5.0091E  + U3  9.852  3E- 

H = 1.0000E-C1  Ra  2. 7205E+C2 
C 7.0000 E-01  -4.3282E*0Q  9.9484E- 

H=  1.0  C00E-01  R=  5.1988E4C1 
4 1.0000E400  -4.04S5EHQ  9.9914E- 

Ha  1.0  003E-01  Ra  8*  70  42E+01 
4 1 .66  88  E+C  0 -3.2113E  + 00  1.0145E  + 

Ha  6.  2 503E-C3  R=  2.0108E+C2 
4 1.9750Ef00  -3.1106E+30  1.  01  70E+ 

Ha  2.5  OOOE-02  R=  2.2250E+02 
6 2.00  00 £4 GO  -3.0670E+0Q  1.G176E+ 

H=  2.5G03E-02  R=  2.3288E+02 
6 2.62  50 £4-0  0 -2.499QE+G0  1.C393E* 

Ha  5.0000E-02  Rs  3.3341E+02 
2 3.0000  E+0  Q -2.1473E+00  1.0592E* 

Ha  1. 0 000E-01  R=  3.2871E*02 
2 3.6250E403  -1.5532E+00  1.10C1E* 

Ha  5.0  OOOE-02  R=  2.8409E+02 
4 3 . 68  0 0E+00  -1.5002E400  1.1039E* 

Ha  5.0  C03E-02  R=  2.7313E>02 
DRAG  VECTOR  AT  FINAL  POINT  - 
DIRECTION  COSINES-  8.2653E-01 
AIR  AND  PARTICLE  SPEEDS  AT  THE  FINA 


Cl  6. 
AC=  0. 

ii  e. 

ACa  8. 
(1  6. 
ACa  5. 
CO  6. 
ACa  5. 
00  7. 

AC=  4. 
CO  7. 
AC=  4. 
CO  7. 
AC=  4. 
CO  7. 
ACa  4. 
(0  7. 

ACa  4. 
CO  7. 
AC=  4. 


9791E-01 


96852-01 
3522E-C4 
9664E-  til 
9501E-04 
9955E-01 
1932E-04 
0074E-01 
9985E- 04 
0 1052-01 
7383E-04 
1733E-01 
4043E-04 
3850  E- 01 
4545E-04 
93092- 01 
6253E-04 
98772-01 
8 567E-04 


VPX  VP Y 

9.6007E- 01  1. 3617E- 02 

NEVAL=  1 

9.5934E-01  1.4330E-02 

NEVAL=  15 

9. 5824E- 01  1. 4719E-02 

NEVAL=  23 

9.4666E-01  2.2828E-02 

NEVAL=  48 

9.4677E-01  2. 4931E-02 

NEVAL=  68 

9.4630 E-  Cl  2.  5444E-C2 
NEVAL=  72 

9.3677E-  (II  4.6008E-02 
NEVAL=  93 

9.4B62E- Cl  5. 9214E-C2 
NEVAL=  105 

9.62812-  01  6.9236E-02 

NEVALa  128 

9.6534E-C1  6. 9463E-C2 

NEVAL=  132 


3.2372E-02  5. 

L POINT  IRE 


6197E-01  ANGLES  A AND  I 
1.  14547E  + 00  9. 73446£« 


TRAJECTORY  NUMBER  3 


TARGET  COORDINATES  - XPSTAR  a -1.499648 


YPSTAR  s 
YPSTARP: 


Y FI  NAL 
.39  71E-03 


ZFINAL 
-.2  C22E-02 


ITERATIONS 

1 


YINIT  ZINIT 

•4452E-03  -.1895E-02 


KSTEP 

0 


T X Y 

0.  -5.0000E400  9.8154E-I1 

Ha  1.0C00E-01  R=  2. 7313E+02  AC= 

7.0000E-01  -4.3  282E+00  9.9114E-C1 

H=  1.  0 000E-01  R=  5. 20  60 E+  01  AC= 

1.  CODGE*  00  -4.  0 405E4-00  9.9542E-C1 


6 .9  645  E-fll 

0. 

6.9535E-01 
8.3513 E-04 
6.9513E-C1 


VPX  VP  Y 

9.60006-01  1.3583E-C2 

NEVAL=  1 

9 .5927  E-  01  1.3995E-02 

NEVAL=  13 

9.5817E-01  1.468<*£-G2 


f 


E-Oi  2.2724E-02  9.89S2E-C3  8.7962E-Q1  9.4692E-C2  1.0612E-01 

48 

I2E-01  2.4783E-02  1.2530E-02  8.7645E-G1  1.G571E-C1  1.2211E-01 

.*  66 

16 E-Ol  2.  5322E-C2  1.3231E-Q2  8.  /562E-01  l.illCE-Ol  1.3036E-01 

.*  72 

13  E-  01  3.98  67E-02  3.3994E-02  9.0337E-Q1  1.5468E-C1  2.1774E-C1 

.*  92 

16  E-  01  5. 873  7E-C2  6.9232E-02  1.0128E+00  1.4126E-01  2.6912E-01 

.=  106 

HE-  01  6.8579E-02  1.0215E-i:i  1.1111E+G0  8.4626E-02  2.2827E-01 

129 

►9E-  01  6.8798E-0  2 1.U407E-C1  1.1229E+60  7.43C2E-02  2.10  77E-01 

,s  133 

>01  ANGLES  A AKO  GAMMA-  2.184lE»CO  5.5890E+01 

>96E»00  9.73520E-01 


500235  VPSTAR  = 1.  103272  ZPS1AR*  .800000  (FLOW  SYSTEM) 

YPSTARF-  . 003280  ZPS1ARP=  -.000000  (FLUX  TUBE  SYSTEM) 

ZINIT  ERROR  (FLUX  TUBE  SYSTEM) 

I -•  3891E-0 3 .140  6E-02 


IPX  VPY 

VPZ 

VX 

V Y 

VZ 

17 E-  01  1. 3617E-  02 

- 1. 65  2l£- 03 

9. 60  07E-01 

1.3617E-02 

1. 2551E-02 

— 1 

54  E-  0 1 1.4330E-02 

.=  15 

-1.  1109E-03 

9. 38 vlE-01 

2.65CSE-C2 

2.  50  95E-02 

I4E-01  1.  4719E-02 

s*  23 

-2.3501E-S4 

9. 20  16E-0  1 

4.0642E-02 

3. 9509E-02 

>6E-  01  2.  28  28E-02 

r=  48 

9. 7640E-03 

6. 7928  E-fl  1 

S.5240E-C2 

1. 0 5 63E-01 

' V 

4 ^ 

7E-01  2.49  31  £-02 

= 68 

1.2396E-C2 

8 • 76C2E-0  1 

1 .0  636E-0  1 

1.21  60E-G1 

- V 

OE-Ci  2.  5444E-02 
= 72 

1.3095E-32 

8. 7515E-01 

I.IISIE-Gl 

1.2984E-01 

1 

7E-01  4. 6008E-02 

= 93 

4.3395E-02 

9. 2909E-0 1 

1.6091E-Q1 

2.4252E-01 

i 

2E-01  5. 9214E-C2 

= 105 

6.9218E-32 

1.0123E*i0 

1.4274E-C1 

2.6969E-01 

V 

IE-01  6.9236E-02 

= 126 

1.0236E-01 

1. 1 112E+00 

8 • 5586E-02 

2.2938E-01 

* A 

4E-01  6. 9463E-02 

= 132 

1.0433E-01 

1. 1222E+0C 

7. 5645E-G2 

2.1166E-01 

3 

01  ANGLES  A AND  GAMMA-  2.2429E*C0  5.5808E+01 

47E+00  9. 73446E-  01 


99648  YPSTAR  = 1.  100025  ZF STAR  = .796739  (FLOW  SYSTEM) 

YPSTARP=  -.030000  ZFS1ARP=  -.003280  (FLUX  TUBE  SYSTEM) 

ZINIT  ERROR  (FLUX  TUBE  SYSTEM) 

I - .1895E-0  2 .1319E-02 


►X  VP  Y VPZ  VX  VV  VZ 

IE-01  1.3583E-02  -1.6586E-03  9.£0flOE-Ol  1.3583E-02  1.2544E-C2  , 

'£-01  11.3995E-02  -1.1167E-C3  9.2816E-G1  2.6541E-0  2 2.5099E-02  [ *71001/7  SL 

l 13  . | 

SE-01  1.4684E-C2  -2.3930E-C4  9.19S1E-01  4.0595E-C2  3.9543E-02  J 


ri-  imutfuc'Ui.  *-  owceec^vx  mu- 


54  1.8625E+00  -3.2174E+00  1.01O6E^OO 

H*  6.2500E-03  R=  2.0C58E+02  AC 
(4  2*  00  00E+  03  -3.0871E+00  1.  01  39E*  CO 

H*  5.OCOOE-02  R=  2.2856E+02  AC 

55  2.  0000EH50  -3.0871E*0D  1.0139E+C0 

Ha  5.0000E-02  R=  2.3908E+02  AC 
>5  2*80  Q9E+  00  -2.3354E+00  1.  C443E+ CO 

Ha  5.0  000E-02  R=  3.3842E+02  AC 
*9  3.G0  00E+C0  -2.1477E+30  i.(5  55E+00 

Ha  1*0  COGE-O 1 R=  3.2808E+02  AC 
59  3.6500E+  00  -1.5296E+00  1.0983E+C0 

Ha  5,  0 00  9E-Q 2 Ra  2.8269E+C2  AC 
iO  3,6808 E*00  -1.4998E+C0  1.1004E+00 

Ha  5.Q0DQE-02  R*  2.7710E+02  AC 
ORAG  VECTOR  AT  FINAL  POINT  • 
DIRECTION'  COSINES-  8.1238E-01  4, 

AIR  AND  PARTICLE  SPEEOS  AT  THE  FINAL 


6.9809E-01 
5.1985E-04 
6.9955E-G1 
4.9509E-04 
6,9953  E-fil 
4.5250E-04 
7, 2 469 E- 01 
4.3853E-04 
7* 3724E-01 
4.4975E-04 
7.9477E-01 
4, 6343E-04 
7, 9799E-C1 
4, 7361E-04 


2836E-02  5, 

POINT  ARE 


(NCVML-  if 

9.4863E-C1  2, 2692E-02 

NEVALa  42 

9.4614E-01  2.  5428E-02 

NEVALa  62 

9.4614E-01  2.  5428E-0 2 

NEVALa  64 

9.37UE-01  5.2784E-02 

NEVALa  86 

9.4038E- 01  5, 9353E-02 

NEVALa  94 

9 ,6365  E- 01  6.9443E-02 

NEVAL=  117 

9.6528E-01  6.9554E-02 

NEVALa  119 


8156E-0 1 ANGLES  A AND  Q 
1,1448  9E+00  9,73459En 


TRAJECTORY  NUMBER  4 


TARGET  COORDINATES  - XPSTAR  * -1.499765 


YPSTAR  a 
YPSTARPa 


Y FINAL 
4310E-C2 


ZFINAL 
• 7579E-G4 


ITERATIONS 

1 


YINIT  ZINIT 

- •3891E-02  - ,3 977E-0  3 


KSTEP 

T X 

Y Z 

VPX 

VPY 

0 0. 

-4.9999E+C0 

9.7721E-C1  6. 9790E-01 

9.59S6E-C1 

1.3530E-02  - 

H=  1.0  000E-01  R=  2.77 10E+02  AC=  0,  NEVALa  1 

10  7.0000E-01  -4.3281E*00  9.  8676E-C1  6.9687E-01  9.5923E-01  1.3941E-02 


H=  l.OOOOE-Ol  Ra  5.2125E+01  ACa  8.3479E-04  NEVAL=  13 

14  1.  00  Q9E+  00  -4,0  405E+30  9.9104E-C1  6.9667E-01  9.5813E-01  1,  4628E-02  -: 

Ha  1.0  030E-01  Ra  S.7353E«-01  AC=  5.9414E-04  N£VAL=  17 

2i4  1.86  25E*  00  -3.2174E+C0  1.C061E+C0  6.9959E-01  9.4856E-  01  2.2624E-02  < 

Ha  6.2500E-03  Ra  2.0C95E+02  AC=  5.1945E-04  NEVALa  42 

34  2,  00  00E+  90  -3.0871E  + 00  1.  C094E+  (0  7.C115E-01  9.4606E-C1  2.5356E-C2  i 

H=  5. 0 OOOE-02  R=  2.2900E+02  AC=  4.9474E-04  NEVAL=  62 

35  2.  G0G0E  + 00  -3.0871E  + 00  1.  0094E+C0  7.0115E-01  9.46L6E-01  2.5356E-02 

Ha  9, D 090E-0  2 Ra  2.3953E+02  ACa  4.5219E-04  NEVALa  64 

45  2*80  Q0E+  00  -2.3355E  + 00  1,  03  <8E+00  7.2645E-01  9.37G4E-01  5.2642E-L2 

H=  5. 0 C30E-02  Ra  3.3867E+02  AC=  4.3847E-04  NEVALa  86 

49  3.  CO  QQE+  00  -2.1478E+C0  1.0510E  + 00  7.39C8E-G1  9.4034E-01  5.9173E-02  ” 

Ha  1. 0 C09E-01  Ra  3.2816E+02  AC=  4.4983E-04  NEVALa  94 

59  3.65  C'flE+OO  -1.5297E+00  1.0935E+C0  7.9682E-i)l  9.6387E-01  6.9148E-02 

Ha  5.0CD0E-02  R=  2.824CE+C2  AC=  4.6353E-04  NEVAL=  116 

60  3.  6811E4-00  -1.4997E+00  1,  C9E7E+00  8.0003E-01  9.6531E-01  6.9255E-02 

Ha  5.0  000E-02  Ra  2.7685E+02  ACa  4.  7364E-04  NEVAL=  118 

ORAG  VECTOR  AT  FINAL  POINT  - 

DIRECTION  COSINES-  8.137SE-0  1 4.0887E-02  5.7973E-01  ANGLES  A ANO  6. 

AIR  ANO  PARTICLE  SPEEOS  AT  THE  FINAL  POINT  *RE  1.14496E  + 00  9.735C2E-I 


'c—  * * • ir  

E-(li 

IE-04 

9.4863E-01  2.2692E-02 

NEVAL*  42 

9.65C5E-Q3 

8.7850E-01 

9.467SE-02 

1.0508E-01 

E-01 
IE- 04 

9.4614E-01  2.  5428E-02 

NEVAL*  62 

1.3140E-02 

8*  74  (2E-C 1 

1.0920E-01 

1.2612 E-01 

E-oi 

E-04 

9.4614E-01  2.  5428E-02 

NEVAL*  64 

1. 3140E-J2 

8.7418E-01 

1.1472E-01 

1.3465E-01 

iE-01 

iE-04 

9.37UE-01  5. 2784E-02 

NEVAL*  86 

5. 5642E-02 

9. 6504E-0 1 

1.573SE-C1 

2.6271E-01 

>£•01 

IE-04 

9.4038E- 01  5.9353E-02 

NEVAL*  94 

6.9706E-C2 

1. G176E+4Q 

1.4C59E-01 

2.7074E-01 

•E-01 

IE-04 

9*6385E- 01  6.9443E-02 

NEVAL*  117 

1.  03  69  E-  01 

1.11  £4E*00 

8.2849E-02 

2.2593E-01 

lE-fil 

.E-04 

9 .65  26  E-01  6.9554E-02 

NEVAL*  119 

1. 0497E-01 

1.  1215E+CQ 

7.7790E-02 

2.1679E-01 

! 5. 

IRE 

8156E-01  ANGLES  A A NO 

1.14469E*09  9.73459E 

GANNA-  3.0 184E+60  5* 

-01 

444CE+01 

•STAR  = -1.499765  VPSTAR  * 1.096726  ZPSTAfi  = .600000  (FLOW  SYSTEM) 

VPSTARP*  -• 003280  ZPSTARP*  .000000  (FLUX  TUBE  SYSTEM) 

VINIT  ZINIT  ERROR  (FLUX  TUBE  SYSTEM) 

-.3891E-02  -.3977E-0  3 .1&33E-02 


► 

VPX  VPV 

VPZ 

vx 

VY 

VZ 

IE-01 

9. 5996E-01  1.3530E-C2 

NEVAL*  1 

-1.6213E-53 

9. 59S6E-01 

1.353CE-02 

1.2582E-02 

'E-01 

IE-04 

9. 5923 E- 01  1. 3941E-02 

NEVAL*  13 

-1.  0773E-C3 

9. 3608E-Q1 

2.6448E-02 

2. 5186E-02 

'E-Cl 
► E-04 

9.5813E-01  1.4623E-0 2 

NEVAL*  17 

-1. 960  7£- 04 

9.  19  78E-01 

4.0466E-02 

3.9694E-02 

IE-01 

|E-04 

9.4856E- 01  2.2624E-C2 

NEVAL*  42 

9.7440E-C3 

8. 7866E-C1 

9.4430E-02 

1.0556E-01 

IE-01 

IE-04 

9.4606 E- 01  2. 5356E-C2 

NEVAL*  62 

1.  32  53E-C2 

6.  7459E-0 1 

1.0891E-01 

1.  2671E-01 

E-01 

E-04 

9.4  6 06E-  01  2.  53  56E-02 

NEVAL*  64 

1. 3253E-02 

8. 73S6E-C 1 

1.  1442E-Q1 

1. 3528  E-01 

E-01 

E-04 

9.3704E-01  5.2642E-02 

NEVAL*  86 

5.  61 58  E- 02 

9. 6537E-G  1 

1. 5667E- 01 

2.  6346E-01 

E-01 

E-04 

9.4034E-C1  5. 91 73E-02 

NEVAL*  94 

7.C049E-02 

1.  G16QE+CQ 

1.3981E-C1 

2.7122E-01 

E-01 

E-04 

9.6387E-C1  6.9148E-02 

NEVAL*  116 

1.0418  E-01 

1.  11  S6E+GU 

8. 2150E-02 

2.2  576E-01 

E-01 

E-04 

9.6531E-01  6.9255E-02 

NEVAL*  118 

1.05  26  £-01 

1.  1216E+C0 

7 .7105E-02 

2.1662E-01 

5.7973E-01  ANGLES  A AND  GAMMA-  2.8763E+60  5.4566E+01 

EE  1.14496E+00  9.735C2E-  01 


l 

h 

I 

f- 


f 


,X_ 


t 

4 

i 


ip 

CENTER 

1 

2 

3 

4 


FLUX  TUBE  CROSS  SECTION  COORDINATES  IN  THE  - J 

INITIAL  PLANE  TARGET  P L A d 

XP 

-5.9G00E+CQ 
l*5884E-14 
1.1492E-14 
2.8354E-14 
9 • 7370  E- 15 


YP  ZP 

9*8110E-0i  6.9829E-01 

7.2555E-04  4.  2635E-03 

4*  12  78E-03  -3*  891 2E*  04 

4.4517E-04  -1.8950E-03 

3*  8913E-03  -3.97S6E-04 


XP  yp 

-1.5000E+C0  i.iaocE+aB 

-5.2934E-15  -3.0215E-J4 

-1.09  63E-15  3*950 6E-03 

-2.9064E-15  3.9710E-84 

1.6757E-15  -4*310  OE-flJ 


FLUX  TUBE  CROSS  SECTION  AREA  IN  THE  INITIAL  PLANE*  2.47114E-05 
CONCENTRATION  FACTOR*  1.08337 


POINT  (XyYfZ)  * -1*50000  l*lO00tl  *80000 

NORHftLIZEo'flIR  IWO '"wMIL  T°  LENG™  R"I0= 

PARTICLE  CONCENTRATION  PATIO*  1.11288 


CTi 

« 

4 

I 

l 

« 

i 

f 


ROSS  SECTION  COORDINATES  IN  THE  - 

TARGET  PLANE 

XP  YP  ZP 

1* 50  00E+00  1*190 CE+00  8.0CC0E-C1  CFLCH  SYSTEM) 

5.2934E-15  -3.0  215E-a4  3.6111E-03  IFLUX  TUBE  SYSTEM) 

1.Q9  63E-15  3.950  6E-33  -1.2361E-83  CFLUX  TUBE  SYSTEM) 

2.9064E-15  3.971QE-84  -2.02Z5E-03  CFLUX  TUBE  SYSTEM) 

1.6757E-15  -4.31001-03  7.5786E-05  CFLUX  TUBE  SYSTEM) 


THE  INITIAL  PLANE®  2.47114E-05  IN  THE  TARGET  PLANE*  2.28097E-05 


ZP 

9829E-01 
263  5E-0  3 
f89L2E-0  4 
8950E-03 
97S6E-04 


i 1.1U006  • 80600 

ioo  WITH  01  AM ETER  TO  LENGTH  RATIO*  l.BOaCfiE+flO 

[ 1.14339 

.1293 


ANO  OENSITY*  1.0000CE+Q3 


X_ 


TANTRA 


BODY  IDENTIFIER  IS  TEST  NUMBER  CF  SYMMETRY  PLANES8  0 


NUMBER  OF  QUAORAlI 


cr» 

oo 


1 

1 


wuxw  jj 


PLANES*  0 


NUMBER  OF  QUADRAL ATERALS*  189 


MACH  NUMBER*  0. 


n^omrrcwt?,, 


tangent  trajectory  cooe  run  10  - 

TEST  PROBLEM  WITH  TEST  BO  CY 


PHYSICAL  INPUT  OATA  - 
AIR  SPtED=  9* 800030E+G1 
OENSITY  ANO  TEMPERATURE 


nPCJ^A?LERIITJC  0F  THE  BOOT=  I.QOUCQ 

OF  AIR  ARE  9. 092530E-01  ANO  2.68659QE+Q  2 All 


NUMERICAL  INTEGRATOR  INPUTS  - 

TIHE  STEP*  1.0000E-S1  HINZMUM  TIME  STEP*  5.  OCME-OS  PRINT  TINE  INTEfl^ 
UOCPL  ERROR  TOLERANCES  POR  0»0Q  - l.OOOOE-OS  l.COOOE-CS  i.MCJ 


TRAJECTORY  DATA  ARt  WRITTEN  ON  UNIT  IQ  FOR  PLOTTING 


or 

vo 


FOUJOUTfR*, 


p OIMENSI OK  OF  THE  BODY*  l.aOUOflOE+OO 

92530E-01  AND  2.686590E+02  AIR  VISCOSITY  IS  1 • C93764E-Q5 

FP~  5.CCL3E-03  PRINT  TINE  INTERVAL = t«0030E>00  X COORO*  OF  FINAL  PLANE 
1 OGQE-05  l.CCfl0E-05  1.30Q0E-05 


JR  “LOTTING 


Ffionurfiwn,  -2__ 


HATER  OROP  DIAMETER  * 2.  CQfi00E*02  MICROMETERS 


PARTICLE  SETTLING  SPEED*  7.  698  9 3E-01  N/SEC 


TRAJECTORIES  ARE  TO  BEGIN  ALONG  A LINE  OEFINED  BY  THE  POINTS  <X1VY1,Z1*)  ANOi 
( -5  • OOOGOE+0O  0.  -4.50300E-01  ) AND  I -5.00000E 

HITH  DIRECTION  COSINES  -(COSCALPHA) »COS(BETA) *COS ( GAMMA)!  - 0. 


STARTING  POINT  INCREMENTS  ARE  - COARSE  INCREMENT*  5.0C0CCE-02  FINE  INCREMEM 


* INITIAL  COORDINATES  X*-5.00000E+00 


Z*-4.  50  00  0E 


IFLAG=  7 FOR  KSTEP* 
IFLAG  = 7 FOR  KSTEP* 

INSIDE  QUAD  185 
Z.NP,ROSQ,TSQ,H= 
INSIDE  QUAD  188 
ZNP*RO  SQ*  TSQf  H* 


27  NEVAL* 
27  NEVAL* 
12=  1 
-5.4665E-03 
12=  1 
-7,19 77E-03 


58 

59 


Y*  0. 

HMIN  IS  SET  TO  3.125fiE-03 
HMIN  IS  SET  TO  1.5625E-03 


2.4343E-D1  1.0355E»60  2.5000E-02 


2.5Q35E-31  1.0355E+00  2.50a0t-02 

THE  BO OY  SURFACE  IS  PENETRATED,  PARTICLE  COORDINATES  ARE  (X  ,Y  ,Z) -2,  552| 
TRIAL  INITIAL  COORDINATES  ARE  CYINIT  , ZIMIT  > 0.  -4.500y£-01 


AFTER  0 ATTEMPTS  PARTICLE  STILL  PENETRATES  THE  BODY, 


KSTEP 

0 


10 


19 


29 


39 


47 


57 


H=  1.0C00E 
5.  COCOE-Ol  - 
H=  5.0  CODE 
1.  O0COE+OO  " 
H=  1,0  CODE 
i,84G6E*  00  - 
H=  1.5625E 
1, 875  OE*  00  - 
H=  1.2500E 
2.0000E+C3  - 
H*  5,3  CO  OE 
2,5750Efr  00  - 
H=  2,5  000 E 


5. 0 OOOE  + QO 
-01  R=  8. 
4.5253E+00 
-02  R=  2, 

4.0  517E+00 
-01  R=  6. 
3,2  695E ♦00 
-03  R=  2. 
3.2385E  + 00 
-02  R=  2. 
3,1 264E+00 
-02  R=  2. 
2, 6346E+00 
-02  R=  3. 


0. 

25  73E+00  AC= 
-5,  2030E-04 
18  23E+01  AC= 
-1.06  37E-C3 
8350E+01  AC- 
-2.22C1E-C3 
3070E+02  AC= 
-2.  2817E-  (3 
1011E+02  AC= 
-2.  5204E-  C3 
60  29E+  02  AC: 
-3.9965E-C3 
9701E+02  AC: 


-4.5000E-fil 
1.9004E-17 
-4. 5857E-01 
1, 6453E-03 
-4.6742E-01 
6.6054E-Q4 
-4.8803E-01 
4, 996 JS-G4 
-4.8936E-01 
4.90C9E-G4 
-4, 9505E-01 
4.1124E-C4 
-5.5196E-01 
: 3. 9795E-04 


VPX  VP Y 

9.4971E- 01  -1.0  3 53E-03  -1. 
NEVAL*  1 

9, 4886 E-  01  -1.U526E-03  -1. 
NEVAL*  17 

9.4439E-  01  -1.1384E-S3  -l* 
NEVAL*  35 

9,Q5£6E-01  -1.  7706E-03  -3, 
NEVAL*  63 

9. 0255 E- 01  -1.8174E-03  -4, 
NEVAL*  63 

8 • 6980 E- 01  -2.00  74E-03  -5 
NEVAL*  99 

6 . 2481E-01  -3. 18  98 E -03  -1| 
NEVAL*  121 


* * * 

* INITIAL 

COORDINATES  X* 

-5. OOOOfiE+33  Y 

* 0, 

IFLAG* 

7 FOR  KSTEP 

* 26 

NEVAL* 

60 

HMIN  IS 

SET 

IFLAG* 

7 FOR  KSTEP 

= 29 

NEVAL* 

63 

HMIN  IS 

SET 

IFLAG* 

7 FOR  KSTEP 

* 10  8 

NEVAL* 

235 

HMIN  IS 

SET 

KSTEP 

T 

X 

Y 

Z 

VPX 

0 0. 

-5.Q000E+C0 

0. 

-5. COCOE-Ol 

9.  50 22 E- 

01 

H= 

1.0000E-01 

R*  3. 

9701E+02 

AC*  8,  2203 £-21 

NEVAL* 

Z*-5, 0000  OE 


VP  Y 


10 

i 


20 


30 


5.  000CE-01  -4. 5250E  + 0 0 -5.  1313E-C4  -5.09C5E-01 
H*  5.CC00E-02  R=  2, 1255E^C1  AC*  1.6923E-03 
l.CCCOEf-OO  -4.0512E+00  -1.0485E-03  -5.1842E-01 
H*  1, 0 COOE-Ol  R*  6.6581E+01  AC*  6.726SE-04 
i,8797E«-00  -3.2321E+00  -2.2468E-C3  -5.4173E-C1 
H*  1.5625E-03  R*  1. 9997E»02  AC*  5.3975E-04 


9,4939E-01  -1.0379E-03  - 1, 
NEVAL*  17 

9.4510E-  01  -1,  1204E-03  -1, 
NEVAL*  37 

9, Q617E-  01  -1.7668E-03  -4. 
NEVAL*  65 


^ r\  $ 


r» 


fauxuxfm,  | 


0. 

l.COOOOE+OO 


[ <X1*Y1,Z1»)  ANO  (X2tY2,Z 2)  - 
( -5.  000002*00  3. 

0.  0. 

;2  FINE  INCREMENTS  5.0C00QE-03 


i Z = -4  . 50  0 0 0E-01  FOR  TRAJECTORY  NUMBER  1 

ET  TO  3.125CE-03 
ET  TO  1 • 5 625E-0  3‘ 

| 2.50002-02 

l 

| 2.500  32-0  2 

IE  (X  ,Y  .21  -2#  55232E  + 00-4.32804E-03-5.7C565E-01 
-4.53082-01  ATTEMPT  NUMBER  0 

)DY. 


VP Y VPZ 

L -1.03  53E-03  -1.7377E-02 
1 

L -1.0526E-03  -1.  7267E-02 
17 

L -1.1384E-C3  - 1.  8462E- S 2 
35 

L -1.7706E-03  -3.6358E-C2 
63 

. -1. 8174E-03  -4.0613E-22 
63 

. -2.C0  74E-03  -5.1080E-C2 
99 

; -3.1898E-C3  -1.6851E-01 
21 


VX  VY  VZ 

9.4971E-01  -1.03532-33  -8.5312E-03 

9.2635E-G1  -1.50  462-33  -1.5595E-C2 

8.7433 E-9 1 -2.4196E-03  -3.7486E-Q2 

7. 35C1E-01  -4.3441E-03  -1. 5675E-01 

7*  2694E-0 1 -4.4526E-03  -1.6882E-01 

6.61C5E-01  -4.9664E-03  -2.4430E-01 

7. 4570E-0 1 -6.110SE-03  -5.7168E-01 


Z=-5 • CO  00  OE-0 1 FOR  TRAJECTORY  NUMBER 
{T  TO  3.125CE-03 
T TO  1 • 5 625E-0  3 
nr  TO  7.812  5E-0  4 


RIGINAL  PAGE  IS 
OF  POOR  QUALffY 


VP  Y 

: -1.  0211E-03 
1 

[ -1. 03792-03 
|t7 

1 -1.12J4E-03 

^7 

-1.  7668E-03 


VPZ 

- 1.  80  37E-02 
- 1.8253E-C2 
-1.9572E-C2 
-4.2684 £-02 


VX  VY  VZ 

9*  SO  22E-01  -1.0211E-03  -9.4917E-03 

9. 27432-01  -1* 4761E-03  -1.7214E-02 

8. 7764E-0 1 -2.3594E-03  -4.0720E-02 

7.  45  S32-01  -4.28Q8E-Q3  -1.  7362E-01 


l 


o ft  4 r\  r «* 


m — i 


i * m f*  t-  r» 


<9  r*  r a r- 


n ^ 


HU 

49 

59 

69 

79 

84 

94 

104 

114 

124 

134 

144 

145 
155 
165 
170 
175 


i«SUOOC»  Uil  -O*  caoicnu  “*C*  1>J  “9.H6HH  t“«i 

H*  6.2500E-03  R=  2.C666E+02  AC=  4.9383E-04 
2.00COE+CD  -3.1237E+00  -2.4692E-C3  -5.4747E-01 
H=  2.5000E-02  R=  2.3735E+C2  AC=  4.4664E-04 
2*  52  5QE*  03  -2.6674E+00  -3.  7260E-C3  -5.9541E-01 
H=  5*0  303E-02  R*  3.5235E+02  AC  = 4.113SE-04 
2.7125E«-03  -2.  5091E  + C0  -4.3Q54E-C3  -6.2775E-01 
H=  1.2500E-02  R-  3.  6565E+02  AC=  4.0703E-04 
2*  87  50E«-  CO  -2.3701E+G0  -4.8572E-03  -6.6329E-01 
H=  2*5  OOOE-G  2 R=  2.7019E+02  AC=  4.4649E-04 
3.00C0E+CO  -2.2614E  + 30  -5.30  C4E-03  -6.9333E-01 
H=  2* 5 003E-Q  2 R=  2. 2479E+02  AC=  4.9517E-04 
3*  2687E*  00  -2,  0 226E+00  -6.292CE-03  -7.6277E-01 
H=  6.2500E-03  R=  2.2802E+02  AC=  4.7372E-Q4 
3*37  50E*  00  *1*  9261E+0  0 -6.  6963E-03  -7.9143E-01 
H=  2.5  000E-02  R=  2.0274E+02  AC=  4.9549E-04 
3*  39 37E*  00  -i*9G89E+00  -6.7679E-03  -7.965SE-01 
H=  1.5625E-03  R=  1.9867E+G2  AC=  5.3852E-04 
3.  4500E+00  -i®  3 572E  + 00  -6.9827E-C3  -8.1193E-01 
H=  1.2500E-02  R=  1.8939E+C2  AC=  5.4795E-04 
3.8000E*Q0  -1.5285E+C3  -8.3154E-C3  -9.0780E-C1 
H=  5.0  003E-02  R=  1.9Q86E+02  AC=  5.4461E-04 
4*0OGOE*OO  -1.3352E+00  -9.  0641E-03  -9.6181E-01 
H=  5.0000E-02  R=  1.8499E+02  AC=  5.4933E-04 
4*  OC  GCE*  00  -1*  3352E  + 0C  -9.0641E-C3  -9.6181E-01 
H=  2.5  000E-02  Rs  1.8398E+02  AC=  5.  5533E-04 
4*  35  00 E*  03  -9.8803E-01  -1.0328E-C2  -1.0523E+GC 
H=  2* 5 00  0E- 02  R=  1.9043E+02  AC=  ‘.4239E-04 
4.7750E4-00  -5.5306E-01  -1.17E3E-02  -1.1523E+G0 
H=  5*0  GOflE-0  2 R=  1.  8739E+02  AC=  5.4443E-04 
5.COOOE+OQ  -3.1772E-C1  -1.2444E-(2  -1.1993E+0G 
H=  5*0000E-02  R=  1.8378E+02  AC=  5.5173E-Q4 
5*2995E>00  1.1102E-16  -1.3284E-C2  -1.2559E+00 

H=  l.OOOaE-Ol  R=  1*  75  34  E+ 02  AC=  5.5777E-04 


y •UO'soe-ui  -itouiofw-)  1 
NEVAL=  85  I 

8.9545E-01  -1.935UE-03  \ 
NEVAL=  103  j 

8.4607E-C1  -2.8990E-03  4 
NEVAL=  124  ] 

8.4692E-C1  -3*2768t-03  - 
NEVAL=  147 

8.6379E-01  -3.4913E-03  - 
NEVAL-  167 

8.7616E-C1  -3*  59  62E-03  - 
NEVAL=  178 

9.0165E-Q1  -3.  7829E-C3  - 
NEVAL=  202 

9.1405E-01  -3.8160E-C3  - 
NEVAL=  222 

9.1608E-C1  -3*8177E-03  -I 
NEVAL=  247 

9.2214E-G1  -3.82U5E-03  -‘I 
NEVAL=  267  .j 

9.5632E-C1  -3.  7791E-03  -j 
NEVAl=  288  | 

9.7643E-Q1  -3.7025E-03  -I 
NEVAL=  311  j 

9.7643E-C1  -3.7025  E- 13  -j 
NEVALs  314  ! 

1 • GC69E*  00  -3*  5092E-C3  -i 
NEVAL=  335  j 

1.0387EM0  -2*  17  72E-03  -< 
NEVAL=  356  ] 

i.C526E«-00  -2.9619E-03  -j 
NEVAL=  367  I 

1 • 0 682E*  08  -2.64H6E-03  -I 
NEVAL=  377  1 


4 v ,,  4 SWITCH  TO  FINE  STEPSIZE  * 


* * * ♦ INITIAL  COORDINATES  X=-5.80G0uE*3 0 

I FLAG*  7 FOR  KSTEP=  30  NEVAL=  57 

I FLAGs  7 FOR  KSTEP=  30  NE VAL=  58 

INSIDE  QUAO  187  1 2s  1 


Y-  0*  Z=-4.95G0J 

HMIN  IS  SET  TO  3.125GE-03 
HMIN  IS  SET  TO  1*562  EE-03 


ZNF,ROSQ,TSQ»H=  -3.2C26E-04  1.6737E-01  6.7553E-01  2.5003E-02 

THE  BODY  SURFACE  IS  PENETRATEO.  PARTICLE  COORDINATES  ARE  (X,Y,Z)-2*hH 
TRIAL  INITIAL  COORDINATES  ARE  <YI NIT  * ZI'I  IT ) 0.  -4.9500E-01 


AFTER  0 ATTEMPTS  PARTICLE  STILL  PENETRATES  THE  BODY. 


KSTEP 

0 


It 


20 

21 

31 

41 


T X Y Z 

0*  -5*0  000E+09  0*  -4*9  50  3 E-fil 

H=  1.0  000E-01  R=  1.7534E+02  AC=  4.2147E-20 
5.  OOOOE-Ol  -4.5250E4-00  -5.  1385E-C4  -5.0401E-01 
Hs  5*0  OOOE-02  R=  2.1313E+01  AC=  1.6874E-03 
1*00  G0E+  00  -4*  0 512 £400  -1.  0501E-C3  -5.1333E-01 
H=  l.OCOOE-Ol  R=  5.6799E+01  AC=  9.2763E-04 
1*  00  00E*  00  -4.9512E  + 00  -1.  05  C1E-03  -5.1333E-C1 
H=  1. OOOOE-Ol  R=  6.6762E+01  AC=  6.7141E-0H 
1*87  66E«-  00  -3*  2352E4-C0  -2.  2457E-C3  -5.3643E-01 
H=  1.5625E-03  R=  2 . 00 29£h€2  AC=  5.0045E-04 
1*  9063E*-  00  -3.2083E  + DO  -2.  2988E-C3  -5.3772E-01 
H=  6*2  50 OE-03  R=  2.0786E>02  AC=  4.9263E-04 


VPX  VPY 

9 *5017 E- 01  -1*  u 226E-03  -J 
NEV  AL=  1 

9.4934E-01  -1*  0394E-03  -j 
NEVAL=  13 

9.45C2E-01  -1* 1222E-C3  - J 
NEVAL=  31 

9*4502 E- 01  -1.1222E-C3  -: 
NEVAL=  33 

9.0602E-01  -1*76  88E-03  -< 
NEV AL=  60 

9 • 0350  E-  01  -1.8081E-03 
NEVAL=  80 


n ^ ^ i JiA  - 


|c*Tn.  -l* ouioc-va 
I 85 

IE-01  -1*93  586-03 
| 103 

PE- 01  -2.8990E-03 
I ^24 

EE- Cl  -3.2768E-03 
f 147 

8E-01  -3*49106-03 
b 167 

&E-C1  -3.  59  626-03 
F 178 

E-  01  -3.7829E-C3 
202 

E-  01  -3.8160E-C3 
222 

E-01  -3.8177E-03 
247 

4E-01  -3*82U5E-03 
p 2 67 

EE- 01  -3.7791E-03 
fc  288 

3 E-01  -3.7025E-03 
311 

IE-C1  -3*  7025E-  13 
= 314 

9E* 00  -3.5092E-03 

* 335 

7E*  00  -3*  17 72E-03 

* 356 

£♦00  - 2.9619E-C3 
367 

£♦00  -2*  6446E- 03 
377 


-4» H3  r*c-  uc  r#  *uc£C-ui  -4*356x6-0  3 -i* boiat-vi 
-5*  2476E-02  7.22C3E-Q1  -4.6783E-03  -2.3124E-01 

-1.4541E-01  7.75C3E-01  -5.6161E-03  -5.0306E-01 

-2*00336-01  9.S347E-01  -5.6300E-03  -5.6342E-01 

-2.  3312E-C1  1*03176400  -5.050HE-C3  -4.5671E-01 

-2*  47 46c- 31  1*  04746*00  -4.9247E-03  -4.0973E-01 

-2*  6766E-  (1  1*10746400  -5.0931E-03  -3.8329E-01 

-2.7199E-31  1.1195E+00  -4*01146-03  -3*14706-01 

-2*72416-01  1. 11836400  -3.9671E-C3  -3*09316-01 

-2*73386-01  1* 1168E4Q0  -3*86006-03  -2.9616E-01 

-2* 7288E-01  1.15116400  -3.2909E-03  -2.4028E-01 

-2*  66486-01  1*  15C7E+  00  -2.8540E-03  -1.8720E-01 

-2*  6648E-01  1*  150664  00  -2*81406-03  -1*83616-01 

-2*  49 19E-U1  1*16666400  -2.2839E-03  -1.3240E-01 

-2.1923E-C1  1.1649E+00  -1.4809E-03  -7*1961E-02 

-2.  01156-01  1*  16(36400  -1.005SE-03  -4*12996-02 

-1*  77076-fll  1.1631E480  -4.1830E-04  -1.9720E-02 


0 FIN£  STEPSIZE  *♦*  *#*♦♦♦*♦♦♦#*#*♦•♦♦♦**** 


Z=-4.9500aE-01 
S SET  TO  3 • 1 250E-0 3 
S SET  TO  1*562  fE-Q  3 


FOR  TRAJECTORY  NUMBER 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


01  2*  500  ilE-02 

ES  ARE  (X  VY  »Z)  -2*414596400- A*  702456-03-6*  47195E-01 
-4.950OE-O1  ATTEMPT  NUMBER  0 

HE  BODY* 


PX  VPY  VPZ  VX  VY  VZ 

7E-01  -1.U226E-03  -1.7943E-02  9.5017E-01  -1.0226E-03  -9*39716-03 

= 1 

4E-01  -1.03946-03  -1.81566-02  9.27316-01  -1.4808E-03  -1.7056E-02 

= 13 

E- 01  -1* 1222E-C3  -1.  9463E-02  8.8821E-01  -2.1833E-Q3  -3.4500E-02 

= 31 

2E-01  -1*12226-03  -1.9463E-02  8.77306-01  -2.3654E-03  -4*04096-02 

= 33 

2E-01  -1*  7688E-03  -4.2313E-C2  7.4457E-01  -4.2901E-83  -1.  7230E-01 

= 60 

E-  01  -1.8081E-03  -4.44236-02  7.3eS5E-01  -4.3748E-03  -1.8295E-01 


58 


68 


Tt mnnrt^TQ j * 3. ichu t * « u Hr*ot** to 

H*  2.5000E-02  R=  2.3887E+02  AC*  4.4563E-04 
2.4750E»C0  -2*7 105E+G0  "3.5943E-C3  -5.8339E-01 
H*  5*0  COOE-O  2 R*  3.4415E+02  AC*  4.1415E-04 
2.7125E«-00  -2.5103E+00  -4.32C8E-03  -6.2285E-C1 
H=  1.2500E-02  R=  3 • 7292E+02  AC=  4.U483E-04 


6.V4*We-  U1  -1 « *4*  S»  £-U3 
NEVAL=  94 

8.4764E-01  -2.8141E-03  -fj 
NEVAL*  115 

8.4491E-01  -3.3024E-C3  -II 
NEVAL*  137 


‘4.. 


TANGENT  TRAJECTORY  IS  AS  FOLLfl 


* * 

* 

INITIAL 

COORDINATES  X*- 

5.00000E+00 

Y*  0. 

Z*-5.0000| 

IFLAG* 

7 

FOR 

KSTEP* 

28 

NEVAL* 

60 

HMIN 

IS 

SET 

TO 

3 .125  OE-03 

IFLAG* 

7 

FOR 

KSTEP* 

29 

NEVAL* 

63 

HHIN 

IS 

SET 

TO 

1.5E25E-0| 

IFLAG* 

7 

FOR 

KSTEP* 

108 

NEVAL* 

235 

HHIN 

IS 

SET 

TO 

7.812  5E-0I 

KSTEP 

0 

10 

26 

30 

40 

49 

^ 59 
ro 

69 

79 

84 

94 

104 

114 

124 

134 

144 

145 
155 
165 

iro 

175 


T X Y Z 

0.  -5.0000E+00  0.  -5.C003E-01 

H*  l.OflOOE-Oi  R*  3. 7292E+02  AC*  9.3174E-21 
5.00C0E-C1  -4.525QE+0Q  -5.1313E-04  -5.0905E-Q1 
H*  5*  0 009E-02  R*  2.1255E+C1  AC*  1.6923E-03 
1.0000E+00  -4.0512E+90  -1.0485E-C3  -5.1842E-01 
H*  1* 0 COQE-01  R*  6.6561E+01  AC*  6.7263E-04 
1.8797E+00  -3.2321E+00  -2.Z468E-C3  -5.4173E-Q1 
H*  1.5625E-03  R*  1.9997E+02  AC*  5.3975E-Q4 
1.90  63E*  00  -3.2081E+Q0  -2.2942E-C3  -5.  429'4E-fi  1 
H*  6.2500E-03  R*  2.0666E*C2  AC*  4.9383E-C4 
2.0C00E+C0  -3.1237E+00  -2.4692E-03  -5.4747E-01 
H*  2. 5000E-02  R=  2.3735E+02  AC*  4.4684E-04 
2 . 52  50E«-G0  -2 • 6 674E  + 0 0 -3.7260E-03  -5.9541E-01 
H=  5.0  000E-B2  R*  3.  5235E+02  AC*  4.1138E-U4 
2.7125E*P3  -2.5091E+00  -4.3054E-03  -6.2773E-01 
H=  1.2500E-02  R=  3.6565E+02  AC*  4.O7Q3E-04 
2.8750E+00  -2.3701E+30  -4.8572E-03  -6.6323E-ul 
H*  2*  5 COOE-O 2 R*  2.7019E+02  AC*  4.4649E-04 
3.0000E«-00  -2.2614E+C0  -5.3004E-03  -6.9333E-01 
H*  2.5033E-C2  R=  2.2479E+02  AC*  4.9517E-04 
3.2687£«-00  -2.0226E+00  -6.  2920E-C3  -7.6277E-C1 
H*  6.2530E-03  R=  2.2802E+02  AC*  4.7372E-04 
3*  37  5 0E*  00  -1.9261E+G0  -6.6963E-03  -7.9143E-01 
H=  2.5G0DE-02  R*  2.0274E+02  AC*  4.9549E-04 

3.  3937E  + 1)0  -1.9089E+00  -6.7679E-03  -7.9  653E-Q1 
H*  1.5625E-03  R=  1.9867E+02  AC*  5.3852E-04 

3.45G0E+00  -1  • 8572E+00  -6.9827E-C3  -8.1193E-Q1 
H*  1.2533E-02  R=  1.8939E+02  AC*  5.4795E-04 
3.8000E*00  -1.5285E«-G0  -8.3154E-C3  -9.U780E-01 
H*  5#  0 009E-02  R*  1.9066E«-62  AC*  5.4461E-04 

4.  00 00E*  00  -1.3352E+C0  -9.C641E-C3  -9.6161E-01 
H=  5*0  300E-02  R=  1.8499E+02  AC*  5.4930E-04 

4.  30 G0E+  00  -1.3352E+QQ  -9.Q641E-C3  -9.6181E-Q1 
H*  2.5  000E-02  R=  1.6398E+02  AC*  5.  5533E-04 
4. 35  00E+  00  -9.8803E-C1  -1.C328E-C2  -1.0523E+08 
H=  2.5G00E-C2  R=  1.9043E+02  AC*  5.  4239E-04 
4.  7750E*Q0  -5 • 5306E-01  -1.1753E-C2  -1.1520E+OC 
H*  5.  0 COOE-O 2 R=  1.8739E*02  AC*  5.4449E-04 
5»  GQ00E+  00  -3.1772E-C1  -1.  24*46-02  -1.1993E+G6 
H*  5*  0 COOE-O  2 R=  1.8378E+02  AC*  5.5173E-84 
5*  2995E*  03  1.11C2E-16  -1.3284E-02  -1.2559E+U0 

H*  1.0  COOE-O 1 R*  1.  7534E+  02  AC*  5.5777E-04 


fowourfBAff  I 

— — — - - - ..  ■,  . . ,, - , ^linii iinwi rniiriilti 


y IPX  vpy 

9.5022E-C1  -1. 8211E-C3 
NEVAL*  1 

9.4939E-C1  -1.S3  79E-03 
NE«7AL*  17 

9. 4518 E- 01  -1.  1204E-C3 
NEVAL*  37 

9.0617E-C1  -1.  7668E-83 
NEVAL*  65 

9.0393E-01  -1.8018E-03 
NEVAL*  85 

8.9545 E- 01  -1. 93  5 86-03  -! 
NEVAL*  103 

8.46C7E-01  -2.699  8E-03 
NEVAL*  124 

8 .4692E-  01  -3.  27 68E-C3  -J 
NEVAL*  147  ] 

8 . 6379E- 01  -3, 491 0E-C3  -2 
NEVAL*  167  ] 

8.7616E-0i  -3.5962E-C3  -2 
NEVAL*  178  ; 

9 .0165  E-  Cl  -3.78  29  E-  C3  -2 
NEVAL*  202  1 

9.1405E-  01  -3. 81 60E*"fc3  -i 
NEVAL*  222 

9. 16C8E- 01  -3.8177E-03  -2 
NEVAL*  247  j 

9.2214E-C1  -3.82056-03  -2 
NEVAL*  267 

9. 5632 E- 01  -3.7791E-03  -2 
NEVAL*  288 

9 . 7643 E-  01  -3.7025E-C3  -2 
NEVAL*  311  ] 

9 .7643  E-  01  -3.  7025E-C3  -2 
NEVAL*  314 

1 . 0069E+  00  -3.50 92E-C3  -2 
NEVAL*  335 

1.0367E+00  -3.17  72E-03  -2 
NEVAL*  356  S 

1.0528E+OQ  -2.9619E-C3  -| 
NEVAL*  367  I 

1.0662E+00  -2. 64466-03  -J 
NEVAL*  377  1 


5»W50t“tf«  / •H.OSU/t'UO 


94 


L -2.8141E-03 
.15 

. -3.30  24E-C3 
.37 


-1.33C7E-C1 

-2.U236E-Q1 


7.49C6E-01  -5.5837E-03  -4.7531E-01 
9.  5275E-01  -5.700SE-03  -5.72S1E-01 


ORY  IS  AS  FOLLOWS  * * ***♦***♦**»*♦♦♦*♦**** 


Z*-5.00000E-01 
T TO  3*125  CE-0  3 
T TO  1.5E25E-03 
T TO  7.812  5E-0  4 


FOR  TRAJECTORY  NUMBER 


VP  Y 

-1.8211E-C3 

1 

I -1.C379E-C3 
17 

1 -1.1204E-E3 
37 

. -1.7668E-L3 
65 

; -1.8S18E-03 
85 

. -1.9350E-03 

03 

. -2.699  0E-C3 
24 

: -3.2768E-G3 
47 

■ “3*  491  0E-G3 
67 

-3.5962E-C3 

78 

-3.78  29  E- £3 

02 

, -3.8160E-fc3 
22 

-3.8177E-G3 

*♦7 

-3.8205S-03 

67 

-3  * 779  IE-03 

08 

-3.7025E-C3 

II 

-3.  7025E-C3 
14 

-3.5092E-C3 

35 

-3.1772E-03 

56 

-2.9619E-C3 

67 

-2.6446E-03 

77 


VPZ 

>1*8  0 37E-G2 


VX 

9*  fO 22E-G 1 


V Y 

1.C211E-03 


vz 

-9.4917E-03 


1.8253E-C2 
1.9572E-02 
4.2684E-02 
4.4579E-C2 
5.  2476E-E2 

1.  4541E-C1 

2.  0033E-C1 
2.  3312E-G1 
2*  4T46E- C 1 
2.  6766E-01 
2*  7199fc-8 1 
2.  7241E-01 
2. 7338 E- Cl 
2*  7 288  E-Q  1 
2*  6648 E-  SI 
2.6648E-21 
2*  49i9E-  tl 
2* 1923E- 01 
2*  it  115 E- 01 
1.77U7E-01 


9.2743E-01 
8*  7764E-01 
7.45'3E-01 
7*  41C2E-01 
7. 2203E-Q 1 
7.  75C3E-0 1 
9.  5347E-01 
1*  C317E+0C 
1. C474E+0G 
1.1034£*00 
1*  1155E+80 
1*11 13E+J0 
1*11  €8£*0  0 
1. 1 5 11 E + fi  0 
1.1507E+80 
1* 15S6E+00 
1* 1656E+0U 
1.1649E+G0 
1.16C3E+SC 
1*16UE400 


*1.478  IE-  03 
■2.3594E-03 
■4.2808E-03 
•4.3561E-03 
•4. 678  3£ -03 
■5. 6161E-03 
*5.638  06-03 
■5.05C  CE-C3 
■4.9247E-C3 
*5.  0931E-C3 
•4.0114E-03 
■3 .967  IE  -03 
■3.860  0E-C3 
•3.2909E-C3 
•2.8540E-03 
■2.8140E-0  3 
■2.2839E-03 
■1.4809E-03 
■1.005SE-03 
■4.183CE-04 


-1# 7214  £-02 
-4.0720E-C2 
-1.  7362E-01 
-1.8313E-01 
-2.  3124E-01 
-5.0306E-01 
-5.  6342E-01 
-4.5671E-01 
-4. 0973E-01 
-3.8329E-C1 
-3.14  70E-01 
-3.09  31E-01 
-2.9616E-01 
-2.40  28E-01 
-1.  87  20  £-01 
-1.8361E-01 
-1.3240E-01 
-7. 19  61E-02 
-4.1299E-02 
•1.9720E-02 


l . 

E&rl. 


A. 


mmurmu. 


STEREO 


PLOT  TANGENT  TRAJECTORY  TO  THE  TEST  803Y 


NUMBER  OF  SYMMETRY  PLANES-  0 NUMBER  OF  TRAJECTORIES*  1 XSTAR‘ 

MINIMUM  ANO  MAXIMUM  COORDINATES  - 

X AXIS*  -5.UC3G0E+00  2.0QGOCE+00 

Y AXIS*  -2.0000GE+09  2. aooooE+oc 

Z AXIS*  -1.25593E+00  1.00  000E+00 

COORDINATE  TRANSLATIONS  USEO  TO  CENTER  THE  PLOTS  - DELX*  OELY*  OELZ  - 


•i#  sooooE^oe 

i. 

-1.27964E-01 

CRT  PLOTS 

■ 

THETA  * 0.0 C 

PSI  = 

160.00 

OELTA  * 

3.50 

PLOT  LABEL  - THETA=0,  PSI=160* 

DE  ITA*3.5 

PEMSF  * 

1.5466E+0Q 

TRAJ.  NO.  1 OF 

22  POINTS 

XTRA  J 

YTRA  J 

ZTRAJ 

XFLCT 

YPLOT 

-.500CE+01 

0. 

-•5900E+00 

-. 2158E+01 

-• 5754E+0Q 

-.50QCE+01 

0. 

- .500  OE  + OO 

-•2158E+01 

-•5754E+00 

-• 45  25E*0  1 

-• 5131E-03 

-•  50  91E  + O0 

-.1865E>01 

-.5694E+00 

-• 40  5 IE + 01 

-.1049E-Q2 

-.518  4E*00 

-•1572E+G1 

-.6039E*00 

-• 3232E+0  1 

-.2247E-02 

-•5416E+00 

-.10  £5E*0 1 

-•64QQE+00 

-.3208E+C1 

-.2294E-02 

-•542<E»00 

-.10  50E+C 1 

-• 6418E+Q0 

-.3124E+01 

-.2469E-02 

-.547  5E+Q0 

-•9978E+0O 

-.6488E+00 

-.2667E+01 

-.3726E-02 

-•5954E+00 

-.7146E*00 

-.7229E+00 

-.25O9E+01 

-• 4305E-02 

-.627  7E+0Q 

-• El 62E+C0 

-•7729E+00 

-• 2370  E+0 1 

-•4857E-02 

- . 6633E+  00 

-• 5297E+00 

-»  8279E  +00 

-• 2261E+0  1 

-•5300E-02 

-.6934E  + 00 

-.4620E+00 

-.8744E*0Q 

-.2023E+01 

-• 6292E-02 

-.762  CE+00 

-.3133E+00 

-.9818E+00 

••1926E+01 

-.6696 E-0 2 

-•7915E+0C 

-. 2533E+00 

-•102&E+D1 

-.1909E*0i 

-.6768E-02 

-.7S66E+00 

-• 24  26E+Q  0 

-•1034E+O1 

-.18  57E+01 

-.6983E-02 

-•8119E+00 

-• 21Q4E  + G 0 

-• 10  58E  + 0 1 

-•1528E+01 

-.8315E-02 

- .907EE+C0 

5772E-02 

-.1206E+01 

-•  1335E+0 1 

-• 9064E-Q2 

-•9612E+00 

•1145E+0G 

-.1290E+01 

-.1335E+01 

-.90&4E-02 

-.961 EE+QQ 

•1145E+00 

- .129GE+3 1 

-.9880E+0Q 

-.1033E-01 

-.1052E+ 01 

. 330  4E  + G0 

-•1429E+01 

-.5531E+0C 

-.1 175 E-0 1 

-•115ZE4-01 

« 6Q06E+00 

-.1584E*Q1 

-.3177E+0C 

-.1244E-01 

-•1199E+01 

. 7468E+00 

-•1657E>01 

.lUCE-15 

-•1328E-01 

-•1256E+01 

•9439E+00 

-•1744E+0 1 

TRAJ.  NO.  1 OF 

22  POINTS 

i 

XTRAJ 

YTRAJ 

ZTRAJ 

XFLOT 

YPLOT 

-•5000E+01 

0. 

-• 50  OOE  + OQ 

-• 1537E+C i 

- • 5754E+00 

-•500GE+0 1 

0. 

-•5900E+00 

-• 1537E+91 

-•5754E+0  0 

-•4525E+01 

-• 5131E-03 

-.5091E+00 

-•  1328E+Q1 

-• 5894E+00 

-.4051E*01 

-• 1049E-0  2 

-.5184E+00 

-•  1119E+0 1 

- .6039E+00 

-• 3232E+01 

-.2247 E-0  2 

-.5418E+00 

-.7575E+00 

- . 640UE  + 0 0 

-. 32Q8E+0 1 

-• 2 294E-02 

“•5425E*  00 

-.7469E+00 

-•6418E+Q0 

-• 3124E+01 

-.2  469  E-0  2 

- . 5475E+00 

-.70  96E«-0fl 

-• 6488E+00 

-.2667E+01 

-• 3726E-02 

-.5954E*00 

-.5073E*00 

-•7229E+09 

.......  **  9JC-IR  A A 

t . f" . n fi 

— II  1 1 J j 

1 


XSTART*-5.00a§0£»tt0 


OELYf  OELZ  - 
27964E-01 


YPLOT 


■•5754E  + 00 
-•5754E+00 
-.5894E+00 
*•  6C39E  + 00 
■•640QE+00 
■ • 6418E+Q0 
-.6488E+00 
-.7229E+00 
-.7729E+00 
-.8279E+08 
-.8744£*30 
-.9818E+00 

-.l026E+ai 

-.lC34E+ai 
-.1058E+01 
-.1206E  + 01 
-.1290E+01 
-.1290E+31 
-.1429E+01 
-.1584E»0i 
- •1657E+01 
-.1744E+01 


YPLOT 


'.5754E  + 80 
■.5754E+00 
••5894E  + 00 
•.6C39E+00 
■ • 640UE  + 00 
■•6418E  + 00 
» • 6483E  + 00 
•.7229E+08 

r » A — 


»nomfrfWf. .2^ 


mtecr re* uu 


-•*»ao*c*uv 


*»t  f £*t*UU 


-.2 370E+01 

-.4857E-02 

- .6633E+Q0 

-.37  50E+00 

-.8279E+00 

-.2261E+01 

-.53Q0E-02 

— .6S34E4-  00 

-.32  66E+00 

-.8744E^00 

-•2C23E+01 

-•6292E-02 

-.7  628E+Q0 

-• 22C2E+00 

-•9818E+00 

-•1926E+01 

-•6696E-02 

-•7915E+00 

-. 1772E+00 

-.1026E+01 

-.1909E+01 

-•6768E-02 

-.7966E+00 

-.1696E+00 

— .1034E+01 

j-.  1857E+01 

-.6983E-G2 

-.8  119E+00 

-.1466E+00 

-.1D58E+01 

r.l528E*0i 

-.8315E-02 

- .9078E4-00 

-.18C9E-03 

-•1206E+01 

j-.1335E4-01 

-.9064E-C2 

-.961IE+00 

•8585E-01 

-•1293E+01 

-•1335E+0 1 

-.9064E-02 

-.9618E+00 

•8565E-01 

-.1290E+01 

-• 9880E+00 

-• 1G33E-01 

-•1052E+01 

• 24C  2E  + 00 

-•1429E+01 

•• 5531E4-00 

-.1175E-01 

- .1152E+01 

• 4334E+00 

-•1584E ♦01 

-.3177E+Q0 

-• 1244E-01 

-.1199E+01 

•537SE+00 

- • 1657E+Q1 

• 1110E-15 

-.1328 £-01 

-.125€E*01 

• 6786E+00 

-.1744E+01 

i 

THETA  = 0.0 C 

PSI  = 

160.00 

DELTA  * 

3.00 

PLOT  LABEL  - THET A=Q ♦ PSI=160  • 

OELTA= 3.0 

PEHSF  * 

1.  5568E+00 

■ 

TRAJ.  NO.  1 OF 

22  POINTS 

i 

1 

XTRAJ 

VTRAJ 

ZTRAJ 

X PLOT 

YPLOT 

-.500CE+0  1 

0. 

-.50QCE+00 

-• 2129E+01 

-• 5792E+00 

••500  0E4-0  1 

0. 

-.5OOQE+0O 

-• 2129E+01 

-• 5792E>00 

-.4525E4-01 

-.5131E-33 

- • 5991E+00 

-•1839E+01 

- • 5933E+00 

-.4051E+01 

-•1049E-Q2 

- .5184E+00 

-• 1550E+01 

-.6079E+00 

-•3232E+01 

-.2 247E-02 

-.541 6E+00 

-•1G50E+01 

-.6442E+00 

*• 3208E+0 1 

- . 2 294E-0  2 

-•5429E+00 

-•  1036E+Q 1 

-•  6460  E 4-00 

-.3124E4-01 

- • 2 469E-0  2 

-.547  EE4-00 

-.9841E+00 

-.6531E+00 

^ -.2667E+01 

-.3726E-02 

-.5954E+00 

-•7048E+G0 

-.7277E4-00 

■*  — '•  2509E+0  1 

-.4305E-02 

-.6277E+00 

-• 60  76E  + 00 

-•7780E4-00 

-• 2370E+0 1 

-• 4857E-D2 

-.  663  3E*  00 

-.5223E+C0 

-•8334E+00 

-.2261E+01 

-• 5300E-02 

-.6934E4-00 

-•  4555E4-G0 

-.8802E+00 

-.2023E+01 

-.6292E-02 

- .7626E+00 

-• 30  88E+00 

-•9882E-4-00 

-•  1926E4-0 1 

-.6696E-02 

- • 791  EE-*-  00 

-. 2496E+0  0 

-.1033E+01 

-.1909E4-01 

-•6768E-02 

-.7966E+03 

-•239CE+00 

-.1041E+01 

-• 1857E+0  1 

-.6983E-02 

-.8119E+00 

-.20 73 E»00 

-.1C65E4-01 

-• 1528E«-0 1 

-• 8315E-C  2 

-.9078E-MJU 

-.  5410 E-0 2 

-.1214E+01 

-.1335E+01 

-• 9064E-02 

-.9618E+00 

• 1133E+00 

-•1298E+01 

-.1335E4-0 1 

-•9064E-G  2 

-.9618E+00 

•1133E+U0 

-.1296E+01 

-• 9880E+00 

-• 1033E-01 

“•1052E-f  01 

•3262E+00 

-.1439E+0 1 

-• 5531E+0  C 

-.1175E-81 

-.1152E4-01 

1 . 5923E+0Q 

-•1594E+01 

- • 3177E+00 

- • 1 244E-01 

-•1199E+01 

•7370E+OQ 

-.1668E+U1 

• 1110E-15 

-.1328E-01 

'-.1256E+01 

• 9315E+0Q 

1 

-.1756E+01 

TRAJ.  NO.  1 OF 

22  POINTS 

1 

f.  ' 

XTRAJ 

YTRAJ 

ZTRAJ 

X PLOT 

VPLOT 

-.5G0CE+01 

3. 

-•5000E+00 

-.1593E+01 

-45792E+00 

-.500CE+01 

0. 

r.  5000E+00 

-«1593E«-01 

-.579  2E-4-00 

-.4525E4-01 

-• 5131E-03 

-.5091E+00 

-.13  76E+01 

-•5933E+00 

-.405  IE  *01 

-•1049E-02 

“*5184E+00 

-•U60E*G1 

-^6079E4-Ofl 

-•  3232E+0 1 

-.2247E-02 

-.5418E4-00 

-.7650E+00 

-•6442E+00 

-•3208E+01 

-.22 94E-02 

-•5429E+  00 

-• 7740E+00 

-•6460E4-00 

— .3124E+01 

-.2469E-C2 

-•5475E«-fla 

-.  73  54E4-00 

-.6531E+00 

-.2667E+0 1 

-• 3726E-02 

-.5  954E+0Q 

-•5258E+C0 

-•  7277E  + 00 

-• 2509E+01 

-•4305E-D  2 

- . 627  7E+03 

-.4529E+00 

-•7780E4-00 

-.2370E+01 

— .4857E-0  2 

-.663 3E»00 

-4  3868E+00 

-.8334E+00 

-• 2261E+01 

-• 5330E-G  2 

-•6934E+00 

-•  3387E*-C0 

-.8802E400 

-• 2023E+0 1 

-.6292E-C2 

- .762  5E+  00 

-• 2285E+Q0 

-.9882E4-00 

-• 1926E+0 1 

-• 6696E-0  2 

- • 7915E+00 

-.1840E+00 

-.1033E+01 

i^urctui, 

-•PTOOt*aC 

-.if  ClCTUIj 

•'.lU  + lC  + Ui 

4. 1857E+0 1 

-.6983E-02 

-•8119E+00 

-• 15226+00 

-.1065E+01 

4* 15286+01 

-.8315E-02 

-•9C78E+  00 

-• 5852E-03 

-.12146+01 

- • 1335E+01 

-.9064E-02 

-•9618E+fliJ 

•8853E-01 

-.1298E+01 

+• 1335E+Q  1 

-.9064E-02 

- .96186+00 

• 8853E-0 1 

-.1298E+01 

+ .988CE  + 0 ( 

-•  1033E-01 

-.105  26+01 

.24646+00 

-.1439E+01 

-.5531E+00 

-•1175E-01 

-.1152E+Q1 

.44856+00 

-.1594E+01 

-.3177E+00 

-.1244E-01 

-.11996+01 

.55666+00 

-.16686+01 

• 111  BE -15 

-•1328E-01 

-.1256E+01 

.70  256  + 00 

-.1756E+01 

THETA  = 0.00 

PSI  = 

160.00 

DELTA  * 

in 

• 

CM 

PLOT  LABEL  - TH£TA*0,  PSI=160» 

OELT  A»2.  5 

PEMSF  = 

1.5672E+00 

TRAJ.  NO.  1 OF 

22  POINTS 

? 

XTRAJ 

YTRAJ 

ZTRAJ 

XPLOT 

YPLOT 

-• 5900E+0 i 

0. 

-•500CE+00 

-• 2099E+01 

-.5831E+00 

-•5008E+Q  3 

9. 

-•500GE+00 

-.20996+01 

-•5831E+00 

-•  452  5E+0 1 

-• 5131E-93 

-.5091E+00 

-.1814E+B1 

-•5973E+00 

-.4C51E+01 

-. 1049E-92 

-•5184E+S0 

-. 1529E+01 

-.6119E+00 

-.3232E+01 

-.2247 £-02 

-•5418E+00 

-.10  3 6E  + 0 1 

-• 6465E+09 

-.3208E+01 

-.2  294E-C  2 

-•542SE+00 

-.10216+01 

-•6504E+00 

-• 3124E+01 

-.2469 E-C  2 

-.5475E+0Q 

-.97036+00 

-.65756+00 

-• 2667E+Q 1 

-• 3726E-#  2 

- .5954E+00 

-•  69486+30 

-.7326E+00 

-•2509E+01 

-.4305E-C2 

-.6277E+Q0 

-•5990E+00 

-•7833E+00 

-.237CE+01 

-•4857E-3  2 

- . 6633E  + 00 

-• 5148E+00 

-.6390E+00 

-• 2261E+0  1 

-.5300E-C2 

-•  6934E  + 03 

-.4490E+00 

-.8861E+00 

-.2023E+Q1 

-•6292E-0  2 

-.76  2 8E+00 

-.30  43E+00 

-•9949E+00 

-• 1926E+0 1 

-.6696E-D2 

- .7915E+0C 

-.24596+00 

-.1040E+01 

vi  -.19096+01 

-• 6768E-02 

-.7966E+Q0 

-• 2355E+0  0 

-• 1046E+01 

w -•  1857E+01 

-.6983E-02 

-.8119E+00 

-•2041E+00 

-•1C72E+01 

-.1528E+01 

-• 8315E-02 

- .9078 E+ 00 

-.5043E-02 

- . 1222E+0 1 

-.1335E+01 

-• 9064E-G2 

-• 9618E+00 

.11296+00 

-•1307E+01 

- • 133  5E  + 01 

-.9064E-02 

-.9618E+00 

• 11206+00 

- .130  7E  + 0 1 

-.98806  + 00 

-.1933E-01 

-.1052E+01 

• 3223E+Q0 

-•1449E+01 

-.55316+00 

-• 1 175E-G1 

-.1152E+01 

•5849E+60 

-.1605E+01 

-.3177E+00 

-.1244E-01 

- .1 199E+01 

.727 IE +00 

- .16796+0 1 

• 1UGE-15 

-•1328E-01 

-•1256E+Q1 

.91896+00 

-.1768E+0 1 

TRAJ.  NO.  1 OF 

22  POINTS 

XTRAJ 

YTRAJ 

ZTRAJ 

XPLOT 

YPLOT 

-.5000E+01 

0. 

-•5000E+00 

-•1649E+01 

-.56316+00 

-•  50006+01 

0. 

-•590GE+03 

*• 1649E+C 1 

-.58316+30 

-.45256+01 

-.5 131E-03 

-.509 IE* 00 

-• 1425E+0 1 

-.5973E+00 

4. 40  51E  + Q 1 

-• 1049E-0  2 

-•5184E+00 

-.12016+01 

-.6119E+00 

-.3232E+01 

-. 2247E-02 

-.541 66+00 

-*8129E+00 

-• 6465E  + 0 0 

-• 3208E+01 

-• 2294E-Q  2 

-•5429E+0Q 

"•80 156+00 

-•6504E+00 

3124E+01 

— • 2469E-0  2 

-.5475E+09 

-. 7615E+00 

-.6575E+G0 

-.2667E  + 01 

-•3726E-0  2 

-.5954E+00 

-• 54466+00 

- • 7326E  +00 

-.25996+01 

-• 4335E-0  2 

-•6277E+00 

-.46916+00 

-.78336+00 

-.237  06  + 01 

— .4857E-G 2 

- • 6S33E+  00 

-.40  28E+00 

- .8393E+09 

-• 2261E+01 

-•5390E-G  2 

-.6934E+Q9 

-•3509E+00 

-.8661E+00 

-.2023E+C1 

-.6292E-S2 

— .7628E+08 

-• 23  69E+0  0 

-.99496+00 

- • 1 9 2 6E  ♦ 0 1 

-•6696E-02 

-.791  EE+GO 

-.19086+00 

-.10406+01 

-• 19O9E+01 

-.6768  E-0  2 

-.79666+00 

-.18266  + 0 0 

-.1C48E+01 

-• 1857E+0  1 

-•6983E-0  2 

-.8 119E+00 

-•1579E+00 

- .107  26  + 01 

- .15286+0  1 

-.8  315E-0  2 

-.9078E+Q0 

-.99496-03 

- • 122  26  + 0 1 

-. 1335E+0 1 

- • 9064E-0  2 

- .96186+00 

.91246-01 

- .1 30  7E  + 0 1 

- . 13356+0  1 

-• 9064E-0  2 

-• 9618E+  09 

.91246-01 

-.1307E+01 



. - A * +■ 

• ~300UC  f UU 

• 5531E+0  6 

• 3177E  + 0 0 
•illOE-15 


"•  lUJOC'tll 

-.1175E-C1 

-.1244E-01 

-•1328E-01 


-•U52E+01 

-.1199E+01 

-.1256E+01 


• CfCTV U 

• 4638E+0  0 
• 5758E+QQ 
•7268E+00 


••1605E+3 1 
-.1679E+01 
-.1768E+01 


CODE  LISTINGS 
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ooooc3oooooooooooooo 


program  paoxc 


74/74  CPT  = 2 


FTN  **• 


C2/28/80  2P.35.il 


/?crl.£sv?;  *f!r"G!  *pR0S*  ifrm, 


IPICT,  ICRT 


lPKp?r  P?^i,NTPUT*TAP^’  TAPE5-INPUT,  OUTPUT. 

. TAPE9,  TAPE39,  PUNCH,  TAPtl=PUNCH> 

H.  G.  NORMENT,  ATMOSPHERIC  SCIENCE  ASSOCIATES  - NO  MEMBER  i*79 
THIS  COOE  HAS  THREE  PRINCIPAL  USES  - 

I:  '"“3-M«^!yuco^0;N^FJJ^jESCSIPIIOk 

' v Sg m 2a| f Ue ot  £lE’’CI"  °',a  ,0  UNIT’4  r°*  “»« 

fSS^^SS?  *1%  *?S5*h5S^SS; 

smith  first  ouipG?  u.s?  !t!«  5S  fit-  "EEMENTS  ANC  ^ hess- 

TRUE).  OATA  ALSO  MAY  3F  PLnTT-nC<roInt  5AV  Bt  PR1NTE0  <IPRNT= 
DATA  ARE  WRITTfN  ON  TO  UNIT  9 WHICH  IN  ANV  CASE  IHE 

**  SR  STEREO  WHIG H^PL OTS^THE ^BOOY ^AL ONG^NI TH^TRA JtCTCR IE S«  EA*  E^ 

COMMON  HEOR  < 15),  NQUAD, 

1 IPICT , ICRT,  SINA,  COSA, 

2 ZTRANS 
REAL  MACH 

LOGICAL  IPKOS,  IPUNCH,  IPRNT, 

COMMON  /7/  MACH,  BETA,  RBETA 
R{AO  IN  CONTROL  DATA 

KMACHt  KflS£ 

IF(KMACH  ,NE.  c>  RE  AO ( 5, b)  MACH 
b FORMAT  (FiO.E) 

BE'A  = SCRT,1,C  * M4CH  » MACH) 

RBETA  = i.C  / BETA 

..oo  ?us;?:s;j:,ip"os*  ipum:h- 

IM  IPRO!  ) READ ( 5 . TO UO ) ANGLE, 

1 YTRANS,  ZTRA)S 
7000  FORMAT ( 7F JC. 0 ) 

IF  I . NOT,  I FRO  S)  GC  TO  53 
IFCXSCALE  .EC.  0.0)  XSCALE=1.0 
IUVSCALE  .EQ.  U.  d>  YSCALE=l.  0 
IFCZSCALE  .EQ,  0,0)  2SCALE=l.d 
COSA  = COSI  0«0174533  * ANGLc) 

REWIND  eIN<  °-017A533  * AN6LE> 

REWINO  9 
CALL  PINPUT 

IF* I PICT  » CALL  PICTUR 

» CALI  FRAME  (0.5,0 
•ANO,  .NOT,  I3RTI 
• *NO.  .NOT.  12 RT I „„w 
•AND. ICRT)  CALI  ENOFlT 


PBOXC 
PBOXC 
PBOXC 
F6CXC 
PBOXC 
PBCXC 
PBCXC 
PBOXC  . 
FBCXC  10 
PBOXC  11 
PBCXC  12 
PBOXC  13 
PBCXC  14 
APBCXC  15 
PBOXC  16 
PBCXC  17 
PBCXC  18 
PBCXC  19 
PBOXC  20 
FBCXC  tl 
PBCXC  22 


i 

9000 


IPICT,  ICRT 


XSCALE,  Y SCALE , ZSCALE .XTRANS, 


5 f 


IF!  ICRT 
IF* IPICT 
IFIIPICT 
IF* IPICT 
REMIND  9 
STOP 
£ 10 


.5) 

CALL  PLOT! 15*0, 
CALL  ENOCC 


iua,-j  > 
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. FBCXC 

23 

FBCXC 

24 

FBCXC 

25 

PBCXC 

26 

FBCXC 

27 

PBCXC 

26 

PBCXC 

29 

PBOXC 

30 

FBCX  ( 

31 

FBOXC 

32 

PBOXC 

33 

FBCXC 

34 

PBCXC 

35 

FBCXC 

36 

FBOXC 

37 

FBCXC 

36 

PBCXC 

39 

PBOXC 

40 

FBCXC 

41 

PBOXC 

42 

FBCXC 

43 

PBCXC 

44 

PBCXC 

4 5 

PBCXC 

46 

P6CXC 

47 

FBCXC 

46 

PBOXC 

49 

PBCXC 

50 

FBCXC 

51 

PBOXC51A 

FBCXC 

52 

PBCXC 

53 

FBCX  C 

54 

FBCXC 

55 

PBOXC  1 

56 

noon  no  on  non o o o o o 


r 


♦DECK,  PEAOER 

SU9R0UTINE  PEADER 

COMMON  HEOR ( 15),  NQUAD,  KASE,  NSYM,  IFLAG,  IPROS,  IPUNCH,  IPRNT 

1 IPICT,  ICRT,  SINA,  COSA,  XSCALE,  YSCALE,  ZSCAlE  , XTRANS,  YTRANS 

2 ZTRANS 

LOGICAL  IPROS,  I PUNCH,  IPRNT,  IPICT,  ICRT 
DATA  IP AGE/OX 

1 FORMAT  l 1H1,  4X,  14H  PROGRAM  PBCXC,  15X,  30HATMOSPHERIC  SCIENCE 
1S0CIATES/  38X  , 22H8EOFORD,  MASSACHUSETTS,  22X,  4HPAGEI 

2 7X , 8H  BODY  ID.,  2X,  A4/  30X,  15A4) 

10  IP AGE  * IPAGE  ♦ 1 

WRITE  (6,1)  IPAGE,  KASE,  (HEOR( I) ,1=1, 15) 

RETURN 

END 


PEAO  1 
PEAO  2 
, PEAO  3 

, PEAO  4 

PEAO  5 
PEAO  6 
PEAO  7 
ASPEAO  8 
5/PEAO  9 
PEAO  10 
PEAO  11 
PEAO  12 
PEAO  13 
PEAO  14 


♦DECK,  PATPROS 

SUBROUTINE  PATPROS ( X,  Y,  Z,  XX,  YY,  ZZ  ) 

THIS  IS  A SIMPLE  SCALING  ANO  ORIGIN  TRANSLATION  CODE  FOR  THE 
DOUGLAS  BO XC  POTENTIAL  FLOW  CODE  DATA  INPUT 

XTRANS,  YTRANS,  ZTRANS  ARE  ORIGIN  TRANSLATIONS 
XSCALE,  YSCALE,  ZSCALE  ARE  SCALE  FACTORS 
THE  CODE  ALSO  ALLOWS  FOR  ROTATION  IN  THE  X - Z PLANE  TO  ADJUST 
FOR  ARBITRARY  ANGLE  OF  ATTACK 

SINA,  COSA  ARE  SINE  AND  COSINE  OF  ANGLE 

ANGLE  IS  THE  ANGLE(  INPUT  IN  DEGREES)  THAT  THE  AIRPLANE  AXIS 
MAKES  WITH  THE  NEGATIVE  X AXIS  (POSITIVE  COUNTERCLOCKWISE 
FROM  THE-X  AXIS)  AFTER  SCALING  ( NOTE  - AFTER  SCALING  THE 
AIRPLANE  NOSE  POINTS  DOWN  THE  NEGATIVE  X AXIS) 

THIS  VERSION  FOR  USE  WIT  N P80XC 


LOGICAL  IPROS,  IPUNCH,  IPRNT,  IPICT,  ICRT 

COMMON  HEDR(  15),  NQIAD,  KASE,  NSYM,  IFLAG,  IPROS*  IPUNCH,  IPRNT, 

1 IPICT,  ICRT,  SINA,  COSA,  XSCALE,  YSCALE,  ZSCALE,  XTRANS,  YTRANS, 

2 ZTRANS 

X = ( X - XTRANS  ) * XSCALE 

Y » ( Y - YTRANS  ) * YSCALE 

t * ( Z - ZTRANS  ) * ZSCALE 

X'X*  ( XX-  XTRANS  ) * XSCALE 

YY*  ( YY-  Y IRA  NS  ) * YSCALE 

ZZ*  ( ZZ-  ZTRANS  ) * ZSCALE 
XP  * X 

X = XP  * COSA  - Z * SI fA 

Z * XP  * SINA  * l * COSA 

XP  = XX 

XX*  XP  * COSA  - ZZ*  SINA 

ZZ*  XP  * SINA  ♦ ZZ*  COSA 

RETURN 
END 
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PA  TP 
PA  TP 
PA  TP 
PA  TP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 
PATP 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 


ooo 


♦DECK*  PINPUT  PI NP 

SUBROUTINE  PINPUT  PINP 

PINP 

PROCESSES  THE  HESS-SMITH  COOE  INP'JT  OATA  PINP 

PINP 

REAL  NX,  NY,  NZ  , MACH  PINP 

LOGICAL  IPROS,  IPUNCH,  IFRNT , IPI3T,  ICRT,  RFLAG , AFLAG,  3 FLAG  PINP 
INTEGER  STAT,  STATT,  CCNV  PINP 

COMMON  HEOR ( 15),  NQLAD,  KASE,  NSYM,  IFLAG,  IPROS,  IPUNCH,  IFRNT,  PINP 

1 IPICT,  ICRT,  SINA,  CCS  A,  XSCALE,  Y SCALE,  ZSCALE,  XTRANS,  YTFANS,  PINP 

2 ZTRANS  PINP 

COMMON  /M/  MACH,  BETA,  ReETA  PINP 

DIMENSION  SPH  ( 200  ),  CPH  ( 203  )«  XINP  (200  ),  ZINP  ( 200  ) PINP 
DIMENSION  LAXISI8),  RAXIS(6),  L45(6),  L €51  PINP 

DIMENSION  XA  ( ECO  ),  XB  ( 500  ) , YA  ( 500  >,  YB  ( 500  ) , PINP 

1 ZA  ( 500  )♦  Z3  ( 500  ),  NL I NE  ( 5 0 0 ),  NLT  ( 500  ),  CFLAG  (3 ) , PINP 

2 XI  (4),  ETA  (4),  XIN  (4),  YIN  (4),  ZIN  (4),  PINP 

4 RX  (4) , R (4),  RY  (4)  PINP 

EQUIVALENCE  ( NULL, NQllA 0)  PINP 

OATA  CFLAG  / 2H  i,  2H  2,  2H  / PINP 

OATA  PI/3,  141593E0/,  HAFPI/i. 570736EC/,  EPS/. 0001/  PINP 

OATA  LAXIS  / 4HVIEW,  4H  CF  , 4HB00Y,  4H  LOO,  4HKING,  4H  OOW,  PINP 

1 4HN  TH,  1HE/  PINP 

OATA  RAXIS/  4H  AXI  , 4HS  TO,  4HW AR3, 4H  THE,  4H  0RI,  4HGIN  / PINP 

OATA  L4  5/  4H45-0,  4HEGRE , 4 HE  VI,  4HEW  F,  4HROM  , 4HTHE  / PINP 

OATA  R4  5/  4HSIOE/,  L/5*4H  / PINP 

OATA  PLUSX,  MINUSX,  FLUSY,  MINUSY,  PLUSZ,  MINUSZ  PINP 

1 / 4H  ♦X  , 4H  -X  , 4H  ♦ V , 4H  -Y  , 4H  ♦Z  , 4H  -Z  / PINP 

1 FORMAT  ( 3E10.0,  12  / 3F10.0,  12)  PINP 

4002  FORMAT  ( 1H0,  6X  5 FN  M,  7X,  4 ( 1HX,  11X  ),  2HNX,  11X,  3HNFX,  PINP 

1 11X,  1HO  / 1 9X , 4 ( 1HY,  11X  ),  2HNY , 11X,  3HNPY , 11X,  1HT  / PINP 

2 19X,  4J1HZ,  11X  ),  2HN2,  11X,  3MNPZ,  11X,  1HA  ) PINP 

4005  FORMAT  MHO,  7X,  14,  4F12.6,  2F13.6,  E14.4, A2/C 12X,  4F12.6,  PINP 

1 2F13.6,  E14.4  ) ) PINP 

4010  FORMAT  ( 1H0,  3X , 214,  4F12.6,  2F13.6,  E14.4.A2/ (12X , 4F12.6,  PINP 

1 2 F 1 3 • 6 , E14.4  ) ) PINP 

4015  FORMAT  ( 1H0,  3 ( 20 X,  12H************  ))  PINP 

PINP 

C INPUT  — SECTION  9.1  INPUT  SCHEME  PINP 


40 

54 

55 

56 

57 

5ie 

59 

61 

21 


A M E T R I C 


KLCT  = 0 
NULL  = 0 
NPRT  = 13 
CALL  PEADER 
WRITE  (6,  40) 

FORMAT  (1H0»16X, 44HP  A R 
IF  (NSYM  - 1)  54,  56,  58 

WRITE  (6,  55) 

FORMAT  (1H0 ,16X , 21MN  C SYMMETRY  SPECIFIEO) 

GO  TO  61 
WRITE  (6,  57) 

FORMAT  (1H0  ,16X, 30HTHERE  IS  ONE  P.ANE  OF  SYMMETRY) 
GO  TO  61 

WRITE  (6,  59)  NSYM 
FORMAT  (1H0,16X,9HTHERE  ARE, 12, 

IF  ( MACH  .NE.  0.0  ) WRITE  (6, 

FORMAT  (1H0 * 16X, 13HMACH  NUMBER 
IF  (IFLAG  .EQ.  0 ) GO  TO  29 
READ  (5,  20)  NLM1,  MMIN,  B,  C 
IF  (B  .EQ.  0.0)  B = 1.0 
IF  (C  .EQ.  0.0)  C = 1.0 


INFORMATIC 


19H  PLANES 
21)  MACH 
*,F1Q«5) 


OF  SYMMETRY) 


PINP 
PINP 
PINP 
PINP 
PINP 
N//)  PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
• PINP 
PINP 
PINP 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 
4C 

41 

42 

43 

44 

45 

46 

47 
46 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 


80 


20 

FORMAT  ( 215,  2F10.5  > 

PINP 

61 

4 

FORMAT  C 8F10.0  ) 

PI  NP 

62 

WRITE  (6,  62)  NLM1,  PM I N,  8,  C 

PINP 

63 

62 

FORMAT  (1H0,16X,  10HGENERATE  A, 13, 

2H  X,I3,  12H 

SPHERE.  B = , F10  .5  , PINP 

64 

1 

. 4X.3HC  =,F10.5  ) 

PINP 

65 

MLINES  * NMIN  ♦ 1 

PINP 

66 

NLINES  = NLM1  ♦ 1 

PINP 

67 

N = 0 

PI  NP 

68 

IF  ( NSYM  .EQ.  0 ) 60  TO  2 

PINP 

69 

IF  ( NSYM  - 2 ) 3,5,6 

PINP 

70 

2 

PITH  = PI 

PINP 

71 

PIPHI  s PI  ♦ PI 

PINP 

72 

GO  TO  7 

PINP 

73 

3 

PITH  * PI 

PINP 

74 

PIPHI  = PI 

PINP 

75 

60  TO  7 

PINP 

76 

5 

PITH  = PI 

PINP 

77 

PIPHI  = HAFPI 

PINP 

78 

GO  TO  7 

PINP 

79 

6 

PITH  * HAFPI 

PINP 

80 

PIPHI  = PITH 

PINP 

81 

7 

SPH  ( MLINES  ) = SIN  1 PIPHI  ) 

PINP 

82 

SPH  C 1 1 * 0.0 

PINP 

83 

CPH  C MLINES  ) * COS  t PIPHI  ) 

PINP 

84 

CPH  ( 1 ) * 1.0 

PINP 

65 

EKM  = MMIN 

PINP 

86 

EKN  = NLM1 

PINP 

87 

EMM  = 0.0 

PINP 

88 

00  8 1=2,  MMIN 

PINP 

89 

EMM  = EMM  ♦ 1,9 

PINP 

90 

PHI  = EMM  / EKM  ♦ PIFHI 

PINP 

91 

SPH  ( I ) s SIN  ( PHI  ) 

PI  NP 

92 

6 

CPH  Clli  COS  C PHI  ) 

, PINP 

93 

IF  C IFLAG  .EQ,  2 ) GO  TO  10 

PINP 

94 

ENN  = 1,0 

PINP 

95 

00  9 I = 1,  MLINES 

PINP 

96 

XA  C I 1 = 1,0 

PINP 

97 

YA  (I  I = 0.0 

PINP 

98 

9 

ZA  1 I ) a 0.0 

PINP 

99 

60  TO  18 

PINP 

100 

10 

REAO  ( 5,  4 ) ( XIKP  < I ),  ZINP  < 

I ) » 1 = 1, 

NLINES  ) PINP 

101 

00  11  I = 1,  MLINES 

PINP 

102 

XA  1 I ) = XINP  ( 1 I 

PINP 

1C3 

YA  Cl  > = 8 * ZINP  < 1 ) * SPH 

( 

I ) 

PINP 

104 

ZA  Cl  I = - C ♦ ZINP  ( 1 ) * CPH 

( I ) 

PINP 

105 

XB  1 I ) = XINP  C 2 ) 

PINP 

106 

YB  ( I ) = 8 * ZINP  ! 2 ) * SPH 

t 

I ) 

PINP 

1B7 

11 

ZB  ( I 1 * • C * ZINF  < 2 1 ♦ CPH 

1 I 1 

PINP 

106 

NLCT  = 2 

PINP 

109 

GO  TO  250 

PINP 

110 

12 

00  14  I = 1,  MLINES 

PINP 

111 

XA  t I ) = XB  ( I ) 

PINP 

112 

YA  f I I = YB  C I ) 

PINP 

113 

14 

ZA  ( I ) - ZB  ( I ) 

PINP 

114 

IF  I IFLAG  ,EQ.  1 ) GO  TO  16 

PINP 

115 

NLCT  = NLCT  ♦ 1 

PINP 

116 

00  15  I = 1,  MLINES 

PINP 

117 

XB  1 I ) « XINP  C NLCT  ) 

PINP 

118 

YB  1 I ) - a * ZINP  1 NLCT  ) * 

SPH  C I ) 

PINP 

119 

15 

ZB  « I t » - C * ZINP  < NLCT  ) 

CPH  C I ) 

PINP 

120 

81 


GO  TO  2 50 

PINP 

121 

16 

ENN  = ENN  + 1.0 

PINP 

122 

18 

THETA  = ENN  / EKN  * PITH 

PINP 

123 

STH  = SIN  ( THETA  ) 

PINP 

124 

CTH  = COS  ( THETA  ) 

PINP 

125 

DO  17  I = 1,  MINES 

PINP 

126 

XB  ( I ) = CTH 

PINP 

127 

YB  C I ) = 8 * STH  * SPH  < I ) 

* 

PINP 

128 

17 

ZB  1 I ) = - C ♦ STH  ♦ CPH  I I I 

PINP 

129 

GO  TO  2 50 

PINP 

130 

29 

N = -1 

PINP 

131 

IF  (IPROS)  WRITE 4 6,10  1) 

PINP 

122 

IF(IPROS)  WRITE  (6* 102)  XSCALE,  YSCALE,  ZSCALE*  XTRANS,  VTRANS,  PINP 

133 

1 ZTRANS  , COSA,  SINA 

PINP 

134 

IF(IPICT)  WRITE! 6, 103) 

PINP 

135 

IF(IPUNCH)  WRITE ( 6,104) 

PINP 

136 

C 

PINP 

127 

101 

FORMAT ( 1H0»  16X,  61HINPIT  OATA  ARE 

PROCESSEO  BY 

SCALING,  ROTATI  hS PINP 

138 

1 AMO  TRANSLATING) 

PINP 

139 

102 

FORMAT ( 18X,  58HXSCALE,  YSCALE*  ZSCALE  , XTRANS, 

YTRANS , Z<ANS»  COPINP 

140 

ISA,  SINA/  15X,  8 4 1PE  14.4  )) 

PINP 

141 

103 

FORMAT 4 1H0 » 16X,18HFLOTS  ARE  PREPARED) 

PINP 

142 

104 

FORMAT  4 1H0,  16X,  16H0ATA  ARE  FUN3HE0) 

PINP 

143 

XMIN  = 1.0E6 

PINP 

144 

XMAX  = -1.  0E6 

PINP 

145 

YNIN  = 1.0E6 

PINP 

146 

YMAX  = -1.0E6 

PINP 

147 

ZMIN  = 1.  0E6 

PINP 

148 

ZMA  X = -1.0E6 

PINP 

149 

GO  TO  50 

PINP 

150 

30 

IF  ( RFLAG  ) GO  TO  50 

PINP 

151 

RFLAG  = .TRUE. 

PI  NP 

152 

X = XX 

PI  NP 

153 

Y = YY 

PINP 

154 

Z = ZZ 

PINP 

155 

STAT  = STATT 

PINP 

156 

GO  TO  66 

PINP 

157 

50 

RFLAG  = .FALSE. 

PINP 

158 

51 

RE AO  ( 5,  1 > X,  Y,  Z,  STAT,  XX,  YY 

, ZZ,  STATT 

PINP 

159 

IF  ( IPROS  ) CALL  FA  TPRO  S ( X,  Y,  Z, 

XX,  YY,  ZZ  ) 

PINP 

ieo 

IF ( IPUNCH  ) WRITE (1, 5100)  X,  Y,  Z,  STAT,  XX,  YY, 

ZZ,  STATT  PINP 

161 

5100 

FORMAT  4 3 t F10.7),  12/  3(  F10.7), 

121 

PINP 

162 

WRITE  (9)  X, Y,Z, STAT, XX, YY.ZZ, STATT 

PINP 

163 

C 

PINP 

164 

64 

XMIN  = AMIN1CXHIN,  X * RBETA) 

PINP 

165 

YMIN  = AMIN1C  YMI  N»  Y) 

PINP 

166 

ZMIN  = AMI N1 ( ZMI N»  Z) 

PINP 

167 

XMAX  = AMAX1CXMAX,  X * REETA) 

PINP 

168 

YMAX  = AMAXK  YMAX,Y) 

PINP 

169 

ZMAX  = AMA  XI  (ZMA  X,  Z) 

PINP 

170 

IF ( ST  AT  .EQ.  3)  GO  TO  164 

PINP 

171 

XMIN  = AMIN1CXMIN,  XX*  REETA) 

PINP 

172 

YMIN  = AMIN  1CYMIN,  YY) 

PINP 

173 

ZMIN  = AMI N1 C ZMI N, ZZ ) 

PINP 

174 

XMAX  = AMAX1 (XMAX , XX*  RBETAI 

PINP 

175 

YMAX  = AMAXK  YMAX,  YY) 

PINP 

176 

ZMAX  = AMAXK  ZMA  X,  ZZ  ) 

PINP 

177 

164 

IF ( NSYM  .EQ.  0 ) GO  TO  65 

PINP 

178 

YMIN  = AMINil  YMIN,  -Y> 

PINP 

179 

YMAX  = AMAXK  YMAX,  -Y) 

PINP 

180 

82 


IFCSTAT  .EQ.  3)  GO  TO  16E 
VMIN  = AHIN1(  YMIN,  -YY) 

YMAX  = AMAXH  YMAX,  -YY) 

165  IF < NS YM  • EQ*  1 ) GO  TO  65 
ZNIN  = AMINH  ZMIN,  -Z) 

ZHAX  = AHAX1C  ZMAX,  -Z) 

IF (STAT  .EQ,  3)  GO  TO  65 
ZMIN  = AMINH  ZMIN,  -ZZ) 

ZMAX  = AMAX1I  ZMAX,  -ZZ) 

65  IF  (N  • EQ.  ( -1)  ) GO  TO  80 

66  IF  (STAT  «EQ.  0 .OR.  STAT  .EQ. 
IF  ( STAT  .EQ.  2 ) GO  TO  200 
IF  ( .NOT.  AFLAG  ) GC  TO  200 
MC  = M 

80  M = 1 

IF  ( STAT  .EQ.  2 ) GO  TO  150 
IF  ( .NOT.  8FLAG  ) GO  TO  84 
75  00  81  J = 1,  MC 

XA  ( J ) = X8  ( J ) 

YA  ( J ) = YB  ( J ) 

8 1 ZA  f J ) = ZB  ( J 1 

83 XB  l 1 ) = X 

Y3  ( 1 ) = Y 

Z3  ( 1 ) = Z 

GO  TO  30 

84  IF  ( AFLAG  ) GO  TO  85 
BFLAG  = .TRUE. 

GO  TO  75 

85  AFLAG  = .FALSE. 

GO  TO  83 

150  AFLAG  s .TRUE. 

BFLAG  = .FALSE. 

IF  (N  .EQ. (-1) IN  = 0 
160  XA  ( M ) = X 
YA  ( M ) = Y 
ZA  ( M ) = Z 
GO  TO  3 0 
180  M s M ♦ 1 

IF  ( AFLAG  ) GO  TO  160 
XB  (M  ) = X 
YB  ( M ) = Y 
ZB  I M ) = Z 

IF  ( STAT  .NE.  3 ) GO  TO  30 
200  MMIN  = MINO (M,  MC)  - 1 
MC  = M 

250  N = N ♦ 1 

KLCT  = KLCT  ♦ 1 

IFC  .NOT.  IPRNTI  GO  TO  2100 


PINP  181 
PI NP  182 
PI NP  163 
PINP  184 
PI  NP  185 
PINP  186 
PINP  187 
PINP  188 
PINP  189 
PINP  190 

31  GO  TO  180  PINP  191 

PINP  192 
PINP  193 
PINP  194 
PINP  195 
PINP  196 
PINP  197 
PINP  198 
PINP  199 
PINP  200 
PINP  201 
PINP  202 
PINP  2Q3 
PINP  204 
PINP  20  5 
PINP  206 
PINP  20  7 
PINP  208 
PINP  209 
PINP  210 
PINP  211 
PINP  212 
PINP  213 
PINP  214 
PIMP  215 
PINP  216 
PINP  217 
PINP  218 
PINP  219 
PINP  220 
PINP  221 
PINP  222 
PINP  223 
PINP  224 
PINP  225 
PINP  226 
PINP  227 
PINP  228 
PINP  229 
PINP  230 
PINP  231 
PINP  232 
PINP  233 
PINP  234 
PINP  235 
PINP  236 
PINP  237 
PINP  236 
PINP  239 
PINP  240 


C BEGIN  COMPUTATION  OF  NULL  POINTS  AND  28  QUANTITIES 

00  2900  I = 1,  MMIN 
NULL  = NULL  ♦ 1 
XIN(l)  = XAC  I I * RBETA 
XI NI2)  x XA (14-11  * RBETA 
XlN (3 ) * XB  (I+D  * RBETA 
XINI4)  x XBI  I 1 * RBETA 
VIN(I)  * YAII) 

YIN (2)  x YACI+1) 

YIN(3)  * YB(I+1» 


83 


c 

c 


c 

c 


c 

c 


c 

c 


c 

c 


YIN (4) 
ZlN(i) 
ZIN(2) 
ZIN C3) 
ZINC4) 


YBCI) 

zacii 

ZA CI+1J 
ZB CI  + 1) 
ZB  (I ) 


FORM  OIAGONAL  VECTORS 
E CUATION  ( 64  ) 

TiX  * XINC  3 1 - XINC1) 

T2X  = X INC  4)  - X IN  C2 ) 

TlY  s Y INC  3 > - YIN (1 ) 

T2Y  = YINC4)  - YIN ( 2) 

T1Z  = ZINC  3)  - ZINCI) 

T2Z  = Z INC  4 1 - ZINC2) 

FORM  CROSS  PROOUCT  N = T2  XT! 
EQUATION  C 65  ) 


NX  = T2Y*T1Z  - T1Y*T2Z 
NY  = T1 X*T2Z  - T2X  *T1Z 
NZ  = T2X*T1Y  - T1X*T2Y 
VN  = SORT  C NX*  NX  ♦ 


NY*  NY  ♦ NZ*  NZ  ) 


FORM  UNIT  NORMAL  VECTOR 
EQUATION  C 66  ) 

NX  = NX  ✓ VN 
NY  = NY  / VN 
NZ  = NZ  / VN 

COMPUTE  AVERAGE  POINT 
EQUATION  C 68  ) 

AVX  = ,25  * f XI N Cl ) ♦ XINC2I  + XINC3)  ♦ XINC4)  I 

AVY  = .25  * C YINC1)  ♦ YIN  C 2)  ♦ YINC3)  ♦ YINC4)  I 

AVZ  = .25  * C ZINCI)  ♦ ZINC2)  ♦ ZINC 3)  ♦ ZINC4)  I 

COMPUTE  PROJECTION  DISTANCE 
EQUATIONS  C 69  ) AND  C 71  ) 


0 = NX* C AVX  - XIMl)  ) ♦ 

PD  = ABSC  D ) 

C EQUATIONS  C 73  ) AND  C 74  ) 

T = SQRT  C T1X*T1X  ♦ T1Y*T1Y  ♦ TlZ*TlZ  ) 

TIX  = TIX  / T 
TlY  = TlY  / T 
T1Z  = T1Z  / T 

C EQUATION  C 75  I 

T2X  = NY*T 1Z  - NZ*T1Y 
T2Y  = N Z*T IX  - NX*T1Z 
T2Z  = N X*T  1Y  - NYM1X 

C COMPUTE  COORDINATES  OF  CORNER  POINTS  IN  REFERENCE  COORD.  SYSTEM 
C EQUATION  C 72  ) 


PINP  241 
PINP  242 
PINP  243 
PINP  244 
PINP  245 
PINP  246 
PINP  247 
PINP  248 
PINP  2 49 
PINP  2 50 
PINP  251 
PINP  2 52 
PINP  253 
PINP  254 
PINP  255 
PINP  2 56 
PINP  2 57 
PINP  258 
PINP  259 
PINP  2 60 
PINP  2 61 
PINP  262 
PINP  263 
PINP  264 
PINP  2 65 
PINP  266 
PINP  2 67 
PINP  268 
PINP  269 
PINP  2 70 
PINP  2 71 
PINP  2 72 
PINP  2 73 
PINP  274 
PINP  2 75 
PINP  276 
PINP  277 
PINP  278 
PINP  2 79 
PINP  280 
PINP  281 

NY*  C AVY  - YIN  Cl ) I ♦ NZ* CAVZ-ZINC1)) PINP  282 

PINP  283 
PINP  284 
PINP  2 65 
PINP  2 86 
PINP  287 
PINP  288 
PINP  289 
PINP  290 
PINP  291 
PINP  292 
PINP  293 
PINP  294 
PINP  295 
PINP  296 
PINP  297 
Pi NP  298 
PINP  2 59 
PINP  300 
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OO  10C0  J = 

It  4 

XP  = 

XIN(J) 

♦ NX 

D 

YP  = 

YINIJ) 

♦ NY 

¥ 

O 

ZP  = 

ZIN(J) 

♦ NZ 

¥ 

O 

0 * 

- D 

XOIF 

= XP  - 

AVX 

YDIF 

S YP  - 

AVY 

ZOIF 

= ZP  - 

AVZ 

C TRANSFORM  CORNER  POIN1S  TO  ELEMENT  COORDINATE  SYSTEM  ( XI*  ETA  ) 
C WITH  AVERAGE  POINT  AS  ORIGIN 
C EQUATION  ( 80  ) 


XI  ( J>  = T1X*XDIF  ♦ T1Y* YDIF  ♦ TiZ'ZOIF 
1000  ETA  t J)  = T2X*XDIF  ♦ T2Y*YQIF  ♦ T2Z*ZOIF 


C 

C 


COMPUTE  CENTR  CIO 
EQUATION  ( 81  ) 


XIO  = • 3333333E0  * ( 
1 * ( ETA  (41  - ETA 

ET AO  = -• 3 333333 £0  * 


XI  (4) 

< 1)  ) ) 
ETM1) 


* C ETA  111  - 
/ ( ETA  (2  » 


ETA  <21  ) ♦ XI 
- ETA  (4)  I 


< 2 ) 


C OBTAIN  CORNER  POINTS  IN  SYSTEM  WITH  OENTROIO  AS  ORIGIN 
C EQUATION  < 82  > 


DO  1C 20  J = 1,  4 
XI(J>  = XI (J)  - XIO 
1020  ETA(J)  = ETA(JI  - ETA0 


C COMPUTATION  AIDS 


C 

C 


TRANSFORM  CENTROID  TO  REFERENCE  COORDINATE  SYSTEM 
E CU  ATI  ON  < 83  ) 

XCENT  = AVX  ♦ TiX*XIQ  ♦ T2X*ETA0  , 

YCENT  = AVY  ♦ T1Y*XIQ  «•  T2Y*ETA0 

ZCENT  = AVZ  «■  TiZ’XIC  ♦ T2Z*ETA0 


C 

C 


COMPUTE  LARGER  DIAGONAL  VECTOR 
EQUATION  ( 84  ) 

TSQ  = AMAX1  < XI3M1  **  2,  XI4M2  2 ♦ ETA2M4  **  2 
T = SORT  < TSQ  ) 


C 

C 


COMPUTE  AREA 
ECUATION  ( 85 


PINF 
PINP 
PI  NP 
PINP 
PI  NP 
PINP 
PINP 
PINP 
PINP 
PI  NP 
PINP 
PINP 
PI  NP 
PINP 
PINP 
PINP 
PINP 
PINP 
PI  NP 
PINP 
PINP 
PI  NP 
PI  NP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 


301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 


ETA2M1 

= ETA 

< 

2 

) 

- ETA  < 

1 ) 

PINP 

333 

ETA3M2 

= ETA 

< 

3 

) 

- ETA  < 

2 > 

PINP 

334 

ETA4M3 

= ETA 

< 

4 

) 

- ETA  < 

3 ) 

PINP 

335 

ETA1M4 

= ETA 

< 

1 

) 

- ETA  ( 

4 1 

PINP 

336 

XI1M2  = 

XI  ( 

1 

) 

- 

XI  < 2 » 

PINP 

337 

XI2M3  = 

XI  < 

2 

> 

- 

XI  < 3 1 

PlNP 

338 

XI3M4  = 

XI  < 

3 

) 

- 

XI  ( 4 ) 

PINP 

339 

XI4M1  = 

XI  c 

4 

) 

- 

XI  < 1 ) 

PINP 

340 

ETA2P4 

= ETA 

< 

2 

) 

♦ ETA  < 

4 ) 

PINP 

341 

XI3M1  = 

XI  < 

3 

> 

- 

XI  < 1 ) 

PlNP 

342 

XI4M2  = 

XI  < 

4 

) 

- 

XI  ( 2 1 

PINP 

343 

ETA2M4 

= ETA 

< 

2 

) 

- ETA  ( 

4 ) 

PINP 

344 

XII 234 

= XI 

( 

1 

> 

♦ XI  I 2 

> •-  XI  < 3 ) * XI  < 

4 1 PINP 

345 

PINP 

PINP 

PINP 

PINP 

PINP 

PINP 

PINP 

PINP 

PlNP 

PINP 

PINP 

PINP 

PINP 

PINP 

PINP 


346 

347 

348 

349 

350 

351 

352 
3 53 

354 

355 

356 

357 

358  | 

359  ] 

360  | 
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AREA  = .5  * XI3M1 

* ETA2M4 

PINP 

361 

PI  NP 

362 

C COMPUTE  CONSTANTS  FOR  EQUATIONS 

( 42 

> ANO  « 43  ) 

PINP 

3 63 

C EQUATION  < 45  I 

PINP 

364 

012SQ  = XI1H2  **  2 ♦ ETA2M1 

**  2 

1 

| 

PINP 

365 

012  = SORT  « 012SQ  ) 

i 

PINP 

366 

023SQ  * XI2M3  **2  ♦ ETA3M2 

2 

! 

I 

PINP 

367  i 

023  = SORT  ( 023SQ  ) 

PINP 

368 

D34SQ  * XI 3M4  **  2 ♦ ET A4M3 

**  2 

PINP 

369 

034  = SORT  ( 034SQ  ) 

PINP 

370 

041SQ  a XI4M1  **  2 ♦ ETA1M4 

♦*  2 

PINP 

371 

041  - SORT  ( 041 SQ  ) 

PINP 

372 

Cl  = 0.0 

PINP 

373 

C2  = 0.0 

PINP 

3 74 

C3  = 0.0 

PINP 

3 75 

C4  = 0.0 

PINP 

376 

C5  * 0.9 

PINP 

3 77 

C6  = 0.0 

PINP 

3 78 

C7  = 0.0 

PINP 

379 

C8  = 0.0 

PINP 

380 

XNP  = 0.9 

PINP 

381 

YNP  = 0.0 

PINP 

382 

IF  ( 012  ) 1039*  1040,  1030 

PINP 

383 

1030  Cl  * ETA2M1  ✓ 012 

PINP 

384 

C5  a XI1M2  ✓ 012 

PINP 

385 

1040  IF  ( 023  > 1050,  1060,  1050 

, 

PINP 

386 

1050  C2  = ETA3N2  / D23 

PI  NP 

387 

C6  = XI2M3  / 023 

PINP 

388 

1060  IF  ( 034  ) 1070,  1080,  1070 

PINP 

389 

1070  C3  = ETA4M3  ✓ D34 

PINP 

390 

C7  a XI3M4  / 034 

PINP 

391 

1080  IF  ( 041  ) 1090,  1100,  10*33 

PINP 

392 

1090  C4  = ETA1M4  / 041 

PINP 

393 

C8  = XI4M1  / 041 

PINP 

394 

1100  CONV  = 3 

PINP 

395 

PIN> 

396 

PINP 

3 97 

C BEGIN  NULL  POINT  ITERATI CN 

PINP 

398 

PINP 

399 

DO  1590  ITR  = 1,  30 

PINP 

400 

00  1580  K = 1,4 

PINP 

401 

C EQUATION  C 47  1 

PINP 

402 

R 1 K ) = SORT  < ( XNP  - XI 

( K ) 

> 2 ♦ 1 YNP  - ETA(K)I  **  2 ) 

PI  NP 

4G3 

RX  <K  » a ( XNP  - XI  < K I ) 

/ R ( 

K ) 

PINP 

404 

1580  RY  CK  > = C YNP  - ETA  ( K I 

1 / R 

< K ) 

PINP 

405 

R1PR2  = R C 1 » ♦ R < 2 ) 

PINP 

406  ^ 

R2PR3  = R C 2 1 ♦ R ( 3 » 

PINP 

4C7 

R3PR4  = R ( 3 ) ♦ R ( 4 ) 

PINP 

408 

R4PR1  = R C 4 1 ♦ R l 1 ) 

PINP 

409 

ARGi  a ALOG  ( f R1PR2  - C12 

> ✓ < 

R1PR2  «■  012 

> > 

PINP 

410 

ARG2  a ALOG  ( ( R2PR3  * 023 

) / ( 

R2PR3  4 023 

> ) 

PINP 

411 

ARG3  a ALOG  1 < R3PR4  - 034  ) 

/ ( R3PR4  ♦ C34  » 

) 

PINP 

412 

ARG4  = ALOG  ( ( R4PR1  - 041  ) 

/ C R4PR1  ♦ 041  > 

> 

PINP 

413 

- 

PINP 

414 

Pi  NP 

415 

C COMPUTE  INOUCEO  VELOCITY  COMPONENTS 

PINP 

416 

C EQUATIONS  C 42  1 A NO  1 43  > 

PINP 

417 

VX  = Cl  * ARGI  ♦ C2  ♦ ARG2  ♦ 

C3  * 

ARG3  ♦ C4  * 

ARG  4 

Pi  NP 

418 

VY  a C5  ♦ ARGI  ♦ C6  * ARG2  ♦ 

C7  * 

ARG  3 ♦ C8  « 

ARG4 

PINP 

419 

' 

PI  NP 

420 
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C COMPUTE  PARTIAL  DERIVATIVES  OF  INOUCEO  VELOCITIES  PINP 

C EQUATION  ( 90  >,  USING  EQUATIONS  ( 91  ) - < 93  ) PINP 

PINP 

PINP 

012P=  ( R1PR2  **  2 - D12  SQ  > * .5  PINP 

023P=  I R2PR3  **  2 - 023  SQ  I * .5  PINP 

D34P=  C R3PR4  ♦*  2 - 034  SQ  ) * .5  PINP 

041 P*  ( R4PR1  *•*  2 - 041  SQ  ) * *5  PINP 

Cl P = ETA2M1  / D12P  PINP 

C2P  = ETA3M2  / 023P  PINP 

C3P  = ETA4H3  / 034P  PINP 

C4P  = ETA1M4  / 04 IP  PINP 

C5P  = XI1M2  / 01 2P  PINP 

C6P  = XI2M3  / D23P  PINP 

C7P  = XI3M4  / D34P  PINP 

C8P  = XI4N1  / 04 IP  PINP 

R12Y  = RY  ( 1 > ♦ RY  { 2 » PINP 

R23Y  * RY  C 2 ) ♦ RY  « 3 ) PINP 

R34Y  = RY  < 3 > ♦ RY  < 4 I PINP 

R41Y  = RY  I 4 I + RY  ( i I PINP 

VXX  = C1P*  ( RX  I 1 M RX  ( 2 ) I ♦ C2P*  I RX  C 2 ) ♦ RX  ( 3 ))  ♦PINP 

1 C3P*  l RX  ( 3 > ♦ RX  < 4 ) ) ♦ C4P*  ( RX  ( 4 ) + RX  Cl)  ) PINP 

VXY  = C1P*  R12Y  ♦ C2P*  R23Y  ♦ C3P*  R34Y  ♦ C4P*  R41Y-  PINP 

VYY  = C5P*  R12Y  ♦ C6F*  R23Y  ♦ C7P*  R34Y  ♦ C8P*  R41Y  PINP 

PINP 

PINP 

C COMPUTE  NEN  NULL  POINT  I XNP,  YNP  ) PINP 

C EQUATION  l 94  ) PINP 

PINP 

XMXP  = ( VY  * VXY  - VX  * VYY  > / C VXX  * VYY  - VXY  ♦*  2 ) PINP 

XNP  = XMXP  + XNP  PINP 

YNP  = YNP  * I »X  ♦ VXX  * XMXP  ) / VXY  PINP 

PINP 

C TEST  NULL  POINT  CONVERGENCE  PINP 

IF  ( ABS  C VX  ) .LT.  EPS  .ANO.  ASS  < VY  ) .LT.  EPS  I GO  TO  1600  PINP 

1590  CONTINUE  PINP 

C NO  CONVERGENCE  , USE  30TH  ITERATION  PINP 

CONV  = 2 PINP 

PINP 

C TEST  IF  THIS  POINT  IS  0U1SI0E  THE  ELEMENT  PINP 

1600  IF  < XNP  **  2 ♦ YNP  **  2 . LE.  TSQ  ) GO  TO  1620  PINP 

PINP 

C CONVERGES  TO  POINT  AT  INFINITY  PINP 

CONV  =1  PINP 

XNULL  = XCEhT  PINP 

YNULL  = YCENT  PINP 

ZNULL  = ZCENT  PINP 

GO  TO  1700  PINP 

PINP 

TRANSFORM  NULL  POINT  TC  REFERENCE  COORDINATE  SYSTEM  PINP 

EQUATION  C 79  I NOTE  THAT  Z - COORDINATE  IS  ZERO  PINP 

1620  XNULL  * XCENT  ♦ TlX  * XN3  ♦ T2X  * YNP  PINP 

YNULL  « YCENT  ♦ T1Y  * XN3  ♦ T2Y  * YNP  PINP 

ZNULL  = ZCENT  ♦ TlZ  * XN3  ♦ T2Z  ♦ YNP  PINP 

PINP 

PINP 

C PRINT  RESULTS  — SECTION  9.4  THE  FIRST  OUTPUT  PINP 

PINP 

1700  IF  I NPRT  .GE.  11  > GO  TO  1750  PINP 

NPRT  = NPRT  «■  1 PINP 
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O O 0 0-0  0 


IF  ( I ,EQ.  1 ) GO  TO  17 CO 
WRITE  (6,  4005)  I,  XIN,  NX, 


T, 


GO  TO  2001 


1 TIN,  NY,  YNULL 
GO  TO  1770 
1750  NPRT  = 0 

CALL  PcAOER 
WRITE  ( 6,  4002  ) 

1 760  WRITE  ( 6,  4010)  N 
1 ),  YIN,  NY,  YNULL 

1770  CONTINUE 

2000  CONTINUE 
2100  NLT  ( KLCT  ) = MMIN 

NLINE  ( KLCT  ) = N 
IF  C IFLAG  ,EQ.  0 ) 

IF  ( N ,LT.  NLM1  ) GC  TO  12 
IFC  IPRNT  ) WRITE (6 , 401 5) 

GO  TO  2025 

2001  IF  C STAT  .LT.  2 ) GO  TO  80 
NLT  (KLCT)  = -NLT(KLCT) 

NPRT  = NPRT  ♦ 1 

IF { IPRNT  ) WRITEC6,4915) 

; T 1ST  FOR  ENO  OF  CASE 
2020  IF  ( STAT  .NE.  3 ) GO  TO  80 
2025  NN1  = MOO  f 3 * NQUAO,  255  ) 
NQNN1  * NQUAD 
IF  ( NN1  .LT. 

DEL  X = -0.  5 * 

OELY  = -0.5  * 

DEL 2 = -0.5  * 

WRITE  (9)  XHIN, 


XNULL  , PC,  CFLAG  (CONY)  , 

ZIN,  NZ»  ZNULL  • AREA 


XIN,  NX,  XNULL 
, T,  ZIN,  NZ,  ZMJLL 


PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 

• PO,  CFLAG  (CONVPINP 


AREA 


0 ) NQNNl  = NQUAO  ♦ 2 


5 .AND.  NN1  . GT. 

(XMIN  ♦ X MAX) 

(YMIN  ♦ Y MAX ) 

(ZMIN  ♦ ZMAX) 

XMAX,  YMIN,  YMA  X,  ZMIN  , ZMAX,  OELX , OELY,  OELZ, 


1 NS  YM 
ENOFILE  9 
REWIND  9 
IF  ( .NOT, 


PINP 
PINP 
PINP 
PINP 
PI  NP 
PINP 
PINP 
PINP 
PINP 
PI  NP 
PINP 
PINP 
PI  NP 
PI  NP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PI  NP 
PI  NP 
PINP 


IPICT  ) GC  TO  8500 

; SET  UP  PERSPECTIVE  ANGLES  FOR  PLOI S 

WRITE  (8)  XMIN,  XMAX,  YMIN,  YH AX,  ZMIN,  ZMAX,  OELX,  OELY,  DELZ 
LAST  = fi 
PHI  =0.0 

THE  OPERATION  OF  ANGLES  THETA  AND  PSI  ARE  AS  FOLLOWS  FOR  A RIGHT 
HANOED  COORDINATE  SYSTEM  WITH  THE  Z AXIS  OIRECTED  UPWARD.  FIRST  PINP 
ROTATE  THE  COORDINATE  SYSTEM  3Y  ASIGLE  THETA  ABOUT  THE  Y AXIS  SUCH  PINP 
THAT  FOR  POSITIVE  THETA  THE  POSITIVE  X AXIS  TILTS  UPWARO.  THEN  PIN P 
ROTATE  BY  ANGLE  PSI  ABOUl  THE  NEW  Z AXIS  SUCH  THAT  FCR  POSITIVE 
PSI  THE  ROTATION  IS  CLOCKWISE  WHEV  VIEWEO  FROM  ABOVE. 

IF  < NS YM  .GT.  0)  IF  (NSYM  - 2)  2028,  2029,  2C30 
20  27  PSI  = 9 0. 


THETA 

WRITE 


THETA 
WRITE 
THETA 
WRITE 
PSI  = 
WRITE 
THETA 
WRITE 
2028  PSI  = 
THETA 


= 0.0 
( 8)  PSI, 
PSI  = 45. 

= 45  • 

(8)  PSI, 
= -45. 
(8)  PSI, 
135. 

(8)  PSI, 
= 45. 

(8)  PSI, 

0. 

= -90. 


THETA,  PHI,  LAST,  LAX  IS,  MINUSY,  RAXIS 


THETA,  PHI,  LAST,  L45,  PLUSX,  MINUSY,  PLUSZ,  R45 


PINP 

PINP 

PINP 

PINP 

PINP 

PINP 

PINP 

PINP 

,LPINP 


PINP 

THETA,  PHI,  LAST,  L45,  PLUSX,  MINUSY,  MINUSZ,  R45.LPINP 

PINP 

MINUSY,  PLUSZ,  R45  ,L  PINP 

PINP 

MINUSY,  MINUSZ  ,R45,uPINP 

PINP 
PINP 


THETA,  PHI,  LAST,  L45,  MINUSX, 
THETA,  PHI,  LAST,  L45,  MINUSX, 
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(8)  PSI’  THETA»  PHI*  LAST,  LAXIS,  MINUSZ,  RAXIS 
THETA=  45. 


PSI =-13  5. 

Thpta-*Jk  PSJf  THETA*  PHI»  LAST,  L45,  MINUSX,  PL USY, MINUSZ,  R45,l 


THETAs-45, 

PSI=-45. 

2029  PSIT=  180.  PSIf  THETA*  PMIf  LAST*  L45*  PLUSX,  PLUSY, MINUSZ,  R45,L 
THETA  = q] 

WRITE  (6)  PSI,  THETA,  PHI,  LAST,  LAXIS,  MINUSX,  RAXIS 
PSI  — -135« 

THETA  =-45, 

2C30  THETA  I#i..PSI#  THETA*  PPI*  LAST»  L45»  KINLSX,  PLUSY,  PLUSZ,  R45,L 
PSI  = 0, 

J**TE  <8i  PSI*  THETA*  PHI»  LAST,  LAXIS,  PLUSX,  RAXIS 
THETA  = 0*0 

PSI  = -90. 

WRITE  (81  PSI,  THETA,  PHI,  LAST,  LAXIS,  PLUSY,  RAXIS 
THETA  = 90* 

PSI  = 0. 

C8)  PSI*  THETA,  PHI,  LAST,  -AXIS,  PLUSZ,  RAXIS 
THETA  = 45* 

PSI  =-45. 

LAST  = 1 

PSI#  THETA*  PHI»  LAST»  L45»  PLUSX,  PLUSY,  PLUSZ,  R45,  L 


8 500  REMIND  8 


IF(IPRNT)  WRITE  C6, 9999)  NQUAD 

9999  FORMAT!  1H0,  16X,  15,  26H  BASIC  ELEMENTS  WERE  INPUT) 
Kc  T UKN 
END 


PI  NP  543 
PINP  54j 
PI  NP  543 
PINP  54( 
PINP  54! 
PINP  54( 
PINP  543 
PINP  542 
PINP  541 
PINP  55C 
PINP  551 
PINP  552 
PINP  553 
PINP  554 
PINP  559 
PINP  556 
PINP  5 53! 
PINP  556 
PINP  559 
PINP  560 
PINP  561 
PINP  562; 
PINP  563 
PINP  564: 
PINP  565 
PINP  566 
PINP  567 
PINP  560 
PINP  569! 
PINP  571 
PINP  571 
PINP  5 72 
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•DECK.  PICTURE  PICT 

SUBROUTINE  PICTUR  PICT 

PICT 

PLOTS  SURFACE  ELEMENTS  ON  A 3-DIMENS  10 NAL  BODY  PICT 

PICT 

LOGICAL  IPROS.  IPUNCH,  IfRNT,  IPICT,  ICRT,  RFLAG,  AFLAC,  BFLAG  PICT 
COMMON  HEDR!  151,  NQUAD,  KASE,  NSYM,  IFLAG,  IPROS,  IPUNCH,  IFRNT,  PICT 

1 IPICT,  ICRT,  SINA,  COSA,  XSCALE,  YSCALE,  ZSCALE,  XTRANS,  YTFANS , PICT 

2 ZTRANS  PICT 

DIMENSION  XA!250>,X8!250f , YA1250)  ,YB( 250) ,ZA(250) *ZB!  250) , PICT 

1 XIN!4)  ,YIN!4>  ,ZIN!4)  ,HLA8ELI15J,  PROGIO!  3),  PICT 

2YIN2!4),ZIN2!4) , YPLTSCC  4),  ZFLTSC!  4) ,HLIN£2 C7) , PICT 

3 HLINE1 (7) , XMC2I,  YM(2) , ZM(2>  PICT 

REAL  NX,NY,NZ,NXO  PICT 

INTEGER  ST AT, ST  ATT  PICT 

DATA  PROGIO/  7HN0RMENT , 4H3840,  3HLYC/  PICT 

DATA  I SHAD, IF RAKE/O , 0/  , XSC* YSC , ZSC/ 3* 1, 0/  PICT 

PICT 

FIRST  (QX,QY,QZ,Q1,Q2,Q3).  = QX*Q1  f QY*Q2  ♦ QZ*Q3  PICT 

PICT 

THIRD! QX, QY, QZ.QPSI, GTHETA.QPHI ) * QX* (COS!QTH£TA)*COS !QPSI)  ) 4 PICT 

1 QY*  l-SIN ! QPSI > *CGS 1QPHI ) 4SIN ! QTHET  A)  *COS  !QFS I)  •SIN !QPHI) ) 4 PICT 

2 QZMSINfQPSI)*SIN(QPHI)4SINCQTHETA)»COSfQPSI>»COS(QPHIJ ) PICT 

PICT 

IREFL  = NSYM  PICT 

IF f IREFL  .GT.  2 ) IREFL  = 2 PICT 

IPIC  = 1 PICT 

IFC  ICRT  ) GO  TO  750  PICT 

CALL  PLOTID  PICT 

C CALL  PLTI03I  PROGID,  200.0,  11.8,  1.0)  PICT 

CALL  PLOT!  5.0,  G.2,  -3  ) PICT 

GO  TO  2 PICT 

750  CALL  MICRO !PROGID,  1.0,  14.0)  PICT 

READ (5 , 3000  ) HLINE1,  HLI  NE2  PICT 

3000  FORMAT  C7A6/7A6)  PICT 

CALL  TITHHLINE1  ,HLINE2)  PICT 

WRITE!  6,  5201  I PICT 

5201  FORMAT!  1H-,  12H  CRT  PLOTS)  PICT 

2 REWINO  9 PICT 

301  READ  ! 8 ) XM  11) ,XM!2)  ,YM !1),YM!2),ZM!1),ZM!2) ,DELX, OELY.DELZ  PICT 

WRITE !6, 7400)  XM !1 ) , XM! 2) » YM!1) ,YN!2)  , ZM!1) , ZM!2)  PICT 

WRITE!6 ,7500)  PICT 

WRITE!6,7700)  OELX.DELY.OELZ  PICT 

7400  FORMAT!  1H0 , 9X,  81HMINIHUM  AND  MAXIMUM  COORDINATES  IN  THE  SCALEPICT 

ID,  TRANSLATED,  ROTATED  SYSTEM  -/12X,  7HX  A XIS=2  UP£1  5.  5)  / PICT 
2 12 X,  7HY  AXIS=2 !1PE15. 5 1/  12X,  7HZ  AXIS=2 ! 1PE15. 5) ) PICT 

7500  FORMAT C1H0,  9X,  69HCC0RDINATE  TRANSLATIONS  USED  TO  CENTER  THE  FLCTPICT 
IS  - DELX,  DELY,  OELZ  -)  PICT 

7700  FORMAT! 12X.39H  AFTER  SCALING,  TRANSLATING,  ROTATING  -3!1PE15.5J/)  PICT 

4 IPIC  = IPIC  4 1 PICT 

PICT 

C READ  PLOTTING  INSTRUCTIONS  PICT 

READ  ! 8 I PSI,THETA,PHI,LAST.  HLABEL  PICT 

WRITE 16 ,520  5) H LA EEL  PICT 

5205  FORMAT! 5X,  15A41  PICT 

PICT 

8 IF!  IPIC  .GT.  2 .AND.  .NOT.  ICRT  ) CALL  PLOT!  10.0,  -5.5,  -3  ) PICT 

IF!  IPIC  .GT.  2 .AND.  ICRT  I CALL  FRAME!  0.5,  0.5  ) PICT 

PICT 

C SET  UP  STARTING  CONSTANTS  PICT 
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19 
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IFADV  * 1 

PSI  = P SI  / 57.29578E0 
THETA  = THETA  / S7.2S578E0 
PHI  * PHI  ✓ 57*2957 CEO 
SINTH  = SIN(THETA) 

COSTH  = COS(THETA) 

SINPSI*  SI N (PSI) 

COSPSI*  COSCPSII 
SINPHI*  SIN(PHI) 

COSPHI*  COS(PHI) 

AI  * COSTH  * SINFSI 

A2  = COSPSI*COSPHI  ♦ SINTH*SINPSI*SINPHI 

A3  *-COSPSI*SINPHI  ♦ SI NTH*SINPSI*COSPHI 

A4  =-SI NTH 

A5  * COSTH*SINPNI 

A6  = COSTH*COSPHI 

A 7 * COSTH*COSPSI 

A8  =-SlNPSI*COSPHl  ♦ SINTH*COSPSI*SINPHI 
A9  = SINPSI*SINPHI  ♦ SINTH*COSPSI*COSPHI 
C SET  SCALE  FACTOR  FOR  THE  PLOT 
YSN*  i.  €50 
ZSM=  1.E50 
YLG=-1.E50 
ZLG  = -1.E50 
00  20  1*1,2 
X=XM (I ) ♦OELX 
DO  20  J=l,  2 
YsYMf  J)  +OELY 
00  2C  K = l,  2 
Z=ZM( K) +OELZ 

YNR=FIRST(X,Y,Z,  Ai  ,A2,A3) 
ZNR=FIRSTCX*Y»Z»A4»A5tA6) 
YSM=AMIN1(YSN,YNR) 

ZSM=AMIN1 ( ZSM*  ZNR) 

YL6=AMAX1 ( YLG, YNR) 

20  ZLG  = AM AXi ( ZLG* ZNR) 

PEN SF* 9. 99 /AHA XI (YLG-YSH  ,ZLG-ZSM) 

N = -1 
NN  = - 1 


READ  IN  SURFACE  OATA 

29  READ  (91  X,Y,Z,STAT,  XX,YY,ZZ»STATT 

IF  (STAT  .ECU  3 *CR*  STATT  .EQ.  3)  REMIND  9 
RFLAG  = .FALSE* 

GO  TO  80 

30  IF  (RFLAG)  GO  TO  50 

RFLAG  = .TRUE. 

X = XX 
Y = YY 
Z = ZZ 
STAT  = STATT 
GO  TO  60 

50  RFLAG  = .FALSE. 

READ  (9)  X *Y*Z  »S  TAT  » XX ,YY , ZZ, STATT 
IF  (STAT  .EQ.  3 .OR.  STATT  .EQ.  3)  REWIND  9 
60  IF  (STAT  .EQ.  0 .OR.  STAT  • EQ.  3)  GO  TO  180 
IF  (STAT  .EQ.  2)  GO  TO  200 
70  IF  (.NOT.  AFLAG)  GO  TO  200 
MC  = H 


PICT  61 
PICT  62 
PICT  63 
PICT  64 
PICT  65 
PICT  66 
PICT  67 
PICT  68 
PICT  69 
PICT  70 
PICT  71 
PICT  72 
PICT  73 
PICT  74 
PICT  75 
PICT  76 
PICT  77 
PICT  78 
PICT  79 
PICT  80 
PICT  81 
PICT  62 
PICT  83 
PICT  84 
PICT  85 
PICT  66 
PICT  87 
PICT  88 
PICT  89 
PICT  90 
PICT  91 
PICT  92 
PICT  93 
PICT  94 
PICT  95 
PICT  96 
PICT  97 
PICT  98 
PICT  99 
PICT  100 
PICT  101 
PICT  10  2 
PICT  163 
PICT  104 
PICT  1U5 
PICT  106 
PICT  107 
PICT  108 
PICT  169 
PICT  110 
PICT  111 
PICT  112 
PICT  113 
PICT  114 
PICT  115 
PICT  116 
PICT  117 
PICT  118 
PICT  119 
PICT  120 


91 


80 

II 

X 

PICT 

121 

IF  CSTAT  .EQ.  2)  GO  TO 

150 

PICT 

122 

IF  (.NOT.  BFLAG ) GO  TO 

64 

PICT 

123 

75 

DO  81  J =i,MC 

PICT 

124 

x a ( j > - xocji 

PICT 

125 

YA(J)  = YB(J) 

PICT 

126 

81 

ZAU)  ~ ZB( J) 

PICT 

127 

83 

XB (1 I = X 

PICT 

128 

Y8(l)  = Y 

PICT 

129 

ZB  Cl)  = Z 

PICT 

130 

GO  TO  30 

PICT 

131 

84 

IF  (AFLAG)  GO  TO  85 

PICT 

132 

BFLAG  = .TRUE. 

PICT 

133 

GO  TO  75 

PICT 

134 

85 

AFLAG  = .FALSE. 

PICT 

135 

GO  TO  83 

PICT 

136 

150 

AFLAG  = .TRUE. 

PICT 

137 

BFLAG  = .FALSE. 

PICT 

138 

N = N+l 

PICT 

139 

160 

XA(M>  = X 

PICT 

140 

YA ( N)  = Y 

PICT 

141 

ZA(M)  = Z 

PICT 

142 

GO  TO  30 

PICT 

143 

180 

M = M ♦ 1 

PICT 

144 

IF  (AFLAG)  GO  TO  160 

PICT 

145 

XB (M)  = X 

PICT 

146 

YB  (M)  = Y 

PICT 

147 

ZB(M)  * Z 

PICT 

148 

IF  (STAT  .NE.  3)  GO  TO  30 

PICT 

149 

200 

MMIN  = MIN0  ( M. MC)  - 1 

PICT 

150 

MC  = M 

PICT 

151 

250 

N = N ♦ 1 

PICT 

152 

NN  = NN  ♦ 1 

PICT 

153 

PICT 

154 

PICT 

155 

C BEGIN  COMPUTATION  OF  SURFACE  ELEMENT  CHARACTERISTICS 

PICT 

156 

PICT 

157 

450 

00  20  00  1=  l.NMIN 

PICT 

158 

XIN(l)  = XA ( I)  * XSC  ♦ 

DELX 

PICT 

159 

X IN  ( 2 ) = XA(H-X)  * XSC 

+ DELX 

PICT 

160 

XIN(3)  = XB  ( I + l)  * XSC 

♦ DELX 

PICT 

161 

XIN (4)  = XB ( I ) * XSC  ♦ 

DELX 

PICT 

162 

YIN(1)  = YAIII  * YSC  «• 

DELY 

PICT 

163 

YIN (2)  = YA ( I>  1)  * YSC 

♦ DELY 

PICT 

164 

YIN (3)  = YB(I*1)  * YSC 

«■  DELY 

PICT 

165 

YIN (4)  = YB ( I)  * YSC  ♦ 

DELY 

PICT 

166 

ZIN(l)  = ZAC I)  * ZSC  ♦ 

OELZ 

PICT 

167 

Z IN  ( 2 ) = ZA(I«-i)  * ZSC 

♦ OELZ 

PICT 

168 

Z I N ( 3 ) = ZB  (I ♦ 1)  * ZSC 

♦ OELZ 

PICT 

169 

ZINC4)  = ZB ( I ) * ZSC  ♦ 

OELZ 

PICT 

170 

IRFLG  = 0 

PICT 

171 

PICT 

172 

C FORM  DIAGONAL  VECTORS  - EQUATION  1641 

PICT 

173 

TiX  = XIN  ( 3)  - XIN(l) 

PICT 

174 

T2X  = XIN  (4)  - XI M 2 ) 

PICT 

175 

Tl  Y = YIN  ( 3)  - YIN  (1) 

PICT 

176 

T2Y  = YIN  (4)  - YIN(2) 

PICT 

177 

T1Z  - ZINC 3)  - ZIN(l) 

PICT 

178 

T2Z  = ZIN  (4)  - ZI  N(  2 ) 

PICT 

179 

o o 


C FORM  CROSS  PRODUCT  N=T2  X T1  - EQUATION  (65) 
NX  = T2Y*T1Z  - T1Y*T2Z 
NY  = T1X*T2Z  - T2X*T1Z 
NZ  = T2X*T1Y  - T1X*T2Y 
VN  = SORT  ( NX* NX  ♦ NY*>Y  ♦ NZ*NZ  ) 


C FORM  UNIT  NORMAL  VECTOR  - EQUATION  (56) 


NX  = NX  / VN 
NY  = NY  / VN 
NZ  = NZ  / VN 

IF  ( IFAOV  .£Q.  0)  GO  TO  471 

A NEW  VIEW  OF  THE  BOCY  IS  TO  BE  PLOTTED. 
INITIALIZE  FOR  THE  BOOY  PLOT. 

IF ( ICRT  ) GO  TO  524 
CALL  PL OT ( 2. 5.  0.  C.  3 ) 

PLOT  THE  LEGENO  ANC 

i 

CALL  SYMBOL  1 2.5.  0.0.  0.150,  HLA3EL , 0.0, 
CALL  PLOT C 7.5,  5.5,  -3) 

GO  TO  5 25 

60) 

524 

CALL  STBEAM(24) 

CALL  SYMBOL  C 3.0,  0.0,  0.150,  HLA3EL,  0,0, 
CALL  STBEAMI18) 

CALL  PLOT!  8.0,  5,5,  -3) 

60) 

525 

IFAOV  = 0 

471 

NXO  = THIROCNX,NY,NZ,PSI, THETA, PHI) 

IF  (NXO. LE. 0.0  . AN  (•  ISHAO.EQ.O)  GO  TO  571 

C CALCULATE  POINTS  TO  BE  PLOTTED 
530  YOl  = FIRST(XIN(i),YlN(l),ZIN(l),Ai,A2,A3) 

Y02  = FIRST (XIN(2) » Y INI  2 ) ,ZIN(2),A1,A2,A3) 

Y03  = FIRST(XIN(3),YIN(3),ZIN(3),Al, A2.A3) 

Y04  = FIRST(XIN(4) ,YIN(4),ZIN(4) ,A1, A2,A3) 

ZOl  = FIRST (XIN(1) «YIN(1),ZIN(1),A4,A5  » A6) 

Z02  = FIRST(XIN(2),YIN(2),ZIN(2),A4, A5,A6) 

Z03  = FIRSTCXINC3I ,YINI3) , ZINC3 ), A 4,A5 , A6) 

Z04  = FIRST(XIN(4),YIN(4),ZIN(4),A4,A5,A6) 

YIN2C1)  = YOl 
YIN2(2)  = Y 02 
YIN2C3)  = Y03 
YlN2(4)  = YC4 
ZXN2(  1)  = ZOl 
ZIN2(2)  = Z02 
ZIN2I3)  = Z03 
ZIN2( 4)  = Z04 

C SCALE  ANO  PLOT  A SINGLE  QUA  ORAL ATERAL 

00  540  II- 1.4 

YPLTSCCII)  = YIN2CII1  * PENSF 
ZPLTSC (II)  = ZIN2( II ) * PENSF 

IF  ( ABS( ZPLTSC ( II ) ) «LE.  5.000) 

1 GO  TO  540 

WRITE ( 6.5000)  N,  M 

5000  FORMAT ( 1M0.  10X.  21HSCALE  TROUBLE  FOR  N =14.  3X,  3HM  =14) 
GO  TO  2000 
540  CONTINUE 

CALL  PLOT!  YPLTSCC  11,  ZPLTSC ( 1),  3) 


PICT  181 
PICT  182 
PICT  183 
PICT  184 
PICT  185 
PlCT  186 
PICT  187 
PICT  188 
PICT  169 
PICT  190 
PICT  191 
PICT  192 
PICT  193 
PICT  194 
PICT  195 
PICT  196 
PICT  197 
PICT  198 
PICT  199 
PICT  200 
PICT  201 
PICT  202 
PICT  203 
PICT  204 
PICT  205 
PICT  206 
PICT  207 
PICT  208 
PICT  209 
PICT  210 
PICT  211 
PICT  212 
PICT  213 
PICT  214 
PICT  215 
PICT  216 
PICT  217 
PICT  218 
PICT  219 
PICT  220 
PICT  221 
PICT  222 
PICT  223 
PICT  224 
PICT  225 
PICT  226 
PICT  227 
PICT  228 
PICT  229 
PICT  230 
PICT  231 
PICT  232 
PICT  233 
PICT  234 
PICT  235 
PICT  236 
PICT  237 
PICT  238 
PICT  239 
PICT  240 


93 


00  550  11=2,4 

550  CALL  PLOT  ( YPLTSCMII, 
CALL  PLOT(  YPLTSCI  1), 


ZPLTSC  ( 1 1) , 
ZPLTSC ( 1), 


2) 

2) 


$71 


C 

C 

583 


C 

C 

600 

601 


C 

C 

602 

603 

C 

C 

604 


IF  (IREFL  .EQ. 
IF  I IREFL  • EQ* 
IF  ( IREFL  .EQ. 


0 

2 

2 


•OR.  IRFLG  .EQ.  3)  GO  TO  2000 
•AND.  IRFLG  .EQ,  1)  GO  TO  600 
•AND.  IRFLG  .EQ.  2)  GO  TO  602 


00^58 II^=°i^4T  1 ELEMENTS  T0  ODORANT  II 

riNdi)  = -YINIII) 

NY  = -NY 
GO  TO  604 


ooF6oiTiiU=°i?4T  11  ELEHENTS  T0  QUADRANT  IV 
YIN(II)  = -YINIII ) 

ZINIIII  = -ZINCII) 

NY  = -NY 
NZ  = -NZ 
GO  TO  604 

QUAORANT  IV  ELEMENTS  TO  QUADRANT  III 
uu  bO o II  = 1*4 

YINIIII  s -Y  INCH  ) 

NY  = -NY 


IRFLG  = IRFLG  ♦ 1 
IF  (IREFL  .EQ.  1)  IRFLG  = 3 
GO  TO  471 


2000  CONTINUE 

2001  IF  (STAT  .LT.  2)  GO  TO  480 
NN  = NN  - 1 

N = - 1 

475  IF  ( IFRAME  .EQ.  2)  IFAOV  = 1 
480  IF  (IFRAME  .EQ.  i>  IFAOV  = l 

485  IF  (IFAOV  .EQ.  1)  CALL  PLOT (13. 0,-5. 5,  -3) 


C TEST  FOR  END  OF  CASE 
2020  IF  (STAT  .NE.  3)  GO  TO  80 
IF  (LAST  .EQ.  l|  RETURN 
GO  TO  4 
ENO 
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PICT  266 
PICT  267 
PICT  268 
PICT  2 69 
PICT  2 70 
PICT  271 
PICT  2 72 
PICT  273 
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OVERLAY (80  XC, 0,0) 

PROGRAM  MAIM  INPUT, TAPS6,  T APE5*INF UT  , OUTPUT, 

80  XC 

1 

1 TAPE1 , TAPE3,  TAPES,  T1PE9,  TAPEli,  TAPE12,  T APE13* 

80  XC 

3 

2 TAPE4,  TAPE 10 » TAPE141 

BOXC 

4 

80  XC 

5 

H,  G.  NORMENT,  ATMOSPHERIC  SCIENCE  ASSOCIATES  - DECEMBER 

1979 

80  XC 

6 

BOXC 

7 

THIS  IS  ESSENTIALLY  THE  NON-LIFTING  POTENTIAL  FLOW  CODE 

OF  HESS 

BOXC 

8 

AND  SMITH  AS  OESCRIBEO  IN  OOUGLAS  AIRCRAFT  CO,  RPT  • E.  S. 

40622 

BOXC 

9 

( 15  MARCH  19621,  AO-282  255,  THAT  REPORT  SHOULD  BE  CONSULTEO  F0R80XC 

10 

OETAILS  OF  THE  METHOO  ANO  COMPUTATION, 

80  XC 

11 

j j 

BOXC 

12 

EIGHT  OVERLAYS  ARE  USED.  THE  FINAL  OVERLAY  WRITES  THE 

28 

80XC 

13 

QUANTITIES  ON  INIT  14  FDR  USE  BY  SR  FLOVEL  IN  CALCULATING  FLOW 

BOXC 

14 

VELOCITIES, 

80XC 

15 

BOXC 

16 

ALSO  REQUIRED,  IN  AOOITION  TO  THE  SYSTEM  INPUT,  OUTPUT  ANO  PUNCH 

BOXC 

17 

UNITS,  ARE  THE  FOLLOWING  UNITS  - 1,3,8,9,16,11,12,13, 

BOXC 

18 

BQXC 

19 

LOGICAL  IPROS 

BOXC 

20 

COMMON  HEDRC15) ,MPR,NER» IPRS, ISIG, ITER,NCFLG*NFLOW,NQUAD 

t 

BOXC 

21 

1 KASE,NOFF,NSYM,IFLAG,IFLOW,NCOOE 

BOXC 

22 

REAL  MACH 

BOXC 

23 

COMMON  /SPACER/  OUMMY  (14000) 

BOXC 

24 

COMMON  / A TAPE  / NATAPE 

BOXC 

25 

COMMON  / 7/  MACH,  8ETA,  P BETA 

BOXC 

26 

LOGICAL  AFLOW,  8 FLOW , DFLOW 

80  XC 

27 

COMMON  /OF  LOW/  AFLOW,  8FL0W  ,CFLCW,NMAT,  NMATM1 , NAFLOW,  N3FL OW,NCFLCW 

BOXC 

28 

COMMON/SOLVE/  Nl, N2,N3, CORE , NFL 

BOXC 

29 

COMMON  /INFT/  LIST,  IPRDS 

BOXC 

30 

COMMON  /PROS/  SINA, COSA , XSCALE,  YSCALE , ZSCALE,  XTRANS* 

BOXC 

31 

1 YTRANS,  Z TRANS 

BOXC 

32 

COMMON  /FLCWP/  NU  »NNON 

BOXC 

33 

COMMON  /SIG/  NFLCOM 

BOXC 

34 

COMMON  /TAFES/  MN 

BOXC 

35 

COMMON  /FRINTO/  KMAT, NSEQ, KTP 14 

BOXC 

36 

COMMON  /CLEAN/  LEAK,  FR1CT 

BOXC 

37 

6 FORMAT  (F10.6) 

BOXC 

38 

7000  FORMAT  ( 7F10.0) 

BOXC 

39 

7500  FORMAT  ( 18X,  55HANGLE,  XSCALE,  YSCALE,  ZSCALE,  XTRANS, 

YTRANS* 

ZBOXC 

AO 

1TRANS  =/  16X,  7<  1PE13 ,4)  ) 

BOXC 

41 

89  00  FORMAT  ( LI) 

BOXC 

42 

93  00  FORMAT  (15 A4  ,211, 3L1, 411, 12, 4I1,1X,A4) 

BOXC 

43 

9300  FORMAT  ( 14,  FiO.O  ) 

BOXC 

44 

9400  FORMAT ( 1H0,  17X, 31HNUM3ER  OF  LEAKY  QUADRALATERALS-I 4,  3X, 

BOXC 

45 

1 48HFRACTICN  OF  FREE- STREAM  VELOCITY  LEAKE0=1PE11.  *) 

BOXC 

46 

95  09  FORMAT  ( 1H0,  17X,  61HIN9UT  OATA  ARE  PROCESSED  BY  SCALING 

• ROTATINGBOXC 

47 

1 AND  TRANSLATING) 

BOXC 

48 

OATA  KORE  /1400Q/ 

BOXC 

49 

NSEQ  * 0 

BOXC 

50 

READ  IN  CONTROL  OATA 

BOXC 

51 

1 READ  ( 5,  9000  ) HEDR,  I FLAG,  LIST,  AFLOW,  8FL0W , CFLOW, 

ISIG, 

BOXC 

52 

1 IPRS,  MPR,  NCOOE,  NNON,  NSYM , NGFF,  KMACH,  KTP14,  KASE 

BOXC 

53 

READ (5,8000)  IPROS 

BOXC 

54 

IF(  IPROS  ) READ ( 5 , 70  00)  ANGLE,  XSCALE,  YSCALE,  ZSCALE, XTRANS , 

doxc 

55 

1 YTRANS,  Z TRANS 

BOXC 

56 

IF(  • NOT,  IPROS)  GC  TO  2 

BOXC 

57 

O O Cl 


PROGRAM  HAIn 


74/74  0PT*2 


• £Q. 
.EQ. 

• EQ. 


O.OI 

0.0) 

9.0) 


X SCALE*!  * t) 

VSCALE*1.0 

ZSCALt=l.O 


» LEAK,  FR ACT 


0)  REWINO  4 
GO  TO  7 


0) 


MACH  * MACH) 


IFIXSCALE 
IFCTSC ALE 
IFC2SCALE 
2 CONTINUE 
READ!  5,9300 
REMIND  l 
REMIND  3 
REMIND  8 
REMIND  9 
REWIND  10 
REMINO  11 
REMIND  12 
REMINO  13 
IF  <llsr  ,£Q. 

MACH  = 0.0 
IF  (KMACH  ,LE. 

NNON  = 0 

flpfnu <5’  61  MACH 
AFLOW  = , TRUE. 

9F10W  = .FALSE. 

CFLOW  = .FALSE. 

on-r  = SCRT(1.C  - 

NUCI4g=  1,0  ' 0ETfl 
CALL  header 

LI3T’  ISIG>  mS'  MFR’  NC°0E’  NN0N* 
SSL*  : |°S.‘  A HG  L £ I 

Si«  . = * 

ifLi.  ?cfRL4VUH83xc»i.O) 

[o  u 

i?il<r?!'4RL?o,4HB0,<c*»*i» 

GO  TO  100CC  * U CALL  O/ERLAV,LHe0XC,8,0) 

CONTINUE 
GO  TO  50CC 


40 


50 


10 


FORM  XIJ  , yIfc 


» AND 


C1000  CALL  V F09m 
10015  5F'lWronc.L4BV‘^H90XC,2,0) 


ZlJ  MATRICES 


5000,  1500,  » 


out) 


1 F INCOOE) 

1500  NCODE  = 1 

2000  IF  «,NNSAUTA0.e*Q6.T*3f°“c;Df^E  . 2 


02/27/86 


30XC  58 
30XC  59 

eoxc  eo 
so xc  ei 
eoXC  £2 


eoxc 

63 

eoxc 

64 

eoxc 

65 

eoxc 

66 

eoxc 

67 

eoxc 

68 

eoxc 

69 

eoxc 

70 

eoxc 

71 

eoxc 

72 

eoxc 

73 

eoxc 

74 

eoxc 

75 

eoxc 

76 

eoxc 

77 

eoxc 

78 

eoxc 

79 

eoxc 

30 

eoxc 

til 

eoxc 

62 

eoxc 

83 

eoxc 

84 

eoxc 

65 

eoxc 

66 

eoxc 

87 

eoxc 

88 

eoxc 

69 

eoxc 

90 

eoxc 

91 

eoxc 

92 

eoxc  93 


80 xc  94 
80XC  95 
90 XC  96 

eoxc  97 

90  XC  96 
eoxc  99 
eoxc  ico 
eoxc  ioi 
eoxc  io2 
eoxc  io3 

0OXC  164 

eoxc  ic5 
eoxc  iG6 
eoxc  ic7 
eoxc  io8 
eoxc  ic9 
eoxc  no 
eoxc  in 
eoxc  ii2 
eoxc  ii3 
eoxc  ii4 


17.14.35 


96 


PROGRAM  MAIN 


74/74  CPT=2 


FTN  4.7*476 


Cc/27 /6«t  17.14.3S 


C CALL  AFCRM 

CALL  OYERLAY(4HB0XC,3,0> 

IF  ( NAFLOX  ) 2100,  2103,  20  50 
2050  KMAT  = 1 

NFL  = NAFLCW 
GO  TO  2300 

2103  IF  ( N8FL0I  ) 2200,  22U3,  2150 
2150  KMAT  =2 

NFL  = NBFLCW 
GO  TO  2300 

2200  IF  < NCFLOX  ) 5000,  5003,  2253 
2250  KMAT  = 3 

NFL  = NCFLOH 
2300  NQ  = N QUAD  * 1 
MN  = 1 

NM  = MOO  ( NQ,  255  ) 

IF  C NM  .LT.  5 .ANO.  NM  ,GT.  J ) 
NFLCOM  = 0 

NSOL  = MING ( 6003  / NQUAO,  1L0I 
IF  ( NCOOE  .NE.  1)  GO  TO  2500 
2407  N1  = 6 
N2  = 9 
N3  = 13 

2450  NCFLG  = NFL 

’ CALL  SCL0I1  (DUHMY(l),  3QUAO*  NFL 

CALL  OVERLAY(4HBOXC,4,C) 

REHINO  3 

IF  (MN  .EQ.  1>  CALL  ATAPES  ( MN) 

IF  (MN  .EQ.  1) 


NQ  = NQ  ♦ 5 


, KCRE,  Nl, 


1CALL  OVERLAY(4MB0XC,6,0) 

GO  TO  33C0 

C2500  CALL  ATAPES  (MM 
2530  CALL  OVERL AY( 4HB0 XC,6 ,0) 

NSKIP  = 0 

2900  NCFLG  = MINC  (NSOL,  NFL  - NSKIF) 

C CALL  SIGMA  (NFLCOM  ) 

CALL  OVERLAY(4HB0XC,5,0) 

ITER  = 0 

C3303  CALL  PRINT1  (NFLCOM,  MN,  KMAT,  NSECI 
3300  CALL  GVERLAY(4HB0XC,7,0> 

NFLCOM  = NFLCCM  NCFLG 
NSKIP  = NSKIP  » NCFLG 
IF  (NCCOE  .EQ.  1)  GO  TO  37U0 
IF(  NSKI  f .NE.  NFL  ) GO  TO  2900 
MN  = MN  ♦ 1 

IF  ( KMAT  - 2 ) 3500,  3600,  5000 

3500  IF  ( NBFLOX  > 3600,  3603,  3550 
3550  NFL  = NBFLCW 
KMAT  = 2 
GO  TO  2530 
3600  IF  ( NCFLOt  ) 

3650  NFL  = NCFLCW 
KMAT  = 3 
GO  TO  2500 
3730  IF  (MN  .EQ.  2 
Nl  = 10 
N2  = 13 


5000,  500 j , 3650 


.OR.  NM AT  * EQ.  1)  GO  TO  5000 


N2, 


N3,  3,  12475) 


BOXC  115 
80  XC  116 
aoxc  ii7 
BOXC  118 

eoxc  ii9 
aoxc  120 

BOXC  121 

aoxc  122 
eoxc  123 
BOXC  124 

aoxc  125 

BOXC  126 
BOXC  127 
BOXC  126 
BOXC  129 
BOXC  130 
BOXC  1 21 
BOXC  132 
BOXC  133 
BOXC  134 
BOXC  125 
BOXC  136 
BOXC  137 
BOXC  136 
BOXC  139 
BOXC  140 
BOXC  141 
BOXC  142 
BOXC  143 
BOXC  144 
BOXC  145 

eoxc  1*6 

BOXC  147 
BOXC  148 
BOXC  1*9 
BOXC  150 
BOXC  151 
BOXC  152 
BOXC  153 
aoxc  154 
BOXC  155 
BOXC  156 
BOXC  157 
BOXC  158 
BOXC  159 
BOXC  160 

aoxc  161 
BOXC  1(2 

aoxc  163 
aoxc  164 
aoxc  165 
aoxc  166 

BOXC  167 
BOXC  168 
BOXC  169 

aoxc  170 

BOXC  171 
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I 

f, 

‘4. 


PROGRAM  MAIN  74/74  OPT=2 


N3  = 8 
MN  = 2 

C •*  POSITION  1HE  TAPE  FOR  THE  SIGFAS. 
JJ  = 2 

IF  ( IS IG  .NE.  C)  JJ  = 3 
JJ  = NFLOW  * JJ  ♦ NFL 
DO  3750  J = 1 , JJ 
3750  READ  (3) 

NFL  = NFLOW  - NFL 
* * KNAT  - 2)  38  JO,  3933,  5000 

3800  IF  (NBFLOWI  3900,  3900,  3650 
3850  KMAT  = 2 

GO  TO  2450 
3900  KMAT  = 3 

GO  TO  2450 
5300  CONTINUE 

WRITE  «6,  E1C 0 > 

5130  FORMAT  <1HQ , 10X,  12HLEA/ING  MAIN! 


CALL  EXIT 

C IF  (LIST  • NE,  01  STOP 

GO  TO  1 
END 


FTN  4. 7+476  02/27/80  17.14,35 


30  XC 

172 

80XC 

173 

80XC 

1 74 

eoxc 

175 

aoxc 

176 

30X0 

177 

aoxc 

176 

aoxc 

179 

BO  XC 

163 

BO  XC 

161 

90  XC 

182 

eoxc 

183 

BO  XC 

16* 

BO  XC 

185 

dO  XC 

186 

eoxc 

187 

aoxc 

188 

BO  XC 

189 

eoxc 

150 

aoxc 

191 

eoxc 

152 

BOXC 

193 

aoxc 

194 

aoxc 

195 

eoxc 

196 

♦DECK, HEAOER 

HE  AO 

1 

SUBROUTINE  HEADER 

HEAD 

2 

COMMON  HE0R(15),MPR,NER,IPRS,ISIG, ITER, NCFLG, NFLOW, NQUAO, 

HEAO 

3 

1 KASE,  NOFF, NSYM, IFLAG»IFLOM,NCOO£ 

HEAD 

4 

OATA  IPAGE/0/ 

HEAO 

5 

1 FORMAT ( 1H1,  5X,  13HPROGRAM  BOXC  , 15X,  30HATMOSPHERIC 

SCIENCE 

ASSHEAO 

6 

10CIATES/  38X,  22HBECFCR0,  MASSACHUSETTS,  22X,  4HPAGE, 

15/ 

HEAO 

7 

2 7X , 8HB00Y  10.,  2X,  A4/  30 X,  ISAM 

He  AO 

8 

10  IPAGE  = IPAGE  ♦ 1 

He  ao 

9 

WRITE  (6,1)  IPAGE,  KASE,  FEOR 

HEAD 

10 

RETURN 

HEAO 

11 

ENO 

HEAO 

12 

*0  ECK*  ROWV  ROWV 

SU8R0UT INE  ROWVf  XIJ,  YK,  ZIJ,  III,  KSKIP  ) ROWV 

COMMON  HEOR (15) , MPR,NER ,IPRS, ISIGt ITER, NCFLG, NFL OH, NQUAO , ROWV 

1 KA  SE  * N OFF , NS  Y M,  IF  LA  G , IFLO  W , NCO  OE  ROWV 

LOGICAL  AFLOW,  6 FLOW , CFLOW  ROWV 

COMMON  /OFLOW/  A FLOW,BFLOW, CFLOW,HMAT, NMATM1,NAFL0W,NBFL0W, NCFLOW  ROWV 
01  MENS  ION  XIJ(l),  YIJ(l),  ZIJC1)  ROWV 

INTEGER  CKFLG  ROWV 

DIMENSION  NT(3)  ROWV 

DATA  NT  / 1,  11,  12  / ROWV 

5 CKFLG  = 0 ROWV 

N1  = 1 ROWV 

N2  = NQUAO/  3 ROWV 

N3  = NQUAO  - N2  - N2  ROWV 

NN  = N2  ROWV 

C READ  IN  ONE  ROW  CF  THE  VX,  VV,  VZ  ROWV 

00  50  II  = 1,  3 ROWV 

NT  APE  = NT  ( ID  ROWV 

10  READ  (NT  APE)  (XIJ  (12)  , YIJ(I2)  , ZIJU2)  , 12  = Nl  , NN  ) ROWV 

HI  * NN  t 1 ROWV 

IF(  II  .EQ.  2 > GO  TO  35  ROWV 

NN  = NN  ♦ N2  ROWV 

GO  TO  50  ROWV 

35  NN  = NN  ♦ N3  ROWV 

50  CONTINUE  ROWV 

NER  = 0 ROWV 

IF  ( III  .NE.  (NQUAO  ♦ NOFF ) ) IF  I KSKIP  ) 8Q,  80,  100  ROWV 

REWIND  1 ROWV 

REWIND  11  ROWV 

REWINO  12  ROWV 

80  RETURN  ROWV 

100  IF  ( NMATN1  .EQ.  0 ) RETURN  ROWV 

DO  11C  Nl  = 1,  NNATH1  ROWV 

REAO  ( 1 ) ROWV 

REAO  ( 11  ) ROWV 

110  READ  ( 12  ) ROWV 

RETURN  ROWV 

ENO  ROWV 
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8 
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10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 
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♦DECK, INPUT  INPU 

SUBROUTINE  INPUT  INPU 

C SUBROUTINE  INPUT  (LIST)  INPU 

LOGICAL  IPROS  INPU 

CONNON  /INPT/  LIST,  IPROS  INPU 

REAL  NX,  NY,  NZ  , IXX,  IXY,  IYY*  MACH  INPU 

LOGICAL  AFLOW,  BFLOW , CFLOW,  RFLAS,  AFLAC,  BFLAG  INPU 

INTEGER  STAT,  STATT,  CONV  INPU 

DIMENSION  SPH  200),  CPH  ( 200  ),  XINP  (200  ),  ZINP  ( 200  ) INPU 
DIMENSION  XOFF ( 1000 ) , YCFF  (1000),  ZOFF  (1000)  INPU 

OIMENSION  XA  ( 500  ),  XB  ( 500  ) , YA  ( 500  ) , YB  4 500  ) » INPU 

1 ZA  ( 500  ),  ZB  ( 500  ),  NLINE(5Q0  ),  NLT  ( 500  ),  CFLAG (3) , INPU 

2 XI  (4),  ETA  (4),  XIN  (4),  YIN  (4),  ZIN  (4),  XNULL  (1000),  INPU 

3 YNULL  (1000)  , ZNULL  110  CO),  XNCRM(IOOO)*  INPU 

4 YNORM  ( 1(00)*  ZNORM  (1000),  R<  (4),  R (4),  RY  (4)  INPU 

COMMON  HEOR (15) *MPR,NER, IPRS, ISIG,  ITER, NCFLG,NFLOW,NQUAO,  INPU 

1 KASE,NOFF,NSVH,IFLAG,IFLOW,NCOOE  INPU 

COMMON  /M/  MACH,  BETA,  R8ETA  INPU 

COMMON  /NORMS/  XNORM,  YNORM,  ZNCRM  INPU 

EQUIVALENCE  (XNULL,  XOFF),  ( YNULL,  YOFF) , INPU 

1 (ZNULL,  ZOFF),  (NULL,  NQUAD)  INPU 

COMMON  /DFLOW/  AFLCW ,BFL CM , CFLOW, NMAT, NMATM1,N AFLOW, N8FLCW , NCFLOW  INPU 
OATA  CFLAG  ✓ 2H  1,  2H  2,  2H  / INPU 

DATA  PI /3, 14159 3 EO/,  HAFFI/i. 570796EQ/ » EPS/. 0001/  INPU 

3030  FORMAT  (1H1)  INPU 

1 FORMAT  ( 3E10.0,  12  / 3F10.S*  12)  INPU 

4002  FORMAT  ( 1H0,  6X,5HN  M,  7X,  4 ( 1HX,  HX  ),  2HNX , HX,  3HNPX,  INPU 

1 11X,  1HD  / 19X,  4 ( 1HY,  UX  ),  2HNY , 11X,  3HNPY , 11X,  1HT  / INPU 

2 19X,  4(1HZ,  11X  ),  2HNZ,  11X,  3^PZ,  11X,  1HA  ) INPU 

4005  FORMAT  ( 1H0,  7X,  14,  4F12.6,  2F13.6,  £14. 4 , A2/ ( 12X, 4F 12 . 6,  INPU 

1 2F13.6,  E14.4  ) ) INPU 

4^,10  FORMAT  ( 1H0,  3X,  214,  4F12.6,  2F13.6,  E14.4,A2/  (12X,  4F12.6,  INPU 

1 2F13.6,  El 4. 4 ) ) INPU 

4015  FORMAT  ( 1HC,  3 ( 20  >,  12H************  ))  INPU 

INPU 

C INPUT  — SECTION  9,1  INPUT  SCHEME  INPU 

KLCT  = 0 INPU 

NULL  = 0 INPU 

NPRT  = 13  INPU 

WRITE  (6,  40)  INPU 

40  FORMAT  (1H0,16X, 44HP  ARAMETRIC  INFORMATION  INPU 

1 ///  38X,23HGENERATEO  UNIFORM  FLOWS  //)  INPU 

IF  ( AFLOW  ) WRITE  (6,  41)  INPU 

41  FORMAT  (46X,6HX-FL0W)  INPU 

IF  ( BFLOW  ) WRITE  (6,  42)  INPU 

42  FORMAT  (46X,6HY-FL0W)  ijNPU 

IF  ( CFLOW  ) WRITE  (6,  43)  INPU 

43  FORMAT  (46X,6HZ-FL0W)  INPU 

IF  (IPRS  *NE.  0)  WRITE  (6,  44)  INPU 

44  FORMAT  (1H0.16X, 22HPRINT  SIGMA  IT- RATIONS  ) INPU 

IF  (MPR  • EQ • 0)  GO  TO  52  INPU 

IF  (MPR  - 2)  45,  47,  49  INPU 

45  WRITE  (6,  46)  INPU 

46  FORMAT  (1M0 ,16X, 16 FPRINT  VIJ  MATRICES)  INPU 

. GO  TO  52  INPU 

47  WRITE  (6,  48)  INPU 

48!  FORMAT  (1H0.  ,16X,  18HP  dNT  AIJ  MATRICES  ) INPU 

GO  TO  52  INPU 

49  WRITE  (6,  51)  INPU 

51  FORMAT  (1H0,16X, 31 FPRINT  BOTH  VIJ  ANO  AIJ  MATRICES  I INPU 
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2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
1*7 
18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 


52  IF  IISIG  .NE.  0)  WRITE  (6,  53) 

INPU 

61 

53  FORMAT  (1H0  ,16X,  19HINPUT  SIGMA 

GUESSES  ) 

INPU 

62 

IF  CNSYM  - 1)  54,  56,  58 

INPU 

63 

54  WRITE  (6,  55) 

INPU 

64 

55  FORMAT  (1H0,16X, 21HNC  SYMMETRY 

SPECIFIED  ) 

INPU 

65 

GO  Tff  61 

INPU 

66 

56  WRITE  (6,  57) 

INPU 

67 

57  FORMAT  (1H0  *16X, 30HTHERE  IS  ONE 

PLANE  OF  SYMMETRY  ) 

INPU 

68 

GO  TO  61 

INPU 

69 

58  WRITE  (6,  59)  NSYM 

INPU 

70 

59  FORMAT  (1H0,16X,9HTHERE  ARE, 12, 

19H  PLANES 

OF 

SYMMETRY 

) INPU 

71 

61  IF  I MACH  ,NE,  0,0  ) WRITE  (6, 

21)  MACH 

INPU 

72 

21  FORMAT  (1H0,16X, 13HMACH  NUMBER 

-•F10.5) 

INPU 

73 

IF  (IFLAG  ,EQ,  0)  GO  TO  29 

INPU 

74 

REAO  (5,  20)  NLM1,  MMIN,  B,  C 

INPU 

75 

IF  (3  , EQ,  0.0)  B = 1,0 

INPU 

76 

IF  (C  • EQ,  0.8)  C = 1,0 

INPU 

77 

20  FORMAT  ( 215,  2F10,5  ) 

INPU 

78 

4 FORMAT  ( OF 18,0  ) 

INPU 

79 

WRITE  (6,  62)  NLM1,  MIN,  3,  C 

INPU 

80 

62  FORMAT  I1H0*16X,10HGENERATE  A, 13,  2H  X,I3, 

12H 

SPHERE. 

B = ,F  10.5 , INPU 

81 

1 4X,  3HC  =,F10.5  ) 

INPU 

82 

MLINES  = MMIN  ♦ 1 

INPU 

63 

N LINES  = NLM1  f 1 

INPU 

64 

N = 0 

INPU 

85 

IF  ( NSYM  , EQ,  0 ) GO  TO  2 

INPU 

86 

! IF  C NSYM  - 2 ) 3,  5,  6 

INPU 

87 

2!  PITH  = PI 

INPU 

68 

PIPHI  = PI  ♦ PI 

INPU 

69 

GO  TO  7 

INPU 

90 

3!  PITH  = PI 

INPU 

91 

PIPHI  = PI 

INPU 

92 

GO  TO  7 

INPU 

93 

5!  PITH  = PI 

INPU 

94 

PIPHI  = HAFPI 

INPU 

95 

GO  TO  7 

INPU 

96 

6 PITH  = HAFPI 

INPU 

97 

PIPHI  = PITH 

INPU 

98 

7 SPH  ( MLINES  ) * SIN  I PIPHI  ) 

INPU 

99 

SPH  ( 1 ) = 0.0 

INPU 

100 

CPH  ( MLINES  ) * CCS  C PIPHI  ) 

INPU 

101 

CPH  ( 1 ) - 1.0 

INPU 

1S2 

EKN  = MMIN 

INPU 

10  3 

EKN  = NLM1 

INPU 

104 

EMM  =0.0 

INPU 

105 

00  8 1=2,  MMIN 

INPU 

106 

EMM  = EMM  ♦ 1,0 

INPU 

107 

PHI  = EMM  / EKN  * PI  FHI 

INPU 

108 

SPH  III*  SIN  ( PHI  ) 

INPU 

109 

6 CPH  1 I ) = COS  I PHI  ) 

INPU 

110 

IF  C IFLAG  ,EQ.  2 ) GO  TO  10 

INPU 

111 

ENN  = 1,0 

IRPU 

112 

00  9 1 = 1,  MLINES 

INPU 

113 

XA  ( I ) = 1.0 

If^PU 

114 

YA  ( I ) = 0.0 

INPU 

115 

9 ZA  (I  ) = 0.0 

INPU 

116 

GO  TO  18 

INPU 

117 

10  REAO  1 5,  4 ) ( XINP  II),  ZINP  1 I ),  I = 

It 

NLINES  1 

• INPU 

118 

00  11  1 = 1,  MLINES 

INPU 

119 

XA  1 I ) = XINP  111 

INPU 

120 

101 


YA  C I ) = B * 2 INF  I i ) * SPH  (It 

ZA  ( I ) a - C ♦ ZINF  (II*  CPH  C I I 

XB  l I I a XINP  ( 2 I 
YB  m s B * ZINP  ( 2 I * SPH  4 I ) 

! 11  Z8  ( I I a - C * ZINF  I 2 I * CPH  4 I I 

NLCT  * 2 
1 60  TO  2 50 

i 12  DO  14  I : 1,  NLINES 
XA  C I I = XB  C I I 

YA  ( I I = VB  ( I I 

14  ZA  ( I ) = ZB  ( I ) 

IF  I IFLAG  .EQ.  1 ) GO  TO  16 

l NLCT  = NLCT  ♦ 1 

00  15  I s 1*  MLINES 
XB  ( I ) - XINP  ( NLCT  ) 

YB  ( I ) a B * ZINP  ( NLCT  » * SPH  4 I I 

! 15  ZB  I I > = - C * ZIIP  ( NLCT  I * CPH  4 I 1 

GO  TO  250 

I 16  ENN  = ENN  ♦ 1.0 

18  THETA  a ENN  / EKN  * FITH 
STH  = SIN  ( THETA  ) 

CTH  = COS  ( THETA  ) 

DO  17  I = 1,  MLINES 
XB  ( I I a CTH 

YB  ( I > = B * STH  * SPH  ( I I 

i 17  ZB  ( I > = - C * STH  * CPH  ( I ) 

GO  TO  2 50 
29  N a -1 

1 IF  (LIST  .EQ.  0)  GO  TO  50 

WRITE  (6,  19) 

I 19  FORMAT  (1H0  16X  28HBASIC  OATA  CALCULATIONS  ONLY) 
| GO  TO  50 

39  IF  ( RFLAG  I GO  TO  50 
RFLAG  = .TRUE. 

X'  = XX 
Y = YY 
Z = ZZ 

STAT  = STATT 
IF  (LIST)  66,  66,  65 
50  RFLAG  = .FALSE. 

READ  ( 5,  1 I X,  Y,  Z,  STAT,  XX,  YY , ZZ,  STATT 
IF  ( IPROS  ) CALL  OA TPRO £ ( X,  Y,  Z,  XX,  YY,  ZZ  ) 

65  IF  (N  .EQ.  (-1)  IGO  TO  80 

66  IF  (STAT  .EQ.  0 .OR.  STAT  .EQ.  3)  GO  TO  180 

! IF  ( STAT  .EQ.  2 I GC  TO  200 

IF  ( .NOT.  AFLAG  ) GO  TO  200 
j j HC  = M 
I 80  M = 1 

IF  ( STAT  .EQ.  2 ) GO  TC  150 
| • i IF  f .NOT.  BFLAG  > GO  TO  84 
75|  00  81  J = 1,  MC 
| XA  ( J ) = XB  ( J I 

i YA  ( J ) * YB  ( J ) 

81  ZA  ( J I = ZB  ( J I 

83  XB  ( 1 I = X 

YB  ( 1 I = Y 
ZB  ( 1 ) = Z 
GO  TO  30 

84  IF  ( AFLAG  I GO  TO  85 
BFLAG  = .TRUE. 


INPU  121 
INPU  122 
INPU  123 
INPU  124 
INPU  125 
INPU  126 
INPU  127 
INPU  128  1 

INPU  129 
INPU  130 
INPU  131 
INPU  132 
INPU  133 
INPU  134 
INPU  135 
INPU  136 
INPU  137 
INPU  138 
INPU  139 
INPU  1 AO 
INPU  141 
INPU  142 
INPU  143 
INPU  144 
INPU  145 
INPU  146 
INPU  147 
INPU  148 
INPU  149 
INPU  150 
INPU  151 
INPU  152 
INPU  153 
INPU  154 
INPU  155 
INPU  156 
INPU  157 
INPU  1 ;8 
INPU  159 
INPU  160 
INPU  141 
INPU  16 2 
INPU  163 
INPU  164 
INPU  165 
INPU  166 
INPU  167 
INPU  168 
INPU  169 
INPU  170 
INPU  171 
INPU  172 
INPU  173 
INPU  174 
INPU  175 
INPU  176 
INPU  177 
INPU  178 
INPU  179 
INPU  160. 
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GO  TO  75 

85  AFLAC  = .FALSE. 

GO  TO  8 3 

150  AFLAG  = .TRUE. 

BFLAG  = .FALSE. 

IF  CN  .EQ.  (-DIN  « 0 
160  XA  < M > = X 
YA  C M I * Y 
ZA  C M ) = Z 
GO  TO  3C 
180  M « M ♦ 1 

IF  ( AFLAG  > GO  TO  1€0 
XB  CM  ) = X 
Y8  I H ) * V 
ZB  C N ) = Z 

IF  C STAT  .NE.  3 I GO  TO  30 
200  WHIN  = MIN0CM,  MCI  - 1 
MC  = M 

250  N = N ♦ 1 

KLCT  = KLCT  ♦ 1 


DO  2000 

I 

: = 1,  MMIN 

NULL  = 

NULL  «■  1 

XINC1) 

= 

X A 1 I ) 

* 

RBETA 

XINC2I 

= 

xa  cum 

* 

RBETA 

XINC3) 

X8CI+1) 

R8ETA 

XINC4) 

= 

XB  C I ) 

* 

REETA 

YINC1) 

ss 

YACI) 

YINC2) 

— 

YACI  + 1) 

YINC3) 

s 

Y9CI+1) 

YINC4) 

a 

YB  Cl) 

ZIN(l) 

= 

ZACI) 

ZINC2) 

- 

ZACI+1) 

ZINC3) 

s 

Z8CI  + 1) 

Z I N C 4 ) 

= 

ZB  Cl ) 

C FORM  DIAGONAL  VECTORS 
C EQUATION  C 64  ) 

T1X  = XINC3)  - X IN ( 1 ) 

T2X  = XINC4)  - X IN ( 2 ) 

T1V  = YINC3)  - YIN (1 ) 

T2Y  = Y IN( 4 ) - YIN (2 ) 

T1Z  = ZINC  3 ) - ZINC1) 

T2Z  = ZINC4)  - ZINC2) 

C FORM  CROSS  PRODUCT  N = T2  X Tl 
C E CU  AT  I ON  ( 65  ) 

NX  = T2 Y*T 1Z  - T1Y*T2Z 
NY  = T1X*T2Z  - T2X*T 1Z 
NZ  = T2X*T1Y  - T IX  *T2Y 
VN  = SORT  C NX*  NX  ♦ NY*  NY  ♦ 

C FORM  UNIT  NORMAL  VECTCR 
C E CU  ATI  ON  C 66  ) 


NX  = NX  / VN 


INPU  181 
INPU  182 
INPU  183 
INPU  184 
INPU  185 
INPU  186 
INPU  187 
INPU  188 
INPU  189 
INPU  190 
INPU  191 
INPU  192 
INPU  193 
INPU  194 
INPU  195 
INPU  196 
INPU  197 
INPU  198 
INPU  199 
INPU  20  9 
INPU  201 
INPU  202 
INPU  203 
INPU  204 
INPU  205 
INPU  206 
INPU  207 
INPU  208 
INPU  209 
INPU  210 
INPU  211 
INPU  212 
INPU  213 
INPU  214 
INPU  215 
INPU  216 
INPU  217 
INPU  218 
INPU  219 
INPU  220 
INPU  221 
INPU  222 
INPU  223 
INPU  224 
INPU  225 
INPU  226 
INPU  227 
INPU  228 
INPU  229 
INPU  230 
INPU  231 
INPU  232 
INPU  233 
INPU  234 

NZ*  NZ  ) INPU  235 

INPU  236 
INPU  237 
INPU  238 
INPU  239 
INPU  240 


C BEGIN  COMPUTATION  OF  NULL  POINTS  AND'  26  QUANTITIES 
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NY  a NY  / VN 

1 

INPU 

241 

NZ  = NZ  ✓ VN 

J 

INPU 

242 

■ 

INPU 

243 

c 

COMPUTE  AVERAGE  POINT 

A 

INPU 

244 

c 

EQUATION  1 68  ) 

INPU 

245 

INPU 

246 

AVX  * .25  * C XINC 1)  ♦ XINC 2)  ♦ XINC3)  >> 

XINC4) 

1 

INPU 

247 

AVY  = .25  * C YIN  Cl ) + YINC2)  ♦ YINC3)  * 

YINC4) 

) 

INPU 

248 

AVZ  a .25  * C ZINCil  ♦ ZINC  2)  ♦ ZINC3>  ♦ 

ZINC4) 

) 

INPU 

249 

INPU 

250 

c 

COMPUTE  PROJECTION  DISTANCE 

INPU 

251 

c 

EQUATIONS  C 69  ) AND  C 71  ) 

INPU 

2 52 

INPU 

253 

D * NX*C  AVX  - XI  Ml)  ) «•  NY*  C AVY  - YINC1I  ) 

♦ NZ*  CAVZ~ZIN  CD)  INPU 

2 54 

PD  * ABSC  D ) 

INPU 

255 

INPU 

256 

c 

EQUATIONS  C 73  ) AND  C 74  ) 

INPU 

257 

INPU 

258 

T = SORT  C T1X*T1X  ♦ T1Y*T1Y  ♦ T1Z*T1Z  ) 

INPU 

2 59 

T1X  = T1X  / T 

INPU 

260 

T1Y  = T1Y  / T 

INPU 

261 

TiZ  * T 1Z  / T 

INPU 

262 

INPU 

263 

c 

EQUATION  C 75  ) 

INPU 

264 

INPU 

265 

T2X  = N Y*T 1Z  - NZ*T1Y 

INPU 

266 

T2Y  = N Z* T 1 X - N X* T 1 Z 

INPU 

267 

T2Z  a NX*Tl V - NY*T1X 

INPU 

268 

INPU 

269 

c 

COMPUTE  COORDINATES  OF  CORNER  POINTS  IN  REFERENCE  COORO.  SYSTEM 

INPU 

270 

c 

EQUATION  C 72  ) 

INPU 

271 

INPU 

272 

00  1300  J = 1,  4 

INPU 

2 73 

XP  = XINCJ)  ♦ NX  * 0 

INPU 

2 74 

YP  = YIN(J)  ♦ NY  * 0 

INPU 

275 

ZP  = ZINCJ)  ♦ NZ  * 0 

INPU 

276 

0 = - 0 

INPU 

277 

XDIF  = XP  - AVX 

INPU 

2 78 

YDIF  = YP  - AVY 

INPU 

2 79 

ZDIF  = ZP  - AVZ 

INPU 

280 

INPU 

261 

c 

TRANSFORM  CORNER  POINTS  TO  ELEMENT  COORDINATE  SYSTEM  C XI, 

ETA 

) 

INPU 

282 

c 

! WITH  AVERAGE  P (INT  AS  ORIGIN 

INPU 

263 

c 

E GUATION  C 80  ) 

INPU 

264 

INPU 

265 

XICJ)  = T1X*XDIF  ♦ T1Y* YDIF  ♦ T1Z*ZDIF 

INPU 

286 

1000  ETACJ)  * T2X*XDIF  ♦ T2Y*V0IF  ♦ T2Z*Z0IF 

INPU 

287 

INPU 

268 

C 

COMPUTE  CENTROID 

INPU 

289 

C 

EQUATION  ( 81  ) 

INPU 

290 

INPU 

291 

XIO  = • 3333333E0  * C XI  (4)  ♦ C ETA  Cl)  - 

ETA  C2 ) > + XI 

C 2 

) 

INPU 

292 

1 * C ETA  C 4)  - ETA  C 11  1 ) / C ETA  C2  ) 

- ETA 

14)  ) 

INPU 

293 

ETAO  = -.3333333E0  * ETAC1) 

INPU 

294 

INPU 

295 

INPU 

296 

C 

OBTAIN  CORNER  POINTS  IN  SYSTEM  WITH  CENTROID 

AS  ORIGIN 

INPU 

297 

C 

EQUATION  C 82  ) 

INPU 

298 

INPU 

299 

DO  1020  J a 1,  4 

INPU 

300 

104 


1 


XICJ)  = XICJ)  - 

XIO 

INPU 

301 

102  C ETA(J)  = ETA(J) 

- ET  AO 

INPU 

302  i 

INPU 

303  j 

C 

COMPUTATION  A IOS 

INPU 

304 

ETA2M1  a ETA  « 2 

> - ETA  ( 1 ) 

INPU 

305  ; 

ETA3M2  = ETA  ( 3 

) - ETA  ( 2 ) 

INPU 

306  1 

ETA4N3  * ETA  ( 4 

) - ETA  ( 3 I 

INPU 

30  7 'J 

ETA1M4  = ETA  ( 1 

) - ETA  ( 4 1 

INPU 

308  j 

XII M2  * XI  C 1 1 

- XI  ( 2 1 

INPU 

309 

XI2M3  = XI  C 2 > 

- XI  ( 3 ) 

INPU 

310 

XI3M4  s XI  (31 

- XI  ( 4 ) 

INPU 

311 

XI4M1  = XI  C 4 ) 

- XI  ( 1 ) 

INPU 

312 

ETA2P4  = ETA  ( 2 

) 4 ETA  ( 4 ) 

INPU 

313 

XI3M1  = XI  C 3 ) 

- XI  ( 1 ) 

INPU 

314 

XI4M2  = XI  ( 4 1 

- XI  ( 2 ) 

INPU 

315 

ETA2M4  = ETA  ( 2 

> - ETA  ( 4 > 

INPU 

316 

XII 234  * XI  ( 1 

) 4 XI  ( 2 ) 4 XI  ( 

3 ) 

4 XI  ( 

4 

1 

INPU 

317 

INPU 

318 

C 

TRANSFORM  CENTROIO 

TO  REFERENCE  COORDINATE 

SYSTEM 

INPU 

319 

c 

EGJATION  C 83  ) 

INPU 

320 

XCENT  * AVX  4 T1X*XI 0 4 T2X*ETA0 

INPU 

321 

YCENT  = AVY  4 T1Y*XI0  ♦ T2Y*ETAQ 

INPU 

3 22 

ZCENT  = AVZ  ♦ T1Z*XIC  + T2Z*ETAfl 

INPU 

323 

INPU 

324 

c 

COMPUTE  LARGER  OIAGCNAL  VECTOR 

INPU 

325 

c 

EQUATION  ( 84  > 

INPU 

326 

TSQ  A MAX  1 ( XI3M1  **  2,  XI4M2  **  2 

♦ 

ETA2M4 

** 

2 

) 

INPU 

327 

T = SQRT  ( TSQ  1 

INPU 

328 

INPU 

329 

INPU 

330 

c 

COMPUTE  AREA 

INPU 

331 

c 

EQUATION  €85  ) 

INPU 

332 

AREA 

=.54  XI3M1  4 ETA2M4 

INPU 

333 

INPU 

334 

c 

COMPUTE  2ND  MOMENTS 

IXX,  IXY*  IYY 

INPU 

335 

c 

EQUATIONS  ( 86  1 - 

( 88  ) 

INPU 

336 

IXX  = 

8.3  23333E-2  * XI3M1 

* 

< ETA  ( 

1 

) 

♦ XI4M2  * 

INPU 

337 

1 X 1 1 2 3 4 4 ETA2M4  * ( XI  (1)  * ( XIII) 

4 XI  (3 

) 

) 

* 

INPU 

338 

2 XI  ( 3 ) *»  2 

) 4 XI  ( 2 ) 4 ETA  ( 

2 

) * ( X IJ.23 4 

- XI  ( 4 ) 

) INPU 

339 

3 - XI  ( 4 ) 4 

ETA  ( 4 ) 4 ( XI1234 

- 

XI  ( 2 

) 

1 

) 

INPU 

340 

IX  Y = 

4.166667E-2  ♦ XI3M1 

* 

( 2.  ♦ 

XI 

( 

4 ) * ( ETA 

(1)  INPU 

3 41 

1 *4  2 - ETA  ( 4 

) **  2 ) - 2.  * XI 

( 

2 ) * ( 

ETA 

( 1 ) 44  2 

- INPU 

342 

2 ETA  ( 2 ) 4*  2 

) 4 ( XI  ( 1 ) 4 XI 

( 

3 1)4 

ETA2M4  * ( 2.  * 

INPU 

343 

3 ETA  ( 1 ) 4 ETA2P4  ) > 

INPU 

344 

IYY  = 

8 .333333E-2  * XIJM1 

* 

ETA2M4 

♦ 

< (ETA  (1)4 

INPU 

345 

1 ETA2P4  ) **  2 

- ETA  (1)*  ETA2P4 

mm 

ETA  ( 2 

) 

ETA  ( 4 ) I 

1 INPU 

3 46 

INPU 

347 

c 

COMPUTE  CONSTANTS  FOR  EQUATIONS  ( 42  ) 

AND 

( 43  ) 

INPU 

346 

c 

ECUATION  ( 45  ) 

INPU 

3 49 

012SQ  s XI1M2  4* 

2 4 ET  A2M1  *4  2 

INPU 

3 50 

012  = SORT  I 012SQ  ) 
023SQ  = XI2M3  *»2  + 

023  = SQRT  C 023 SC  ) 
034SQ  = XI3M4  **2  4 
034  = SQRT  ( 034SQ  ) 
041SQ  = XI4H1  *»  2 ♦ 
041  = SQRT  ( 041SQ  ) 
Cl  = 0*0 
C2  * 0.0 
C3  = 0.0 


ETA3M2  **  2 


ETA4M3  **  2 
ETA1M4  **  2 


INPU  351 
I^IPU  352 
INPU  353 
INPU  354 
INPU  355 
INPU  356 
INPU  357 
INPU  358 
INPU  359 
INPU  360 


105 


C4  = O.C 
C5  = 0.0 
C6  = 0.0 
C7  = 0.0 
C8  = 0.0 
XNP  =0.0 
YNP  = 0.0 

IF  ( 012  ) 1033,  1040, 
10  30  Cl  = ETA2M1  / Dl  2 
C5  = XI1M2  / 012 
1040  IF  ( 023  ) 1050,  1060, 

1050  C2  = ETA3M2  / D23 
C6  = XI2M3  / 023 
1060  IF  ( D34  ) 1070,  1080, 
1070  C3  = ETA4M3  / D34 
C7  = XI3M4  / 034 
1080  IF  ( 041  ) 109C,  1100, 
1090  C4  = ETA1H4  / 041 
C8  = XI4M1  / 041 
1100  CONV  = 3 


1030 

1050 

1070 

1090 


C BEGIN  NULL  POINT  ITERATION 


DO  1591  ITR  = i,  3(j 
DO  1580  K = 1,4 


EQUATION 

( 47 

) 

R ( K 

> = SQRT 

( ( XNP 

RX  (K 

) = ( 

XNP 

- XI 

( 

1580  RY  (K 

) = ( 

YNP 

- ETA 

( 

R10R2 

= R 

1 1 

) + 

R 

R2PR3 

= R 

1 2 

) «• 

R 

R3PR4 

= R 

C 3 

) + 

R 

R4PR1 

* R 

I 4 

) + 

R 

ARGi  = 

alog 

I ( 

R1PR2 

mm 

R4PR1 

= R 

C 4 

) + 

R 

ARGI  = 

ALOG 

( ( 

R1PR2 

ARG2  = 

ALOG 

( 1 

R2PR3 

- 

ARG  3 = 

ALOG 

CCR3PR4  - 

o; 

ARG4  = 

ALOG 

( IR4PR1  - 

0 

-XI  IK))  **  2 ♦ I YNP 
K ) ) / R I K ) 

K » ) / R I K ) 

( 2 ) 

< 3 ) 

( 4 ) 

I 1 ) 

012  )/  ( R1PR2  ♦ 012  ) ) 

< 1 ) 

012  ) / ( R1PR2  ♦ 012  ) ) 

C23  ) / I R2PR3  ♦ C2o  ) ) 

54  ) / ( R3PR4  ♦ C34  ) ) 

41  ) / { Rt,pRi  + ) ) 


ETAIKI ) ** 


C 

C 


C 

c 


COMPUTE  INDUCED  VELOCITY  OPPONENTS 
EQUATIONS  ( 42  ) AND  C 43  ) 

VX  = Cl  * ARGI  ♦ C2  * ARG2  ♦ C3  * 
VY  = C 5 * ARG1  «•  C6  * ARG2  ♦ C7  * 


ARG3  ♦ C4 
ARG  3 ♦ C8 


* ARG  4 
* ARG4 


COMPUTE  PARTIAL 
EQUATION  ( 90  ), 


DERIVATIVES  OF  INDUCED  VELOCITIES 
USINo  EQUATIONS  I 91  ) - { S3  ) 


Ol2P= 

I R.1PR2 

*♦  2 

- 012 

SQ 

) 

* 

• 5 

023P= 

1 R2PR3 

**  2 

- 023 

SQ 

) 

* 

• 5 

D34P= 

( R3PR4 

**  2 

- 034 

SQ 

) 

• 5 

D4iP= 

I R4PR1 

*♦  2 

- 041 

SQ 

) 

# 

• 5 

CliP  = 

ETA2M1  / 

D12P 

C2P  = 

ETA3M2  / 

023P 

C3P  = 

ETA4M3  / 

034P 

C4P  = 

ETA1M4  / 

0 41P 

C5P  = 

XI1M2  / D12P 

INPU  361  ' 
INPU  3 62 
INPU  363 
INPU  364 
INPU  365 
INPU  366 
INPU  367  I 
INPU  368 
INPU  3 69 
INPU  3 70 
INPU  371 
INPU  372 
INPU  373 
INPU  3 74 
INPU  375 
INPU  376 
INPU  3 77 
INPU  3 78 
INPU  379  j 
INPU  380  j 
INPU  381  ! 

INPU  362  j 
INPU  383  ■ 

INPU  384  j 
INPU  385  1 

INPU  366 
INPU  387  ; 

2 ) INPU  368 

INPU  369  ; 

INPU  390  1 

INPU  391  s 
INPU  392 
INPU  393 
INPU  394 
INPU  395  5 

INPU  396 
INPU  397 
INPU  398 
INPU  399  i 
INPU  400 
INPU  401 
INPU  402 
INPU  403 
INPU  *U4 
INPU  405  ; 

INPU  406 
INPU  407 
INPU  408  i 
INPU  409 
INPU  410  i 
INPU  411 
INPU  412 
INPU  413 
INPU  414 
INPU  415 
INPU  416 
INPU  417 
INPU  418 
INPU  419 
INPU  420 
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C6P  = XI2M3  / D23P 

C7P  = XI3M4  / 034P 

C8P  = XI4M1  / 04 IP 

R12Y  = RY  < t ) + RY  ( 2 J 

R23Y  = RY  ( 2 ) ♦ RY  < 3 > 

R34Y  = RY  ( 3 ) + RY  ( J)  ) 

R41Y  - RY  « 4 I ♦ RY  ( 1 ) 

VXX  = CiP*  ( RX  ( i ) ♦ RX  ( 2 ) ) ♦ C2P*  < RX  C 2 ) «•  RX  < 3 

1 C3P*  ( RX  I 3 ) ♦ RX  ( 4 I ) + C4P*  ( RX  ( 4 I ♦ RX  ( 1 

VXY  = C1P*  R12Y  ♦ C2P*  R23Y  ♦ C3P*  R34Y  ♦ C4P*  R41V 

VYY  = C5P*  R12Y  * C6P*  R23Y  ♦ C7P*  R34Y  ♦ C8P*  R41Y 


C COMPUTE  NEW  NULL  POINT  ( XNP*  YNP  ) 

C EQUATION  ( 94  ) 

XMXP  = ( VY  * VXY  - VX  * VYY  > / < VXX  * VVV  - VXY  ♦*  2 I 
XNP  = XMXP  ♦ XNP 

YNP  = YNP  - ( VX  ♦ VXX  * XMXP  ) / VXY 
C TEST  NULL  POINT  CONVERGENCE 

1590  IF  ( ASS  ( VX  ) .LT.  EPS  .AND.  ABS  < VY  > .LT.  EPS  > GO  TO  160 

1591  CONTINUE 

C NO  CONVERGENCE  • USE  30TH  ITERATION 

CON V = 2 

C TEST  IF  THIS  POINT  IS  OUTSIDE  THE  ELEMENT 
1600  IF  C XNP  **  2 ♦ YNP  **  2 .LE.  TS3  ) GO  TO  1620 

C CONVERGES  TO  POINT  AT  INFINITY 

CON  V = 1 

XNULL  C NULL  ) = XCENT 
YNULL  ( NULL  ) = YCENT 
ZNULL  C NULL  ) = ZCENT 
GO  TO  1700 

C TRANSFORM  NULL  POINT  TO  REFERENCE  COORDINATE  SYSTEM 

C EQUATION  ( 79  ) NOTE  THAT  Z * COORDINATE  IS  ZERO 

1620  XNULL  ( NULL  I = XCENT  ♦ TlX  * XN=-  ♦ T2X  * YNP 

YNULL  t NULL  ) = YCENT  ♦ TlY  * XN*  ♦ T2Y  * YNP 

ZNULL  ( NULL  J = ZCENT  ♦ TlZ  * XN®  «•  T2Z  * YNP 


INPU  42 
INPU  42 
INPU  42 
INPU  42 
INPU  42 
INPU  42] 
INPU  42| 
))  ♦ INPU  421 
) ) INPU  42| 
INPU  431 
INPU  43] 
INPU  431 
INPU  433 
INPU  43$ 
INPU  43! 
INPU  436 
INPU  43Jj 
INPU  438 
INPU  439 
INPU  4401 
INPU  441! 
0 INPU  442 
INPU  443! 
INPU  444! 
INPU  445 
INPU  446 
INPU  447 
INPU  448 
INPU  449 
INPU  450 
INPU  451 
INPU  452 
INPU  453 
INPU  454 
INPU  455 
INPU  456 
INPU  457 
INPU  458 
INPU  459 
INPU  460 
INPU  461 


C PRINT  RESULTS  — SECTION  9.4  THE  FIRST  OUTPUT 

1700  IF  < NPRT  .GE.  11  ) GO  TO  1750 
NPRT  = NPRT  «■  1 
IF  t I .EQ.  1 J GO  TO  1760 

WRITE  (6,  4035)  It  XINt  NX,  XNULL  ( NULL),  PC,  CFLAG  (CONV) , 

1 YIN,  NY,  YNULL  ( NULL) * T,  ZIN,  NZ,  ZNULL  I NULL  ),  AREA 
GO  TO  1770 
11750  NPRT  = 0 

CALL  HEADER 
WRITE  I 6,  4002  ) 

1760  WRITE  ( 6,  4010)  N , I,  XIN,  NX,  XNULL  I NULL  ),  PO,  CFLAG  CCONV 
1 ),  YIN,  NY,  YNULL  (NULL),  T,  ZIN,  NZ,  ZNULL  ( NULL  >,  AREA 

1770  XNORM  ( NULL  ) = NX 
YNORM  ( NULL  ) = N> 

ZNORM  ( NULL  ) = NZ 


INPU  462 
INPU  463 
INPU  464 
INPU  465 
INPU  466 
INPU  467 
INPU  468 
INPU  4 69 
INPU  470 
INPU  471 
INPU  472 
INPU  473 
INPU  474 
INPU  475 
INPU  476 
INPU  477 
INPU  478 
INPU  479 


INPU  48ft 


o o o o o o 


C WRITE  2 S QUANTITIES  CN  TAPE  4 AS  ONE  LOGICAL  RECORO 


0)  WRITE 
NX*  NY, 

AREA, 


(4)  XCENT * YCENT,  ZCENT , T 
NZ,  XIC1),  ETA (1) , XIC2) , 
IXX,  IX Y,  IYY,  012,  023 * 


t I H ( Cl 

034, 


041 


2001 


TO  2001 
12 


SO 


0 ) NQNN1  = NQUAD  ♦ 2 


2000  IF  (LIST  .SQ. 

1 T2X,  T2Y,  T2Z, 

2 XI (4),  ETA  <4) , TSQ, 

NLT  ( KLCT  ) = MMIN 
NLINE  C KLCT  ) = N 
IF  ( IFLAG  .EQ.  0 ) GO 
IF  ( N ,LT,  NLM1  ) GO  TO 
WRITE  ( 6,  4015  ) 

GO  TO  2025 

IF  ( STAT  .LT.  2 ) 60  TO 
NLTCKLCT)  = -NLT (KLCT) 

NPRT  s NPRT  «■  1 
WRITE  ( 6,  4015  ) 

C T £ST  FOR  ENO  OF  CASE 
2020  IF  f STAT  .NE.  3 ) GC  TO  80 
2025  NN1  = MOO  ( 3 * NQUAC,  255  ) 

NQNN1  * NQUAD 

IF  ( NN1  .LT.  5 .AND.  NN1  .GT. 

IF  (LIST.NE.  0)  GO  TO  8500 

C WRITE  UNIT  NORMALS  ON  TAPE  4 AS  OY£  LOGICAL  RECORD 

2031  WRITE  (4)  (XNORM(J),  YNORMCJ),  ZNDRM(J),  J « 1,  NQNN1) 

C WRITE  CONTROL  TABLES  ON  TAPE  * AS  ONE  LOGICAL  RECORO 

WRITE  ( 4 ) KLCT,  ( NLINE  (J),  NLTIJ),  J = 1,  KLCT  I 
C **  WRITE  NULL  POINTS  AND  NORMALS  (1  RECORO) 

3032  WRITE  ( 4) (XNULL ( J) , YNULL(J),  ZNULL(J) ,XNGRH(J),  YNORM ( J ) , ZNCRM ( 
1 , J = 1,  NQUAD) 

WRITE  ( 6,  3C30  ) 

C WRITE  ALL  NULL  POINTS  ON  TAPE  8 (1  LOGICAL  RECORO  / POINT) 

00  2058  1*1,  NQUAD 

2058  WRITE  (8)  XNULL  <I),  YMJLL(I),  Z NULL (I) 

READ  IN  OFF-BODY  POINTS 

IF  ( NOFF  ,LE«.  6 ) GC  TO  8000 
NOFF  = 0 

5000  NOFF  = NOFF  9-  1 

READ  (5,  1)  XOFF(NCFF),  YOFF(NOFF) ,Z OFF (NCFF) , STAT,  X,Y,Z,STATT 

IF  (STAT  .EQ.  3)  GO  TO  5100 

NOFF  = NOFF  ♦ 1 

XOFF  ( NOFF)  = X 

Y OFF  ( NOFF)  = Y 

ZOFF(NOFF)  = Z 

IF  (STATT  .NE.  3)  GO  TO  5000 

WRITE  0FF-90D Y POINT'  ON  8 ( 1 RECORC  / POINT  ) 

5100  DO  7020  1=1,  NOFF 

XOFF(I)  = XOFF (I ) * RBETA 
7C2C  WRITE  ( 8)  XOFF(I),  YOFF(I),  ZOFF(I) 

WRITE  OFF-BODY  POINTS  ON  4 (1  RECORD) 

WRITE  ( 4) (XOFF (I ) , YCFFCI),  ZOFF(I),  1=1,  NOFF) 

WRITE  ( 6 , 63)  NOFF 

63  FORMAT  <1H0 ,16X , 9HTHERE  ARE, 14,  1SH  OFF-BOOY  POINTS  ) 

8000  REWIND  4 


INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
J)  INPU 
INPU 
INIPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 
INPU 


481 

482 

483 
48  4 

485 

486 
467 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 
5G0 
521 

502 

503 
50  4 

505 

506 
50  7 
5C8 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 
5 29 

530 

531 

532 

533 

534 

535 

536 

537 
536 

539 

540 
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8500  REWINO  8 
C 

WRITE (6  » 9999)  NQUAD 

9999  FORMAT C 1H0  , 5X,  15,  2 CH  8ASIC  ELEMENTS  WERE  INPUT) 

C RETURN 

END 


INPU  541 
INPU  542 
INPU  543 
INPU  544 
INPU  545 
INPU  546 


*OECK*  OATPR  OATP 


SUBROUTINE  OATPROS(  X,  Y,  Z,  XX,  YY,  ZZ  ) OATP 

OATP 

THIS  IS  A SIMPLE  SCALING  ANO  ORIGIN  TRANSLATION  COOE  FOR  THE  OATP 

DOUGLAS  3QXC  POTENTIAL  FLOW  CODE  DATA  INPUT  OATP 

XTRANS,  YTRANS,  ZTRAWS  ARE  ORI3IN  TRANSLATIONS  OATP 

XSCALE,  YSCALE,  ZSCALE  ARE  SCALE  FACTORS  OATP 

THE  COOE  ALSO  ALLOWS  FOR  ROTATION  IN  THE  X - Z PLANE  TO  ADJUST  OATP 

FOR  AR3ITRARY  ANGLE  CF  ATTACK  OATP 

SINA,  COSA  ARE  SINE  ANO  COSINE  OF  ANGLE  OATP 

ANGLE  IS  THE  ANGLE ( INPUT  IN  DEGREES)  THAT  THE  AIRPLANE  AXIS  OATP 
MAKES  WITH  THE  NEGATIVE  X AXIS  (POSITIVE  COUNTERCLOCKWISE  OATP 

FROM  THE-X  AXIS)  AFTER  SCALING  I NOTE  - AFTER  SCALING  THE  OATP 

AIRPLANE  NOSE  POINTS  OOWN  THE  NEGATIVE  X AXIS)  OATP 

OATP 

THIS  VERSION  FOR  USE  WITH  8GXC  OATP 

OATP 

OATP 

COMMON  HEDR(15),MPR, NER,IPRS,ISIG, ITER, NCFLG,NFLOW, NQUAD,  OATP 

1 KASE ,NOFF, NSY  M, IFLAG,IFLOW,NCOOE  OATP 

COMMON  /PROS/  SINA, COSA,  XSCALE,  YSCALE,  ZSCALE,  XTRANS,  OATP 

1 YTRANS,  ZTRANS  OATP 

X = ( X - XTRANS  ) * XSCALE  OATP 

Y = ( Y - Y 1RANS  ) * YSCALE  OATP 

I = ( Z - ZTRANS  ) * ZSCALE  OATP 

XX=  ( XX-  XTRANS  ) * XSCALE  OATP 

YS Y=  ( YY-  YTRANS  ) * YSCALE  OATP 

( ZZ-  ZTRANS  ) * ZSCALE  OATP 

XP  = X OATP 

Xi  = XP  * COSA  - Z * SINA  OATP 

Z!  = XP  * SINA  ♦ Z * COSA  OATP 

XP  = XX  OATP 

XX=  XP  * COSA  - ZZ*  SINA  DA  TP 

ZZ*  XP  * SINA  ♦ ZZ*  COSA  OATP 

RETURN  OATP 

ENO  OATP 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 


109 


oooooooooo 


♦OECK,  FLOWS  FLOW 

SUBROUTINE  FLOWS  FLOW 

C SUBROUTINE  FLOWS  <NU,  NNCN  ) FLOW 

COMMON  /FLOWP/  NU,  NNCN  FLOW 

• COMMON  HEOR(15), MPR, »ER, IPRS.ISIG, ITER, NCFLG.NFL CW, NQUAO , FLOW 

1 KASE,NOFF,NSYM,IFLAG,IFLOW,NCOOE  FLOW 

LOGICAL  AFLOW,  BFLO>»  CFLOW  FLOW 

COMMON  /OFLOW/  AFLCW  ,BFLCW,  CFLOW,  MMAT,  NMATM1 , NAFLOW, N8FLOW,NCF LOW  FLOW 
COMMON  / FLOW  / NQ,  NL,  KFLOW*  VX(2000),  VY(2000),  VZ(2000),  FLOW 

1 VNC(ICOO)  FLOW 

COMMON  /NORMS/  XNCRM  (1000  ) ,YNORM(  1000  I ,ZNORM(  1000 ) FLOW 

31  FORMAT  ( 311  ) FLOW 

40  FORMAT ( 6F10.8  ) FLOW 

9999  FORMAT  (1H0,5X  16HFL0WS  HAS  SET  UP,  FLOW 

1 13,  11 H X FLOWS,  13,  15H  Y FLOWS,  ANO  13,  UH  Z FLOWS*  ) FLOW 
NAFLOW  =0  FLOW 

NBFLOW  = 0 FLOW 

NCFLOW  =0  FLOW 

NMAT  = 0 FLOW 

NQ  = NQUAD  «•  NOFF  FLOW 

NL  * NQUAO  FLOW 

NN  = M00(3*  NQ  , 255)  FLOW 

IF  ( NN  .LT.  5 .ANC.  NN  *GT  • 0 ) NQ  = NQ  ♦ 5 FLOW 

KFLOW  = 0 FLOW 

NN  = MOO ( NQUAO,  255)  FLOW 

IF  ( NN  .LT*  5 .AND.  NN  . GT . 0)  NL  = NL  ♦ 5 FLOW 

IF  (NNON  .GT.  C)  GC  TO  140  FLOW 

IF  (NU  .GT.  0)  GO  TO  50  FLOW 

WRITE  (6,  115)  FLOW 

115  FORMAT  ( 1H1 »6X ,2  4HN0  ONSET  FLOWS  SPECIFIED  ) FLOW 

STOP  FLOW 

50  IF  ( .NOT.  AFLOW  ) GC  TO  60  FLOW 

KFLOW  = 1 FLOW 

GO  TO  100  FLOW 

60  IF  ( • NCT.  BFLOW  ) GC  TO  70  FLOW 

KFLOW  = 2 FLOW 

GO  TO  100  FLOW 

70  IF  ( CFLOW  ) GO  TO  90  FLOW 

IF  (KFLOW  .NE.  0)  GO  TO  4000  FLOW 

WRITE  ( 6,  60  ) FLOW 

60  FORMAT  ( 1H1V  6X, 12HINPUT  ERROR. ,5X, 25HN0  FLOW  MATRIX  SPECIFIED.  ) FLOW 
STOP  FLOW 

90  KFLOW  = 3 FLOW 

100  CALL  UNIFRM  FLOW 

IF  (KFLOW  - 2)  60,  70,  4000  FLOW 

FLOW 

C THIS  SECTION  SETS  UP  THE  NON-UNIFORM  ONSET  FLOWS  FLOW 

FLOW 

140  00  3000  N = 1,  NNON  FLOW 

IERR  = 0 FLOW 

FLOW 

- - THE  FLAGS  REAO  IN  HERE  HAVE  THE  FOLLOWING  VALUES...  FLOW 

FLOW 

FLAG  MEANING  FLOW 

FLOW 

FLOW 

KFL  , • • • FLOW  MATRIX-ASSOCIATION  FLAG  FLOW 

1 X-FLOW,  2 Y-FLCW,  3 Z-FLOW  FLOW 

FLOW 

KUN  • • • • 0 NON-UNIFORM  FLOW,  1 UNIFORM  FLOW  FLOW 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 
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21 
22 

23 

24 
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46 
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KTYPE  ....  0 INPJT  FLOW  VELOCITY  COMPONENTS* 

1 INPJT  FLOW  NORMAL  VELOCITY 

READ  ( 5,  31  ) KFL,  KUK,  KTYPE 
KTEST  = KFL  - KFLOW 
IF  (KTEST)  145,  220,  150 

145  WRITE  ( 6,  146)  KFLOW,  WFL 

146  FORMAT  I 15Hl*****NOTE*****  / 25H0AN  INPUT  FLOW  FOR  MATRIX, 13, 

1 38H  PHYSICALLY  PRECEDED  A FLOW  FDR  MATRIX, 13  / 

2 26H0THIS  FLOW  MUST  BE  SKIPPED  //) 

IERR  = 1 
GO  TO  2 20 

150  IF  (NU)  155,  155,  152 

152  IF  (KTEST  - 2)  170,  153,  160 

153  IF  (KFL  - 2)  145,  160,  161 

155  KFLOW  = KFL 

156  IF  (KFLOW  -2)  157,  158,  159 
15  7 AFLOW  = .TRUE. 

GO  TO  2 20 

158  BFLOW  = .TRUE, 

GO  TO  220 

159  CFLOW  * .TRUE. 

GO  TO  220 

160  IF  (.NOT.  AFLOW)  GC  TO  1 Cl 
KFLOW  = 1 
CALL  UNIFRM 

161  IF  (.NOT.  BFLOW)  GO  TO  162 
KFLOW  = 2 
CALL  UNIFRM 

162  KFLOW  = KFL 
IF  (KFLOW  .EQ.  2)  GO  TO  158 
IF  (CFLOW)  GO  TO  200 
GO  TO  159 

170  KFLOW  = KFL 

IF  (NU  .EQ.  0)  GO  TO  156 
IF  (KFLOW  - 2)  175,  180*  185 
175  IF  (AFLOW)  GO  TO  200 
GO  TO  157 

180  IF  ( BFLOW)  GO  TO  200 
GO  TO  158 

185  IF  (CFLOW)  GO  TO  200 
GO  TO  159 
200  CALL  UNIFRM 
220  NVREAD  = NQUAD 

IF  (KUN  .GT.  0)  NVREAD  = 1 
IF  ( KTYPE  .NE.  0 ) GO  TO  222 

REAO  ( 5,  40  ) ( VX(I),  VY(I),  VZ(I),  I = 1,  NVREAD  ) 

GO  TO  2 24 

222  READ  ( 5,  40  ) ( VNC  (I  ),  1*1,  NVREAD  ) 

DO  223  1=1,  NQUAD 
VX(I)  = 0.0 
VY( I ) = 0.0 

223  VZ(I)  =0.0 

224  IF  ( IERR  .NE.  0 ) GO  TO  1200 
NVREAD  = NQUAD  ♦ NCFF 

IF  (KUN  .LE,  0)  IF  (NOFF)  240,  249,  236 
00  225  NV  = 2,  NVREAD 

\ VX(NV)  = VX(1) 

\ VY(NV)  * VY  (1) 


FLOW 

61 

FLOW 

62 

FLOW 

63 

FLOW 

64 

FLOW 

65 

FLOW 

66 

FLOW 

67 

FLOW 

66 

FLOW 

69 

FLOW 

70 

FLOW 

71 

FLOW 

72 

FLOW 

73 

FLOW 

74 

FLOW 

75 

FLOW 

76 

FLOW 

77 

FLOW 

78 

FLOW 

79 

FLOW 

80 

FLOW 

81 

FLOW 

82 

FLOW 

83 

FLOW 

84 

FLOW 

85 

FLOW 

86 

FLOW 

87 

FLOW 

88 

FLOW 

69 

FLOW 

90 

FLOW 

91 

FLOW 

92 

FLOW 

93 

FLOW 

94 

FLOW 

95 

FLOW 

96 

FLOW 

97 

FLOW 

98 

FLOW 

99 

FLOW 

100 

FLOW 

101 

FLOW 

102 

FLOW 

103 

FLOW 

104 

FLOW 

105 

FLOW 

106 

FLOW 

107 

FLOW 

108 

FLOW 

109 

FLOW 

110 

FLOW 

111 

FLOW 

112 

FLOW 

113 

FLOW 

114 

FLOW 

115 

FLOW 

116 

FLOW 

117 

FLOW 

118 

FLOW 

119 

FLOW 

120 

225  VZ(NV)  = VZC1) 

GO  TO  240 

230  NQPi  = NQUAO  «■  i 

DO  235  NV  = NQPi,  NVREAD 
VX(NV)  = 0.0 
VY(NV)  = 0.  ( 

235  VZ(Ntf)  = 0.0 

240  IF  ( KFLOW  - 2 ) 600*  700*  800 
600  NAFLOW  = NAFLOW  ♦ i 
GO  TO  900 

700  NBFLOW  = N8FL0W  ♦ 1 


GO  TO  900 

800  NCFLOW  s NCFLOW  * i 
900  IF  C KTYPE  .NE.  0 ) GO  TO  1075 
00  1050  J * 1,  NQUAO 
1050  VNC  U)  = VX( J)*XNORK(J)  ♦ 

1075  WRITE  ( 3 ) KFLOH*  (VX(K)» 

1100  WRITE  (3)  ( 0 NC ( K) * K = 1, 


VV(J)*YNORM< Jl  ♦ VZ(J)*ZNCRMC J| 
VYCK),  V Z ( K) * K * 1,  NQ) 

NL  ) 


Cl  READ  IN  FIRST  GUESSES  FOR  THE  SIG1AS 
1200  IF  ( ISIG  ) 3000*  3000,  1600 
1600  REAO  <5,  40)  C VNCCK),  K * 1»  NQUAO  ) 


C WRITE  SIGHA  GUESSES  ON  TAPE  3 AS  ONE  LOGICAL  RECORO 

IF  (IERR  .EQ.  0)  WRITE  (3)  (VNC(J),  J s L NU 
3000  CONTINUE 

IF  CNU  .NE.  0)  IF  (KFLOW  - 2)  60*  70,  LOCO 
4000  REWIND  3 

IF  ( AFLOW  ) NMAT  = 1 

IF  ( BFLOW  ) NMAT  = NMAT  ♦ 1 

IF  ( CFLOW  ) NMAT  = NMAT  ♦ 1 

NMATM1  = NMAT  - 1 
NFLOW  s NAFLOW  ♦ NBFLOW  ♦ NCFLOW 
WRITE (6,  9999)  NAFLOW,  NBFLOW*  NCFLOW 

C RETURN 

ENO 


FLOW  121 
FLOW  122 
FLOW  123 
FLOW  124 
FLOW  125 
FLOW  126 
FLOW  127 
FLOW  126 
FLOW  129 
FLOW  120 
FLOW  131 
FLOW  132 
FLOW  133 
FLOW  134 
FLOW  135 
FLOW  136 
FLOW  137 
FLOW  138 
FLOW  139 
FLOW  140 
FLOW  141 
FLOW  142 
FLOW  143 
FLOW  144 
FLOW  145 
FLOW  146 
FLOW  147 
FLOW  148 
FLOW  149 
FLOW  150 
FLOW  151 
FLOW  152 
FLOW  153 
FLOW  154 
FLOW  155 
FLOW  156 
FLOW  157 
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♦DECK, UNI FRM 

SUBROUTINE  UNIFRM 


***** 


SPECIAL  FOR  LEAKY  QUAOS 


****** 


COMMON  / FLOW  / NO,  NL,  KFLOW,  VXCZOOQ),  VY(ZOOO),  VZC20U0), 

1 VNCC1000I 

LOGICAL  AFLOW,  BFLOW,  CFLOW 

COMMON  /OFLOW/  AFLOW  ,8FL  CW,  CFLOW, MMAT,  NMATM1  ,NAFL0W,  NBFLOW,  NCFLOW 
COMMON  /NORMS/  XNORMCIOOO) , YNORMCluOO) ,ZNORM(1000> 

COMMON  HEDR (15) , MPR , fER, IPRS, ISIG, ITER, NCFLG, NFL OW,NQUAO , 

1 KASE,NOFF,NSYM, IFLAG,IFLOW ,NCOOE 
COMMON  /QLEAK/  LEAK,  FRACT 

\ 

THIS  ROUTINE  SETS  UP  THE  UNIFORM  ONSET  FLOWS.  FOR  THESE  FLOWS  IT 
IS  ONLY  NECESSARY  TO  HAVE  TWO  VELOCITY  MATRICES,  ONE  ALL  ZEROES 
ANO  THE  OTHER  ALL  ONES.  WE  SHALL  FILL  VX*  WITH  C*S  ANO.  VV  WITH  l'S. 

00  10  I = 1,  NQ 
VX(I)  * 0,0 
10  VV(I)  - 1. 0 

NOW  WE'LL  TEST  * KFLOW*  TO  DETERMINE  WHAT  FLOW  TO  SET  UP  FOR. 

IF  ( KFLOW  - 2 ) 20,  30,  40 
THIS  PORTION  SETS  UP  FOR  *A»  FLOW. 

20  NAFLOW  = 1 

WRITE  < 3 ) KFLOW,  ( VYII),  VX(I),  VX(I),  I = 1 , NQ  > 

THIS  IS  A PATCH  TO  PROVICE  FOR  LEAKY  QUAOS.  THESE  MUST  BE  THE 
FIRST  QUAOS  IN  THE  TABLE.  THEY  LEAK  AT  A FRACTION  FRACT  OF  THE 
FREE-STREAM  RATE.  ONLY  THE  A FLOW  IS  FRCVIOEO  FOR  HERE. 

LEAK  = NO.  OF  LEAKY  QUADS 

IF ( LEAK  .GT.  C ) GO  TO  21 
WRITEI  31  ( XNORM(I)  , 1 = 1, NL  ) 

GO  TO  5 0 

21  00  22  1=1,  LEAK 

22  VZCI)  = XNORM(I)  + FRACT 

IF ( LEAK  .GE.  NL  ) GO  TO  25 
LEAKP  = LEAK  * 1 
DO  24  I=LEAKP»NL 

24  VZCI)  = XNORMfl) 

25  WRITE C 3 ) ( VZII),  1=1, NL  ) 

00  26  1=1, NL 

26  VZ(I)  = 0.0 
GO  TO  50 

THIS  PORTION  SETS  UP  FOR  *B'  FLOW. 

30  NBFLOW  = 1 

WRITE  ( 3 ) KFLCW,  ( VX(I) , VY(I),  VX(I),  I = 1,  NQ  > 

WRITE  C 3 ) ( YNORM(I),  I = 1,  NL  ) 

GO  TO  50 

THIS  PORTION  SETS  UP  FOR  »C»  FLOW. 
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1 
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2 

UNIF 

3 

UNIF 
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UNIF 
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UNIF 
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UNIF 

7 

UNIF 
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UNIF 

9 

UNIF 

10 

UNIF 
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UNIF 

12 

UNIF 

13 

UNIF 

14 

UNIF 

15 

UNIF 

16 

UNIF 

17 

UNIF 

18 

UNIF 

19 

UNIF 

20 

UNIF 

21 

UNIF 

22 

UNIF 

23 

UNIF 

24 

UNIF 

25 

UNIF 

26 

UNIF 

27 

UNIF 

28 

UNIF 

29 

UNIF 

30 

UNIF 

31 

UNIF 

32 

UNIF 

33 

UNIF 

34 

UNIF 

35 

UNIF 

36 

UNIF 

37 

UNIF 

38 

UNIF 

39 

UNIF 

40 

On  if 

41 

UNIF 

42 

UNIF 

43 

Unif 

44 

On  if 

45 

UNIF 

46 

UNIF 

47 

UNIF 

48 

UNIF 

49 

UNIF 

50 

UNIF 

51 

UNIF 
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NCFLOW  = 1 

UN  IF 

61 

WRITE  ( 3 ) KFLOW,  ( VX(I)  , VX(I),  VV(I),  I 

= 1,  NQ  ) 

UNIF 

62 

WRITE  ( 3 ) ( ZNORM(I),  I = 1,  ML  ) 

UNIF 

63 

UNIF 

64 

CHECK  FOR  INPUT  SIGMAS. 

UNIF 

65 

UNIF 

66 

IF  ( ISIG  .EQ.  0 ) RETURN 

UNIF 

67 

UNIF 

66 

REAO  THE  SIGMA  GUESSES  IRTO  V Z. 

UNIF 

69 

UNIF 

70 

READ  ( 5,  60  ) ( VZ(I),  I - 1,  NGJAD  ) 

UNIF 

71 

FORMAT  ( 6F10.8  ) 

UNIF 

72 

UNIF 

73 

WRITE  SIGMAS  ON  TAPE  3 AS  ONE  LOGICAL  RECORO 

AND  HANG  IT  UP. 

*TMR*UNIF 

74 

UNIF 

75 

WRITE  ( 3 ) ( VZ(I),  1 = 1,  NL  ) 

UNIF 

76 

RETURN 

UNIF 

77 

END 

UNIF 

78 

*0ECK* VFORM 

SUBROUTINE  VFORM 
REAL  Ml 2*  M23*  M34, 
INTEGER  TAPES 


M<»1  , IXX,  IXY,  IVY 


LOGICAL  AFLOW,  8FL0W,  CFLOW 
DIMENSION  NTAPEI3),  C4K335), 

1 XIJ1  (335 ) * XI J 2 (335  J,  XIJ3  (335),  YIJ1  (335),  YIJ2  (335), 

2 YIJ3  (335),  ZIJl  (335),  ZIJ2  (335),  ZIJ3  (335),  XXI  ( 1340), 

3 XX  2 (1340),  XX3  (1  340),  YY1  (1340) , YY  2(  1 340)  , YY 3(  1340  *, ZZl ( 13  48 ) , 

4 ZZ2C1340)  , ZZ  3(  1340  ),  X (8)  , Y < 8 ) ,Z  ( 8 ) , XC(335),  YC(335),  ZC(335), 

5 All  (33  5)  * A12  (335),  A13  (335),  A2K335),  A22(335),  A23(335), 

6 A 31  ( 33  5 ) , A32  (335),  A33  (335),  XIK335),  XI2(335),  XI3  (335), 

7 XI 4 (33  5)  , ETAK335)  ,ETA2  (335),  ETA  4(  335)  , TSQ  ( 335 ) , A ( 335), 

8 IXX (33 5),  IXY  (335),  IYY  (335),  312  (335),  023(335),  D34(335) 

COMMON  H£DR(15),MPR,N£R, IPRS, ISIG, ITER ,NCFLG ,NFLOW ,NQUAO , 

J ^ ^ I 1 ^ ^ i AM 


VFOR 

VFOR 

VFOR 

VFOR 

VFOR 

VFOR 

VFOR 

VFOR 

VFOR 

VFOR 

VFOR 

VFOR 

VFOR 

VFOR 

VFOR 

VFOR 

VFOR 


DATA  RHOISQ, 
DATA  NT APE 

4004  FORMAT  ( 1H0, 

4005  FORMAT  ( 1H8, 

4006  FORMAT  ( 1H0, 
INEAR  = 0 
INTERM  = 0 


RH02SQ  / 6,0,  16.0  / 

/ 1 

3HR0  W, 1 5, 5 >,  6HX-FL3W) 
3HR0H , 15,  5X,  6HY-FL3W) 
3HR0W, 15, 5X , 6HZ-FL3W) 


11  • 12  / 


VFOR 

VFOR 

VFOR 

VFOR 

VFOR 

VFOR 

VFOR 

VFOR 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 


EQUIVALENCE  ( 

XIJ1, 

YY  1 (1)  ), 

( 

XC,  YY1 

(336)  ),  ( YC 

, YY1 (671) ), 

VFOR 

18 

1 

( ZC, 

YY 1(1006)  ), 

( 

ETA4,  XXI  ( 

1 ) ) , 

( 

YIJ1,  XXI  ( 

336  ) ) , 

VFOR 

19 

2 

(;  XI J 2 

• YV2 

(1)  )• 

( 

YIJ2  * YY 2 ( 

336  )), 

( All,  YY2  ( 

671)), 

VFOR 

20 

3 

: ( A12 

, YY2 

(1006)  ) 

( A 13, 

XXI 

(671))  , 

( TSQ,  XXI  ( 

1006  ) ) , 

VFOR 

21 

4 

( A21, 

YY3  ill  ) 

( A22, 

YYJ 

( 336)) 

( A 23,  YY 3 

( 671)), 

VFOR 

22 

5 

( A , 

YY3 

(100  6)  ) 

(XIJ3, 

XX  2 

( 1)  ), 

VIJ3,  XX2  ( 

336)  ), 

VFOR 

23 

6 

(ZIJl, 

ZZ1 

(1)  ) 

(A31  , 

ZZ1 

(336  I) 

(A 32  , ZZ1 

( 671)), 

VFOR 

24 

7 

( A33 • 

ZZ1 

(100  €)  ) 

( IXX, 

XX2 

( 671)) 

( 012,  XX2 

(18  0 6)  ) , 

VFOR 

25 

8 

( ZI J2  , 

ZZ2 

(1)  ) 

( xil. 

ZZ2 

(336  )) 

( XI2,  ZZ2 

( 671)), 

VFOR 

26 

9 

( XI3  , 

ZZ2 

(100  6)  ) 

( IXY, 

XX3 

( 1 ))• 

( 023,  XX  3 ( 

336  ))  , 

VFOR 

27 

A 

(034, 

ZZ3  ( 

1 ) ) 

( ZIJ3 , 

ZZ3 ( 33 6 )) 

(X 14 , ZZ3  ( 

67.1))  , 

VFOR 

28 

9 

( ETA1 

,ZZ3  ( 

1006)  ) 

( ETA2, 

XX  3 (671)) 

( IYY,  XX3 

( 1306)) 

VFOR 

29 

3 0 

31 

32 

33 

34 

35 

36 

37 


114 


IFAR  = 0 

10  IF  ( NS YM  - 1 ) 56,  52,  54 
52  ASSIGN  2100  TO  129 
ASSIGN  910  TO  119 
GO  TO  60 

54  ASSIGN  2200  TO  129 

IF  I NS  YM  ,EQ.  3 ) GO  TO  56 
ASSIGN  920  TO  119 
GO  TO  60 

56  ASSIGN  930  TO  119 
GO  TO  60 

56  ASSIGN  200  0 TO  119  , 

60  LOOP  = 2 **  NSYM  ♦ 1 
NEL  = NQUAO  / 3 
NELL  = NEL 
NELP  = NEL 

NREM  s MOD  ( 3 * NEL  ♦ 1,  255  ) 

IF  ( NREM  ,LT.  5 .ANC.  NREM  ,GT • 3 > NELP  * NEL  ♦ 5 
NON  = NQUAO  ♦ NOFF 
00  8000  M * 1,  3 
KROW  = 0 

201  NT  = NT  APE  ( M > 

202  IF  (M  .NE.  3)  GO  TO  300 
NEL  = NOUAO  - 2 * NEL 
NELP  = NEL 

NREM  = MOO  f 3 * NEL  ♦ 1 • 255  ) 

IF  ( NREM  »LT • 5 .ANO.  NREM  .GT • 9)  NELP  = NEL  ♦ 5 
C REAO  28  QUANTITIES 
i 300  00  500  J = 1,  NEL 

500  REAO  (4)  XC<J),  YC  (J),  ZC(J>,  All(J),  A12<J),  A13CJI,  A21 ( J ), 

1 A22( J)  , A23CJ),  A31 (J) , A32(J>,  A33(J>,  XII ( J| ,ETAK J) ,XI2 ( 

2 Jh  ETA2I  J) » XI  3(  J)  • XI4  ( J ) , ETA4(J>,  TSQIJ),  A CJ>,  IXX  (J), 

3 I X Y (J),  IYY(J),  012 (J ) t 0231 J I * 034CJ),  D41IJ) 

800  KROW  = KROW  «•  1 

REAO  C 8 ) XNPP,  YNPP,  ZNPP 

DO  2300  II  = 1,  NEL 
DO  1700  12  = 1*  LOOP 

IF  ( 12  .EQ.  LOOP  ) GO  TO  1 19, f 2990,  910,  920,  930  ) 

GO  TO  (1000,  910,  920,  910,  930 , 910,  92U,  910  ),  12 
S 910  YC  ( II  I * - YC  ( II  I 


DO  1700 
IF  ( 12  . 
GO  TO  (10 
YC  ( II  ) 
A12  ( II  ) 
A22  ( II  t 
A31  ( II  ) 
A33  ( II  i 
GO  TO  932 
ZC  ( II  ) 


A13  ( 
A23  ( 
A31  ( 
A32  ( 
GO  TO 
XC  ( 


II  > 
II  ) 
II  ) 
II  ) 
932 
II  ) 


= - A12 
= - A 22 
' = - A 31 
- - A33 

= - ZC  ( 
= - A 13 
= - A23 
' = - A 31 
= - A 3 2 


II  ) 
( II 


932 

1000 


XC  ( II  ) = - XC  ( II  ) 

All  ( II  ) = - All  C II  ) 

A21  ( II  ) = - A21  ( II  ) 

A32  ( II  I « - A 32  ( II  ) 

A33  ( II  I * - A33  ( II  ) 

IF  C 12  .EQ,  LOOP  I GO  TO  129, 
XOIF  = XNPP-  XC  C II  ) 


2100,  2200 


VFOR  38 
VFOR  39 
YFOR  40 
VFOR  41 
VFOR  42 
VFOR  43 
VFOR  44 
VFOR  45 
VFOR  46 
VFOR  47 
VFOR  48 
VFOR  49 
VFOR  50 
VFOR  51 
VFOR  52 
VFOR  53 
VFOR  54 
VFOR  55 
VFOR  56 
VFOR  57 
VFOR  58 
VFOR  59 
VFOR  60 
VFOR  61 
VFOR  62 
VFOR  63 
VFOR  64 
VFOR  65 
VFOR  66 
VFOR  67 
VFOR  68 
VFOR  69 
VFOR  70 
VFOR  71 
VFOR  72 
VFOR  73 
VFOR  74 
VFOR  75 
VFOR  76 
VFOR  77 
VFOR  78 
VFOR  79 
VFOR  60 
VFOR  81 
VFOR  82 
VFOR  83 
VFOR  84 
VFOR  85 
VFOR  86 
VFOR  8 7 
VFOR  88 
VFOR  89 
VFOR  90 
VFOR  91 
VFOR  92 
VFOR  93 
VFOR  94 
VFOR  95 
VFOR  96 
VFOR  97 
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YDIF  = YNPP-  YC 
ZOIF  = ZNPP-  ZC 


< II  ) 
( II  ) 


CVCT-kJ  , . _ ' w*  . iw  -/rvjL  Wi.  n ^ 

SYSTEM  ( J CORRESPONDS  TO  THE  INDEX  H ) 

C INEQUALITY  ( 98  ) 

ROSQ  s XDIF  **  2 ♦ YOIF  **  2 ♦ ZDIF  **  2 

IF  ( ROSQ  .LT,  RH02SC  * TSQ  ( 11  ) ) GO  TO  1400 


C 

C 


£2!«IE  IN0UCED  VELOCITY  co ►ponents 
EQUATION  C 97  ) 


IFAR  = IFAR  * 1 

ARG1  = A C III  / SQRT  < ROSQ  I ♦*  3 
12)  * ARG1  * XOIF 
12  ) = ARG1  * YDIF 
ZOIF 


X 
Y 

Z (12  1=  ARG1  * 
GO  TO  1700 


C 

C 


EQUATION”  (U78  |0INT  T°  J ’ ELEMENT  COORDINATE  SYSTEM 


C 

C 


VFOR  98 
VFOR  99 

COMPUTE  DISTANCE  FROM  NULL  POINT  TO  DRIGTN  re  t ru  ci  cumr  „ VFOR  100 

SYSTEM  ( J CORRESPONDS  S rip  fF  J'H  ELEHENT  OBOMlHAn  "OR  101 

VFOR  132 
VFOR  1Q3 
VFOR  104 
VFOR  1C5 
VFOR  106 
VFOR  107 
VFOR  108 
VFOR  139 
VFOR  110 
VFOR  HI 
VFOR  112 
VFOR  113 
VFOR  114 
VFOR  115 
VFOR  116 
VFOR  117 
VFOR  118 
VFOR  119 
VFOR  120 
VFOR  121 
VFOR  122 
VFOR  123 
VFOR  124 
VFOR  125 
VFOR  126 
VFOR  127 
VFOR  128 
VFOR  129 
VFOR  130 
VFOR  131 
VFOR  132 
VFOR  133 
VFOR  134 
VFOR  135 
VFOR  136 
VFOR  137 
VFOR  138 
VFOR  139 
VFOR  140 
VFOR  141 
VFOR  1h2 
VFOR  143 
VFOR  144 
VFOR  145 
VFOR  146 
VFOR  147 
VFOR  148 
VFOR  149 


140C  XNP  a All  C II  I * XOIF  ♦ A12  ( II  ) 
YNP  = A21  ( II  ) * XDIF  «•  A22  ( III 

ZNP  = A 31  ( II  | * XDIF  ♦ A32  (III  * 


* YOIF  + A13  { II  ) * ZCIF 

* YOIF  ♦ A23  f III *ZDIF 
YOIF  ♦ A3 3 (III  * ZOIF 


INEQUALITIES 
IF  ( ROSQ 


( 99)  A hO  ( 100  I 
•LT.  RHOISQ  ♦ TSQ  ( II  ) 


) GO  TO  1410 


COMPUTE  INDUCED  VELOCITY  COIPONENTS 
EQUATIONS  ( 57  ) - ( 62  ) 


4.0  * 
4.0  * 


XNP  ** 
YNP  ♦* 


XVP 


** 


2 ) 


30.0  * YNP  ♦*  2 | » Rop 


INTERM  = INTERM  ♦ 1 
P = YNP  **2  * ZNP  **  2 - 

QP=  XNP  **2  ♦ ZNP  *«  2 - 

RO  = SQRT  ( ROSQ  ) 

ROP  = RO  **  (-  7| 

WXXX  = XNP  * ( 9.0  ♦ P ♦ 30 

WXXY  = 3.0  * P * R CP  * YNP 

WXYY  = 3.0  * XNP  * QP  « ROP 
W YYY  = YNP  * ( 9 . £ * QP  ♦ 

WXXZ  = 3.0  * ZNP  * P * ROP 

WXYZ  = - 15.0  * XNP  * YNP  * ZNP  * ROP 

WYYZ  = 3.0  * ZNP  * QP  * R0P 
ROP  = - RO  **  ( - 3) 

WX  = ROP  * XNP 
YNP 
ZNP 

.5  * IXX  ( II  | 

.5  * IYY  ( II  | 

WXYY*HIYY  - WXXY* IX Y<  ID 
WYYY*HIYY  - W XYY* IXY  ( HI 
WYYZ*HIYY  - WXYZ*IXY(  III 


ROP 


WY  = ROP  * 
HZ  = ROP  * 
HIXX 
HIYY 
VX  = 

VY  = 

VZ  = 

GO  TO  1600 


WXXX*HI XX  - W X* A < ID 
WXXY*HIXX  - W Y*A  < III 
WXXZ*HIXX  - W Z*  A ( ID 


C 

C 


COMPUTE  INDUCEO  VELOCITY  COMPONENTS 
EQUATIONS  ( 42  ) - ( > 


VFOR  150 
VFOR  1 El 
1 E 2 
1E3 

154 

155 


VFOR 
VFOR 
VFOR 
VFOR 
VFOR  156 
VFOR  i £7 
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1420 


VF  OR 

158 

ETA*M3  = ETA*  ( Il> 

- ETA1  ( 11  ) 

VFOR 

159 

INEAR  = INEAR  4 1 

VFOR 

160 

RO  = SQRT  C ROSQ  ) 

VFOR 

161 

ETA2H1  = ETA2  ( 11  1 

- 

ETA1  < 11  ) 

VFOR 

162 

XI4M3  = XI*  C 11  ) - 

XI 

3 

( 11  ) 

VFOR 

163 

XI2M1  = XI 2 <11  ) - 

XII 

< 

11  I 

VFOR 

16* 

XI3M2  = XI 3 < 11  ) - 

XI 2 < 

: ii  > 

VFOR 

165 

XIlN*  s XII  I 11  1 - 

XI*  ( 

; ii  > 

VFOR 

166 

XMXI  1 = XNP  - XII  < 

11 

) 

VFOR 

167 

XMXI2  = XNP  - XI2  ( 

11 

) 

VFOR 

166 

XMXI3  = XNP  - XI 3 < 

11 

> 

VFOR 

169 

XHXI4  = XNP  - XI*  C 

11 

) 

VFOR 

170 

YN£TA1=  YNP  - ETA1 

( 11  ) 

VFOR 

171 

YMETA  2 = YNP  - ETA 2 

: < 

11 

) 

VFOR 

172 

YMETA  4 = YNP  - ETA4 

< 

11 

) 

VFOR 

173 

| ZNPSQ  = ZNP  * ZNP 

VFOR 

17* 

IF  f ZNPSQ  .LT.  TSQ 

C 11  ) 

* 1.0E-6  ) ZNPSQ  =0.0 

VFOR 

175 

El  = ZNPSQ  ♦ XMXI1  **2 

VFOR 

176 

E2  = ZNPSQ  ♦ XMXI 2 **Z 

VFOR 

177 

E3  = ZNPSQ  4 XNXI3  * 

*2 

4 

VFOR 

176 

E4  = ZNPSQ  ♦ XMXI*  **2 

VFOR 

179 

HI  = YMETA1  * XM  XII 

VFOR 

180 

H2  = YMETA 2 * XMXI2 

VFOR 

181 

H3  = YMETA1  * XHXI3 

VFOR 

182 

H*  = YMETA*  * XMXI* 

VFOR 

183 

Hi  2 = 0.0 

VFOR 

18* 

IF  < XI2M1  «NE.  0.0 

M12  = 

■ ETA2M1  / XI2M1 

VFOR 

185 

M23  = 0.0 

VFOR 

166 

IF  ( X 13 M2  .NE.O.O) 

M23 

zr 

- ETA2M1  / XI3M2 

VFOR 

167 

M3*  = 0.5 

VFOR 

188 

IF  f XI4M3  .NE.  G.C) 

M3*  = 

= ET A* M3  / XI*M3 

VFOR 

189 

M*1  = 0.0 

VFOR 

ISO 

IF  < XI1M*  ,NE.  C.  C) 

M*1  = 

= - ETA4M3  / XI1M* 

VFOR 

191 

ANUM1  = M12  * El  - 

HI 

VFOR 

192 

ANUM2  = M12  * £2  - 

H2 

VFOR 

193 

ANUM3  = M23  * E2  - 

H2 

VFOR 

15* 

ANUM4  = M2 3 * E3  - 

H3 

VFOR 

155 

ANUM5  = M3*  * E3  - 

H3 

VFOR 

196 

ANUM6  = M3*  * E*  - 

H* 

VFOR 

197 

ANUM7  = M*1  * E*  - 

H* 

VFOR 

158 

ANUM8  = M*1  * El  - 

HI 

VFOR 

199 

R 1 = SORT  < XMXI1 

■** 

2 < 

► YMETA1  **  2 4 ZNPSQ) 

VFOR 

200 

R2  = SQRT  C XMXI 2 

** 

2 * 

• YMETA2  **  2 ♦ ZNPSQ) 

VFOR 

211 

R3  = SQRT  ( XMXI 3 

** 

Z * YMETA1  ♦*  2 4 ZNPSQ) 

VFOR 

20  2 

R*  = SQRT  ( XMXI* 

*4 

2 -i 

► YMETA*  **  2 4 ZNPSQ) 

VFOR 

203 

Q25  = 012  C 11  1 

VFOR 

20* 

Q26  = 023  ( 11  ) 

VFOR 

205 

Q27  = 03*  C 11  ) 

VFOR 

216 

Q28  = 0*1  ( 11  » 

VFOR 

207 

VX  = 0.0 

VFOR 

208 

VY  = 0.0 

VFOR 

209 

V Z = 0.0 

VFOR 

210 

IF  ( Q25  I 1*20»  1430, 

1*20 

VFOR 

211 

TEMP  = fii  *■  R2 

.■*' 

VFOR 

212 

TEMPI  = TEMP  - Q25 

VFOR 

213 

TEMP2  = TEMP  4 Q25 

VFOR 

21* 

ARGl  = 1.0 

VFOR 

215 

IF  1 TEMPI  .NE.  C.C 

• ANC. 

TEMP2  .ME.  0.0  ) ARGl=AL0G<TEMPi/TEMP2) 

VFOR 

216 

TEMP  = ARGl  / Q25 

VFOR 

217 
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1430 

1435 


1440 

1450 


1460 

1470 


1483 


150  2 
1504 
1506 
150  8 

1510 


VX  = ETA2H1  * TEMP  VFOR 
V Y = - XI2M1  * TEMP  VFOR 
IF  ( Q26  > 1435*  1440,  1435  VFOR 
TEMP  = R2  ♦ R3  VFOR 
TEMPI  = TEMP  - Q26  VFOR 
TEMP2  = TEMP  ♦ Q26  VFOR 
ARG2  = 1.0  VFOR 
IF  ( TEMPI  .NE.  2.0  .AND.  TEMP2  .ME,  0.0  > AkG2*  ALOG (TEMP1/TEMP2 ) VFOR 
TEMP  = ARG2  / Q26  VFOR 
VX  = VX  - £T A 2 Ml  * TEMP  VFOR 
VY  = VY  - XI3M2  * TEMP  VFOR 
IF  ( Q27  ) 1452,  1460,  1450  VFOR 
TEMP  = R3  ♦ R4  VFOR 
TEMPI  = TEMP  - Q27  VFOR 
TEMP2  = TEMP  *■  Q27  VFOR 
ARG3  = 1.0  VFOR 
IF  ( TEMPI  *N£.  0.0  .AND.  TEMP2  .ME,  0.0  ) ARG3=AL0G(T EMP1/TEMP2)  VFOR 
TEMP  = ARG3  / 027  VFOR 
VX  - VX  ♦ ETA 4 M3  * TEMP  * VFOR 
VY  = VY  - XI4M3  * TESNP  VFOR 
IF  ( Q28  > 1470,  1480,  1470  VFOR 
TEMP  = R4  *•  Ri  VFOR 
TEMPI  = TEMP  - Q28  VFOR 
TEMP2  = TEMP  «•  Q28  VFOR 
ARG4  = 1.0  VFOR 
IF  ( TEMPI  ,NE.  0.0  .AND.  TEMP2  .ME.  0.0  ) ARG4= ALOG (TEMP1/TEMP2 I VFOR 
TEMP  = ARG4  / Q2 8 VFOR 
VX  = VX  - ETA4M3  * TEMP  VFOR 
VY  = VY  - XI1M4  * TEMP  VFOR 
IF  ( ZNPSQ  .NE.  3.0  ) GO  TO  1510  VFOR 
TEST  = SQRT  (TSQ(  ID  * 1.  QE-3)  VFOR 


IF (Q25. GT.TEST)  IF ( ( XMXI1*  ETA2M1-YMETA  1*XI 2M1) /Q25)  1600 , 150 2, 1532  VFOR 
IF (Q26. GT.TEST)  IF ( ( -XKX I2*ETA2Mi- VMETA2*XI3M2 )/ G2 6) 16 30 ,1 5 0 4, 1534VF0R 
IF (Q27. GT.TEST)  IF(  < XM XI3*ETA4M3-YM£TA 1*XI4M3) /Q27)  1600 ,150 6, 1536 VFOR 
IF  (Q28.  GT.TEST  ) IF  <<-XMXI4*ETA4M3-YMETA4*XIiM4>/  Q28)  1600,150  8,  1508  VFOR 
VZ  = 6.  28318531EC  VFOR 

GO  TO  1600  VFOR 

IF  (XI2M1  .NE.  0.0)  VZ  = AT ANfANUMl/ (ZNP*R1) )-AT ANI ANUM2/ ( ZNP*R2 ) ) VFOR 
IF  CXI3M2  .NE.  0 • 0) VZ=VZ+AT  AN ( ANUM3/ (ZNP*R2) )- AT  AN< ANUM4/ ( ZNF*R3  ))  VFOR 
IF  (XI4M3  .NE.  Q.O)  VZ  = VZ4ATAN(ANUM5/(ZNP*R3))-ATAN<ANUM6/(ZNP*R4>)  VFOR 
IF  (XI1M4  .NE.  0.0) VZ=VZ  + AT  ANC ANUM7/ (ZNP*R4) )-ATAN(ANUM8/ (ZNP*R1)) VFOR 


C VFOR 

C TRANSFORM  INDUCEO  VELOCITY  COMPONENTS  TO  REFERENCE  COORDINATE  S >STEM  VFOR 
C EQUATION  C 79  ) VFOR 


VFOR 


1600  X ( 12)  = All  <111  * VX  ♦ A21  (ID  * VY  ♦ A31  III)  * VZ  VFOR 

Y < 12)  = A12  (ID  * VX  + A 22  (III  * VY  ♦ A32  (ID  * VZ  VFOR 

Z < 12)  = A13  (ID  * VX  ♦ A23  III)  * VY  ♦ A33  (ID  * VZ  VFOR 

1700  CONTINUE  VFOR 

VFOR 

2000  IF  (.NOT.  AFLOW)  GC  TO  2016  VFOR 

XIJl(Il)  = XC1)  VFOR 

YIJl(Il)  = Y ( 1 ) VFOR 

ZIJl(Il)  = Zll)  VFOR 

2010  IF  (.NOT.  BFLOW)  GO  TO  2020  VFOR 

XI J 2 ( 1 1 ) = X(l)  VFOR 

YIJ2(I1)  = Y(l)  VFOR 

ZIJ  2 ( II ) = Z(l)  VFOR 

2020  IF  (.NOT.  CFLOW)  GO  TO  2300  VFOR 

XI J3 ( II ) * X(l)  VFOR 


218 

219 

220 
221 
222 

223 

224 

225 

226 
227 
22  8 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 
2 46 

247 

248 

249 
2 53 
2 51 

252 

253 

254 

255 

256 

257 
2 58 

259 

260 
261 
262 

263 

264 

265 

266 
2 67 
268 

269 

270 

271 

272 

273 

274 

275 

276 

277 
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YIJ3II1)  = 

III) 

ZI33II1)  = 

Zll) 

GO  TO 

i 2 300 

2100 

IF  1 

.NOT, 

AFLOW) 

GO  TO 

2101 

XI 31 

1 11 

) = X 

C 

1 ) *■ 

X ( 

2 

) 

YIJ1 

I 11 

) = V 

( 

1 ) + 

Y ( 

2 

) 

ZI3 1 

I 11 

) = z 

( 

1 ) ♦ 

Z ( 

2 

) 

2101 

IF  (. 

NOT. 

8FL0W) 

GO  TO 

210  2 

XIJ2 

( 11 

) = X 

1 

1 ) - 

X I 

2 

) 

YI32 

I 11 

) = Y 

( 

1 ) - 

Y ( 

2 

> 

ZI32 

1 11 

) = Z 

( 

1 ) - 

Z ( 

2 

> 

2102 

IF  (. 

NOT. 

CFLOW) 

GO  TO 

2300 

XI33 

1 11 

) = X 

( 

1 ) ♦ 

X I 

2 

) 

YI3  3 

1 11 

) = Y 

( 

1 ) ♦ 

Y ( 

2 

> 

ZI33 

( 11 

) = Z 

( 

1 ) ♦ 

Z ( 

2 

) 

GO  TO 

2300 

2200 

IF  I. 

NOT. 

AFLOW 

) 

GC  TO 

220  1 

XI31 

Ill) 

= X I 

1 

) ♦ X 

( 2 

) 

YI31 

(III 

= Y ( 

1 

) ♦ V 

( 2 

) 

+ 

ZIJ1 

III) 

= Z ( 

1 

) ♦ z 

( 2 

) 

♦ 

2201 

IF  I. 

NOT. 

SFLOW 

) 

GO  TO 

220  2 

XI32 

Ill) 

= X ( 

1 

) - X 

( 2 

) 

- 

YI32 

(ID 

= Y ( 

1 

) - Y 

( 2 

) 

ZI32 

(ID 

= Z ( 

1 

) - Z 

1 2 

) 

- 

2202 

IF  1. 

NOT. 

CFLOW 

) 

GO  TO 

2204 

XI33 

(ID 

= X ( 

1 

) ♦ X 

< 2 

) 

- 

YIJ  3 

(ID 

= Y I 

1 

) «■  Y 

( 2 

) 

~ 

ZIJ3 

(ID 

= Z ( 

1 

) 4 Z 

I 2 

) 

- 

2204 

IF  1 

NSYM 

• Ed.  2 

) 

GC  TC  2300 

IF  1. 

NOT. 

AFLOW 

) 

GO  TO 

2235 

XI31 

I 11 

) = XI 31 

(ID 

- X 

( 

5 

YI31 

( 11 

) = YI 31 

(ID 

- Y 

( 

5 

ZI31 

( 11 

) = ZI31 

(ID 

- Z 

I 

5 

2205 

IF  (• 

NOT. 

8 FLOW 

) 

GO  TO 

220  6 

XI  j 2 

I 11 

) = XI 32 

(ID 

+ X 

( 

5 

YI  J2 

( 11 

) = YI  32 

(ID 

+ Y 

< 

5 

ZIJ2 

I 11 

) = ZI32 

(ID 

♦ Z 

I 

5 

220  6 

IF  1 

• NOT. 

CFLOW 

) 

GO  TO  23  00 

XIJ  3 

(ID 

= X 1 33 

(ID  - 

X ( 

K 

) 

YI  33 

(ID 

= YI33 

(ID  - 

Y I 

5 

I 

ZI33 

III) 

= ZI33 

(ID  - 

Z ( 

5 

) 

2300 

CONTINUE 

WRITE  ONE  ROW  ON  TAPE 


VFOR  2 78 
VFOR  279 
VFOR  280 
VFOR  281 
VFOR  262 
VFOR  283 
VFOR  284 
VFOR  285 
VFOR  286 
VFOR  287 
VFOR  288 
VFOR  289 
VFOR  290 
VFOR  291 
VFOR  292 
VFOR  293 
VFOR  294 


X 

1 

3 

) 

♦ 

X 

( 

4 

) 

VFOR 

295 

Y 

( 

3 

) 

* 

Y 

( 

4 

) 

VFOR 

2 96 

Z 

( 

3 

) 

Z 

( 

4 

) 

VFOR 

297 

VFOR 

298 

X 

( 

3 

) 

+ 

X 

( 

4 

) 

VFOR 

299 

Y 

( 

3 

) 

+ 

Y 

( 

4 

) 

VFOR 

300 

Z 

( 

3 

) 

+ 

Z 

( 

4 

) 

VFOR 

3u  1 

VFOR 

302 

X 

( 

3 

) 

- 

X 

( 

4 

) 

VFOR 

333 

Y 

( 

3 

) 

- 

Y 

( 

4 

VFOR 

304 

Z 

( 

3 

) 

Z 

4 

) 

VFOR 

30  5 

VFOR 

306 

VFOR 

307 

) 

- 

X 

( 

6 

) 

- 

X 

( 

7 

> 

mm 

X 

( 

6 ) 

VFOR 

3 u 3 

) 

- 

Y 

( 

6 

) 

- 

Y 

7 

> 

- 

Y 

( 

8 ) 

VFOR 

309 

) 

- 

Z 

( 

6 

) 

- 

Z 

( 

7 

) 

- 

Z 

( 

8 ) 

VFOR 

310 

VFOR 

311 

) 

- 

X 

( 

6 

) 

- 

X 

( 

7 

) 

+ 

X 

( 

6 ) 

VFOR 

312 

) 

mm 

Y 

( 

6 

) 

- 

Y 

( 

7 

) 

Y 

( 

8 ) 

VFOR 

313 

) 

- 

Z 

( 

6 

) 

- 

Z 

( 

7 

) 

+ 

Z 

( 

8 ) 

VFOR 

314 

VFOR 

315 

- 

X 

( 

6 

) 

♦ 

X 

( 

7 

) 

+ 

X 

( 

3 

) 

VFOR 

316 

- 

Y 

I 

6 

) 

♦ 

Y 

( 

7 

) 

+ 

Y 

( 

8 

) 

VFOR 

317 

- 

Z 

( 

6 

> 

♦ 

Z 

I 

7 

) 

Z 

( 

8 

) 

VFOR 

316 

VFOR  319 
VFOR  320 


IFC  AFLOW)  WRITEINT) 
IFI8FL0W)  WRITEINT) 
IFICFLOW)  WRITE  (NT) 


(XU1(J),YU1 (J) ,ZIJ1 IJ  >♦ J=l,  NELP) 
CXIJ2I  J)  , YIJ2IJ)  ,ZI  J2  (J)  ,J=i,N£LP  ) 
1X133 ( J) »YI J3 (3) ,2133 (3 1,3  = 1,  NEcP) 


IF  I KROW  .LT.  NON  ) GC  TO  300 


VFOR 
VFOR 
VFOR 
VFOR 
Vf  OR 
VFOR 


321 

322 
3 23 

324 

325 

326 


REWINO  8 

; j 

VFOR 

327 

8 000 

REWIND  NT 

■ . ■ ' ; : i 

VFOR 

328 

42 

FORMAT  ( 1H0,  5X,  13HXIJ 

COMPONENT 

/ 

( 

1H  ,f  fFl5.fi)) 

VFOR 

329 

43 

FORMAT  ( 1H0,  5X , 13HYIJ 

COMPONENT 

/ 

( 

1H  * r'*S,8)) 

VFOR 

330 

44 

FORMAT  I 1H0,  5X,  13FZIJ 

COMPONENT 

/ 

I 

1H  ,f  3.8)) 

vFor 

3 31 

IF  ( MPR  .EQ.  0 .OR.  KPR 

• EQ.  2 ) 

GO 

TO 

90 1 v 

VFOR 

332 

CALL  HEADER 

VFOR 

3 33 

DO  9060  K * 1,  KRCW 

VFOR 

334 

INOl  = 1 - NELL 

VFOR 

335 

IN02  = 0 

VFOR 

336 

1 = 0 

VFOR 

337 

119 


9003 

IND 1 = IND1 

«■  NELL 

VFOR 

338 

IND2  = IN02 

«■  NELL 

VFOR 

339 

9002 

1 = 1 + 1 

VFOR 

340 

NT  = NT  APE 

( I ) 

VFOR 

341 

004 

IFIAFLOW)READ(NT) 

( XXI  ( J)  , YYKJ)  , ZZl(J),  J 

a INOl,  IN C2  ) 

VFOR 

3*42 

IFOFLOW)  REAO(NT) 

(XX2 ( J)  * YY2 ( J) , ZZ2 ( J ) 

,J=INOi  ,IN02) 

VFOR 

343 

IFCCFLOW)  READ  (NT) 

(XX3  ( J)  , YY3  ( J)  , ZZ2(  J)  , 

J=IND1,  INC2) 

VFOR 

344 

IF  ( I - 2 

) 

9003, 

9008, 

9050 

VFOR 

345 

900  8 

INOl  = INO  2 

♦ 1 

VFOR 

346 

IN02  = IND2 

♦ NEL 

VFOR 

347 

GO  TO  9002 

VFOR 

348 

90  50 

IF  (.NOT.  AFLOW) 

GO  TO 

9051 

VFOR 

349 

WRITE  ( 6, 

40  0 4 

) 

K 

VFOR 

350 

WRITE  ( 6, 

42  ) 

( 

XXI 

( J)  , 

J = It  NQUAD) 

VFOR 

351 

WRITE  ( 6, 

43  ) 

( 

YY1 

(J)  , 

J = 1,  NQUAD) 

VFOR 

352 

WRITE  ( 6, 

44  ) 

( 

ZZ1 

( J)  , 

J = 1,  NQUAO) 

VFOR 

353 

9051 

IF  (.NOT.  BFLOW 

) 

GO  TO  9052 

VFOR 

354 

WRITE  ( 6, 

40  0 5 

) 

K 

VFOR 

355 

WRITE  ( 6, 

42  ) 

( 

XX2 

( J), 

J = 1,  NQUAO  ) 

VFOR 

356 

WRITE  ( 6, 

43  ) 

( 

YY  i 

( J/  , 

J = 1,  NQUAD  1 

VFOR 

357 

WRITE  ( 6, 

44  ) 

( 

111 

(J), 

J a 1,  NQUAD  ) 

VFOR 

358 

9052 

IF  ( .NOT. 

CFLOW 

) 

GO 

TO  90  60 

VFOR 

3 59 

WRITE  ( 6, 

40  0 6 

) 

K 

VFOR 

360 

WRITE  ( 6, 

42  ) 

( 

XX3 

( J), 

J = 1,  NQUAD  ) 

VFOR 

361 

WRITE  ( 6, 

43  ) 

I 

Y Y 3 

( J)  » 

J = 1,  NQUAD  ) 

VFOR 

362 

WRITE  ( 6, 

44  ) 

ZZ3 

(J)  , 

J = 1,  NQUAO  ) 

VFOR 

363 

906!? 

CONTINUE 

VFOR 

364 

9070 

REWIND  1 

VFOR 

365 

REWIND  11 

VFOR 

366 

REWIND  12  ' 

VFOR 

367 

9075 

WRITE  ( 6* 

4999 

) 

INEAR,  INTERM,  I FAR 

VFOR 

3 68 

4999  FORMAT  i 1H0 , //I 6H0NE AR  ELEMENTS  =,17/  24H0 INTERMEDIATE  ELEMENTS  = VFOR  369 

1,  17  / 15HDFAR  ELEMENTS  = , 17  ) VFOR  370 

WRITE ( 6 , 9999)  VFOR  371 

9999  FORMAT  ( 1H0  * 5X,  13 HLEAVI NG  V F ORN ) VFOR  3 72 


C RETURN 

END 


VFOR  373 
VFOR  3 7n 


♦DECK, AFORM 

SUBROUTINE  AFORM 
REAL  NX  , NY  , NZ 

LOGICAL  AFLCW,  BFLOW , CF.OW 

CoSZ  ^^CWtBFLCWtCFLCiWjMMAT,  NMATPl tN  AF  LOHthBFLOW 

i K4SENNOF?R«»i,Tc,R]!^E5j,I«RS’1SIG’  it=R.ncflg,nfloh,nqu«o, 

1 KASc*NOFF,NSYM, IFLAG»IFLOW,NCOOE 

DIMENSION  C (60  00) 

10fl0)t  NZ  ( 10U3),  NTAPE (3) 


, NY  ( 
XIJ  ( 


DIMENSION  NX<  1000) 

DIMENSION  A ( 1000) 

OATA  NTAPE 

kZ  FORMAT  ( 1H0,  5X , 13HXIJ 

43  FORMAT  ( 1H0,  5X , 131-YIJ 

44  FORMAT  ( 1HQ,  5X , 13HZIJ 

45  FORMAT  ( 1H0,  3HROW,  16  ) 

46  FORMAT (1H0,  5X,  3HAIJ  / (1H 
IF  (MPR  .NE.  0)  CALL  HEADER 
NQNNi  = NQUAD  ♦ 2 

NQNN  = MOD (NQNNI , 255) 

IF  (NQNN  .LT.  5 .AND.  NCNN 


1000) 

/ 9. 
COMPONENT 
COMPONENT 
COMPONENT 


YIJ(  1000) 
10,  13  / 

/ ( 1H 
/ ( 1H 
✓ < 1H 


, ZIJ(  1000) 


7F15.8)  ) 
7F15.8)) 
7F15««|| 


* 7FI 5, 8 )) 


IF  (NCOOE  .NE. 
IF  (NAFLOW)  2, 

1 NF1  = NAFLOW 
GO  TO  5 

2 IF  (NBF  LOW ) 4, 

3 NF1  = NBFLOW 
GO  TO  5 

4 NF1  = NCFLOW 

5 NF2  = NFLOW  - 
L2  = 0 

DO  6 KK  = 1, 

L2  *■  1 

L 2 NQUAD 

(3) 

(3)  ( C ( K ) , 

L2 


1) 

2, 


GO 

1 


TO  20 


• GT.  0)  NQNNI  = NQUAD  ♦ 5 


7 

a 

10 

** 

20 


LI  = 

L2  = 
READ 
READ 
LAST1  = 
IF  (NF2 
DO  7 KK 
LI  * L 2 
L2  = 
READ 
READ 
DO  10 


NFi 


NF1 


K = Li,  L2) 


.EQ. 

= 1, 

♦ 1 

♦ NQUAD 


0 ) GO 
NF2 


TO  8 


NQUAD) 


L2 
(3) 

C3)  (C«KI,  K = LI,  L2I 

KK  = 1,  L2 
C (KK)  = - C ( KK  I 
READ  IN  UNIT  NORMAL  VECTORS 
REAO ( 4 ) ( NX ( I ) , NY < 1 1 , NZil),  1 = 1, 

FCRM  NORMAL  VELOCITIES  - EQUATION  10  > 

3P  DO  1300  KK  = 1,  NQUAD 
00  10  C 2 NM  = 1,  NMAT 

S5LkaR“"''i‘X^Qu«^IJ’  Z1J’  <KI<  * m> ' NMT  * N0FF’  «• 

60  irt *5KrS5JiS' rj  NY,KKI*  rIJ,Ki  * «**»•»•»«» 

WRITE (6, 45)  KK 
IF  ( MPR  .EQ.  2 ) GO  TO  65 
XI J(I4)  , 14 
Y I J ( 1 4 ) , 14 
ZIJ(I4),  14 
70,  65,  65 

65  WRITE  (6.  461  (A (14),  14  = 1,  NQUAD) 


WRI TE ( 6,42)  ( 
WRITE ( 6 ,43 ) ( 
WRITE (6*44)  ( 
IF  ( MPR  - 2 ) 
WRITE  (6,  46) 


1, NQUAD 
l,NQUAO 
1 , NQUAO 


AFOR  1 
AFOR  2 
AFOR  3 
AFOR  4 
.NCFLOW  AFOR  5 
AFOR  6 
AFOR  7 
AFOR  8 
AFOR  9 
AFOR  10 
AFOR  11 


AFOR 

12 

AFOR 

13 

AFOR 

14 

AFOR 

15 

AFOR 

16 

AFOR 

17 

AFOR 

18 

AFOR 

19 

AFOR 

. 20 

AFOR 

21 

AFOR 

22 

AFOR 

23 

AFOR 

24 

AFOR 

25 

AFOR 

26 

AFOR 

27 

AFOR 

28 

AFOR 

29 

AFOR 

30 

AFOR 

31 

AFOR 

32 

AFOR 

33 

AFOR 

34 

AFOR 

35 

AFOR 

36 

AFOR 

37 

AFOR 

38 

AFOR 

39 

AFOR 

4 0 

AFOR 

41 

AFOR 

42 

AFOR 

4 3 

AFOR 

44 

AFOR 

45 

AFOR 

46 

AFOR 

47 

AFOR 

48 

AFOR 

49 

AFOR 

50 

AFOR 

51 

AFOR 

52 

AFOR 

53 

AFOR 

54 

AFOR 

55 

AFOR 

56 

AFOR 

57 

AFOR 

58 

AFOR 

59 

AFOR 

60 

121 


OOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


1 


70  IF  (NCQOE  .NE.  1)  GO  TO  500 
IF  <NM  .NE.  IS  GO  TO  100 

' WRIT£<8  > CA(I),I=1,N0UAD) , *C  < I ) ,I  = KK,  LASTl , NQUAO) 

GO  TO  1000 
100  NT  = KK  «■  LASTl 

WRITE  (10)  (AC.I),I*i,NQUADI *40(1) ,I=NT,L2, NQUAO) 

GO  TO  1000 
500  NT  = NTAPECNM) 

IF  CNM  ,EQ,  1)  WRITE  (8)  NQNN1,  <ACI),  1*1,  NQNN1) 

WRITE  C NT  ) NQNN1,  (All),  I = 1,  NQNN1) 

1000  CONTINUE 
REWIND  8 
REWIND  9 
REWIND  10 
REWIND  13 
WRITE ( 6 , 9999) 

9999  FORMAT C 1H0  , 5X  , 13HLEA VING  AF0R1I 
C RETURN 
ENO 


AFOR 

61 

AFOR 

62 

AFOR 

63 

AFOR 

64 

AFOR 

65 

AFOR 

66 

AFOR 

67 

AFOR 

68 

AFOR 

69 

AFOR 

70 

AFOR 

71 

AFOR 

72 

AFOR 

73 

AFOR 

74 

AFOR 

75 

AFOR 

76 

AFOR 

77 

AFOR 

78 

AFOR 

79 

"DECK,  SOL  VT 

SUBROUTINE  SOLVIT 

5 SUBROUTINE  SOLVIT  (A,  N t,  MO,  KD,  NI,  MM,  NG,  NW,  *) 

COMMON/SOLVE/  NI  ,MM, NO ,KC, MD 

COMMON  HEORC15), MPR,NER,IPRS,ISIG,ITER,NCFLG,NFL0W,N0, 
1 KAS£*NOFF,  NS  Y M,  IFLAG,IFLOW,NCOOE 
COMMON  /SPACER/  AC14000) 


**** 

••♦/ 

***** 

* 

* 

* * 

♦ /* 

* 

* 

* 

♦ /* 

****** 

* *♦* 

♦ / ♦ 

* 

**  ♦ 

* 

* / * 

* * 

* 

♦/  ♦ 

* 

♦ 

*/  * 

*** 

¥ 

/*** 

♦ 

* 

***** 

* * 

D I 

R E C T 

* a r 

R I X 

SOL 

U T I C 

N 

WRITTEN  BY  J.  L.  HESS  * PROGRAMMED  BY  T.  M.  RIDDELL 

*****  language 

FORTRAN  IV 

•♦♦♦•FUNCTIONAL  DESCRIPTION 

THIS  ROUTINE  SOLVES  THE  REAL  MATRIX  EQUATION 


I I 

I B I 
I I 


I 

C I 
I 


FOR  #B*  C 8 = A ♦ C ) . IF  ■*  A * IS  THE  REAL  COEFFICIENT  MATRIX 
FOR  A SET  OF  SIMULTANEOUS  EQUATIONS  AND  *C<»  IS  THE  MATRIX  OF 


SOLV  1 
SOLV  2 
SOLV  3 
SOLV  4 
SOLV  5 
SOLV  6 
SOLV  7 
SOLV  8 
SOLV  9 
SOLV  10 
SOLV  11 
SOLV  12 
SOLV  13 
SOLV  14 
SOLV  15 
SOLV  16 
SOLV  17 
SOLV  16 
SOLV  19 
SOlV  20 
SOLV  21 
SOLV  22 
SOLV  23 
SOLV  24 
SOLV  25 
SOLV  26 
SOLV  27 
SOLV  26 
SOLV  29 
SOLV  30 
SOLV  31 
SOLV  32 
SOLV  33 
SOLV  34 


122 


c 

SOLV 

37 

c 

CONSTANTS  t RIGHT-SICES  )f  THEN  *3*  WILL  BE  THE  SOLUTIONS  OF  THE 

SOLV 

38 

c 

SOLV 

39 

c 

SET  OF 

SIMULTANEOUS  EQUATIONS,  NOTE  THAT  IF  *C*  IS  A UNIT  MATRIX 

* SOLV 

40 

c 

SOLV 

41 

c 

* B ' WILL  BE  THE  INVERSE  OF  *A*. 

SOLV 

42 

C ! 

SOLV 

43 

c* 

♦♦•♦CALL  STATEMENT 

SOLV 

44 

c 

1 

SOLV 

45 

c 

CALL  SOLVIT  C AREA,  N,  M,  KORE,  NT  1 , NT 2,  NT 3,  NOUT,  LNNN  ) 

SOLV 

46 

c 

SOLV 

47 

c 

WHERE 

SOLV 

48 

c 

SOLV 

49 

c 

JAREA 

* IS  AN  ARRAY  ( DIMENSIONED  FOR  AT  LEAST  "KORE*  WORDS  ) 

SOLV 

50 

c 

THAT  IS  USED  BY  'SOLVIT*  FOR  SCRATCH  PURPOSES, 

SOLV 

51 

c 

AFTER  A NORMAL  RETURN  FROM  'SOLVIT*,  THIS  ARRAY  WILL 

SOLV 

52 

c 

CONTAIN  THE  *B*  MATRIX  STORED  IN  COLUMNAR  ORDER. 

SOLV 

53 

c 

SOLV 

54 

c 

*N» 

IS  THE  ORDER  OF  THE  *A*  MATRIX 

SOLV 

55 

c 

SOLV 

56 

c 

*M* 

IS  THE  NUMBER  OF  COLUMNS  IN  *8*  ANO  *C* 

SOLV 

57 

c 

SOLV 

58 

c 

•KORE 

• IS  THE  DIMENSIONED  SIZE  OF  'AREA*  IN  WORDS 

SOLV 

59 

c 

SOLV 

60 

c 

* NT  1 • 

IS  THE  LOGICAL  FILE  NUMBER  OF  THE  INPUT  DATA  SET 

SOLV 

61 

c 

(THIS  UNIT  IS  ALSO  USEC  3Y  'SOLVIT*  AS  A SCRATCH  TAF„) 

SOLV 

62 

c 

SEE  8EL0W  FOR  THE  DESCRIPTION  OF  THE  INPUT  FORMAT 

SOLV 

63 

c 

SOLV 

64 

c 

* NT  2 • 

IS  THE  LOGICAL  FILE  NUMBER  OF  AN  AVAILABLE  SCRATCH  UNIT 

SOLV 

65 

c 

SOLV 

66 

c 

* NTS'* 

IS  THE  LOGICAL  FILE  NUMBER  OF  AN  AVAILABLE  SCRATCH  UNIT 

SOLV 

67 

c 

(NT1,  NT2 , AND  NT3  MUST  ALL  HAVE  DIFFERENT  VALUES) 

SOLV 

66 

c 

SOLV 

69 

c 

* NOUT 

* IS  THE  LOGICAL  FILE  NUMBER  OF  THE  OUTPUT  DATA  SET 

SOLV 

70 

c 

THE  ' 8*  MATRIX  IS  WRITTEN  ON  'NCUT'  IN  COLUMNAR  OROER, 

SOLV 

71 

c 

! 

ONE  LOGICAL  RECCRO  PER  COLUMN 

SOLV 

72 

c 

( 'NOUT*  MAY  EQUAL  NTi,  Nr2,  OR  NT 3 ) 

SOLV 

73 

0 

SOLV 

74 

c 

• 8>NNN 

* IS  THE  FORTRAN  STATEMENT  NUMBER  WHERE  CONTROL  IS  TO  BE 

SOLV 

75 

c 

TRANSFERRED  IF  'SOLVIT*  DETERMINES  THAT  THE  VALUE  OF 

SOLV 

76 

c 

* KORE*  IS  TOO  SMALL  TO  ALLOW  THE  COMPUTATION  TO  CONTINUE 

SOLV 

77 

c 

CA  FORTRAN  VARIABLE  RETURN) 

SOLV 

78 

c 

SOLV 

79 

C***».0UTPUT 

SOLV 

80 

c 

-1 

SOLV 

6 1 

c 

3 - 

A C WRITTEN  IN  COLUMNAR  ORDER  (ONE  LOGICAL  RECORD 

SOLV 

62 

c 

PER  COLUMN)  CN  'NOUT*  ANO  STOREO  IN  'AREA' 

SOLV 

83 

c 

* 

SOLV 

84 

C***#*STORAGE 

REQUIRED 

SOLV 

65 

c 

SOLV 

86 

c 

fee 

HEXADECIMAL  BYTES 

SOLV 

87 

c 

SOLV 

88 

C*<MMM>METH00 

SOLV 

69 

c 

SOLV 

90 

c 

GAUSSIAN  ELIMINATION 

SOLV 

91 

c 

NOTE. ..THE  ROWS  ARE  NOT  MORMALIZEO 

SOLV 

92 

c 

THE  FIVCT  IS  ASSUMED  TO  8E  THE  DIAGONAL  ELEMENT 

SOLV 

93 

c 

SOLV 

94 

C*****GENERAL 

NOTES 

SOLV 

95 

c 

SOLV 

96 

123 


OOCT  000:000  O OOOOOOOOOOOOOOOOOOOOOO 


THE  VALUE  OF  *K0RE'»  MUST  BE  SJFFICIEM  TO  STORE 

SOLV 

97] 

MAXC  ( 3 * (N  ♦ M)  , N * 'I  ) REAL  VALUES 

SOLV 

ML 

SOLV 

MEEI 

THE  #A»  AND  *C  » MATRICES  MUST  BE  INPUT  IN  ROH  ORDER  . . 

• • 

SOLV 

100 

ONE  LOGICAL  RECCRO  PER  ROW  OF  THE  »A»  ANO  *C*  MATRICES 

SOLV 

101 

1 I 

I . E,  , 

SOLV 

102 

SOLV 

103? 

• • 

• 

SOLV 

104 

. 1 ROW  OF  THE  '»A»  MATRIX  . 1 ROW  OF  THE  *C • MATRIX 

• 

SOLV 

SOLV 

105 

106 

• C*N»  REAL  VALUES)  • ( *M*  REAL  VALUES) 

• • 
• 

SOLV 

1 07- 

* 

* 

SOLV 

1C  6: 

*****♦♦♦******-**#♦*******♦*»**♦•*♦****♦♦♦*##***♦***♦*#***♦ 

SOLV 

I09i 

♦ ONE  LOGICAL  RECORD 

* 

SOLV 

110? 

* I'U*  ♦ *M*  REAL  VALUES) 

* 

SOLV 

lli\ 

SOLV 

112? 

SOLV 

113 

* NOUT*  IS  NOT  POSITIONED  PRIC*  TO  THE  WRITING  OF  *B* 

SOLV 

114 

SOLV 

115 

SOLV 

116 

OIMENSI ON  A ( KO  ) 

SOLV 

117 

SOLV 

118 

LOGICAL  LAST 

SOLV 

119 

SOLV 

120 

NW  = 3 

SOLV 

121 

N = NO 

SOLV 

122 

M = MD 

SOLV 

123 

KORE  = KD 

SOLV 

1 tk 

NPM  = N ♦ M 

SOLV 

125 

IF  (MAX0(3  * NPM,  M * N ) .LE.  KORE)  GO  TC  5 

SOLV 

126 

2475 

WRITE  (6,  2460)  NQUAC,  MO  , KORE 

SOLV 

127 

2460 

FORMAT  C4H1THE,! 4,  2F  X,I3,  15H  MATRIX  EXCEECS ,16,  7H  WORDS 

. ) 

SOLV 

128 

CALL  EXIT 

SOLV 

129 

5 

MT  = MM 

SOLV 

130 

REWIND  MT 

SOLV 

131 

NIN  = N I 

SOLV 

132 

REWIWD  NIN 

SOLV 

133 

NOUT  = NO 

SOLV 

134 

REWIND  NOUT 

SOLV 

135 

MP1  = M ♦ 1 

SOLV 

136 

NN  = N 

SOLV 

137 

NEL  = NPM 

SOLV 

138 

SOLV 

139 

; - - 

CALCULATE  THE  MAXIMUM  NO.  OF  ROWS,  * K* 

SOLV 

1 40 

SOLV 

141 

10 

K = (KORE  - NEL)  / NEL 

SOLV 

142 

SOLV 

143 

- - 

TEST  TO  SEE  IF  THE  REST  OF  THE  MATRIX  WILL  FIT  IN  CORE 

SOLV 

144 

SOLV 

145 

LAST  s K • G£.  NN 

SOLV 

146 

IF  (LAST)  K = NN 

SOLV 

147 

SOLV 

148 

- - 

READ  *K*  ROWS  OF  THE  AUGMENTED  *A*  MATRIX 

SOLV 

149 

SOLV 

1 50 

30 

NT  = 0 

SOLV 

151 

00  4?  13  = lt  K 

SOLV 

152 

NS  = NT  +1 

SOLV 

153 

NT  = NT  ♦ NEL 

SOLV 

154 

40 

READ  (NIN)  (A (10),  10  - NS,  NT) 

SOLV 

155 

SOLV 

156 

OO  OOO  ooo  ooo  ooo  ooo 


C CHECK  TO  SEE  IF  WE  WERE  UNLUCKY  ENOUGH  TO  ENO  UP  WITH  ONLY  ONE  RCWSOLV 


C SOLV 

IF  C K .EQ.  1)  GO  TO  90  SOLV 

SOLV 

- - fK#  IS  GREATER  THAN  *1*  SO  HE  CAN  START  THE  TRIA NGUL ARIZATION  SOLV 

SOLV 

NELPI  = NEL  ♦ 1 SOLV 

NS  = - NEL  SOLV 

NELP2  = NELPi  ♦ 1 SOLV 

SOLV 

- - FORM  THE  ' TRAPEZOI  CAL  • AFRAY  (3)  SOLV 

S|OLV 

00  50  IB  = 2,  K SOLV 

NP  = NELP2  - IB  SOLV 

NS  = NS  «•  NELPi  SOLV 

NT  = NS  SOLV 

DO  50  IO  = IB,  K SOLV 

NT  = NT  + NEL  SOLV 

MN  s NT  SOLV 

MB  * NS  SOLV 

A C NT)  = (-A  (NT) ) / A (NS)  SOLV 

DO  53  NF  = 2,  NP  SOLV 

MN  s MN  ♦ 1 SOLV 

N9  = NB  + 1 SOLV 

50  A (MN)  = A (UN)  + A (NT ) * A(N8)  SOLV 

IF  (LAST)  GO  TO  90  SOLV 

SOLV 

- - WRITE  THE  'TRAPEZOIDAL*  MATRIX  ON  TAPE  SOLV 

SOLV 

NT  = 0 SOLV 

NP  = NEL  SOLV 

NS  = - NEL  SOLV 

DO  60  IO  = 1,  K SOLV 

NS  = NS  ♦ NELPi  SOLV 

NT  = NT  ♦ NEL  SOLV 

WRITE  (MT)  NP,  ( A (I  B ) , IB  = NS,  NT)  SOLV 

60  NP  = NP  - 1 SOLV 

NP  = NP  - M SOLV 

NS  * KORE  - NEL  +1  SOLV 

SOLV 

- - READ  ANOTHER  ROW  SOLV 

SOLV 

DO  30  IO  = 1,  NP  SOLV 

READ  (NIN)  ( A ( I B ) * 16  = KS,  KORE)  SOLV 

SOLV 

MODIFY  THIS  ROW  BY  THE  * TRAPEZOIDAL  * ARRAY  SOLV 

SOLV 

NT  = 1 SOLV 

MN  = NS  SOLV 

DO  70  IB  = i,  K SOLV 

N3  = NT  SOLV 

NF  = MN  «■  1 SOLV 

A ( M N ) = (-A(MN)I  / A (NT ) SOLV 

DO  65  NN  = NF,  KORE  SOLV 

NB  = NB  + 1 SOLV 

65  AINNI  = A ( NN)  ♦ A ( MN)  * A ( N B)  SOLV 

MN  = NF  SOLV 

70  NT  = NT  ♦ NELPi  SOLV 

SOLV 

r - WRITE  THE  MODIFIED  RCW  ON  TAPE  SOLV 

\ • 
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158 

159 

ieo 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 
166 
167 
188 

189 

190 

191 
152 
193 
154 

195 

196 
157 
156 
199 
2 JO 
201 
2 J 2 

203 

204 
20  5 
206 

207 

208 
2C9 
210 
211 
212 

213 

214 

215 

216 
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80  WRITE  (NOUT)  IAINT),  NT  = MN,  KORE) 

REWINO  NOUT 
REWIND  NIN 
C 

C - - SWITCH  THE  TAPES 
C 

NT  = NIN 
NIN  = NOUT 
NOUT  = NT 
C 

C - - RE-CALCULATE  ROW  LENGTH  ANO  LOOF  BACK 

C 

NEL  = NEL  - K 
NN  = NEL  - N 
GO  TO  10 

C 

C - - REWINO  ALL  TAPES 
C 

90  REWINO  MT 
REWINO  NIN 
REWINO  NOUT 
C 

C - - CONDENSE  THE  MATRIX 
C 

NN  = NEL 
NL  = NELP1 

IF  (K  • ECU  1 ) GO  TO  105 
NS  = 1 
NT  = NEL 

DO  100  IB  = 2,  K 
NS  = NS  ♦ NEL PI 
NT  = NT  + NEL 
00  100  10  = NS,  NT 
A (NLI  = A( 10) 

ICO  NL  = NL  f 1 
105  N1  = KORE  - K * M ♦ 1 
C 

C - -THERE,  NOW  WE  CAN  START  THE  BACK-SOLUTION 

C * » NOTE., THE  FIRST  AVAILABLE  LOCATION  FOR  THE  SOLUTIONS  IS  AINU 

c 

NREM  ~ N 
NEL  = NPM 
LAST  = K • EQ.  N 
NP ASS  = 0 
C 

C - - SOLVE  FOR  THE  ANSWERS  CO ^RESPONDING  TO  »K*  ROWS 
C 

110  KM1  = K - 1 
KPi  = K ♦ 1 
NS  = NL  - MP1 
NPASS  = NPASS  f 1 
DO  139  MN  = 1,  M 
NF  = NS  ♦ MN 
A!  INF)  = A(NF)  / A ( NS ) 

NT  = NS 

IF  (KM1  .EQ.  0 ) GO  TO  130 
DO  125  13  = 1,  KH1 
NF  = NF  - 18  - M 
NT  = NT  - MPl  - IB 


SOLV  217 
SOLV  218 
SOLV  219 
SOLV  220 
SOLV  221 
SOLV  222 
SOLV  223 
SOLV  22A 
SOLV  225 
SOLV  22 6 
SOLV  227 
SOLV  228 
SOLV  229 
SOLV  230 
SOLV  231 
SOLV  232 
SOLV  233 
SOLV  234 
SOLV  235 
SOLV  236 
SOLV  237 
SOLV  238 
SOLV  239 
SOLV  240 
SOLV  241 
$OLV  242 
SOLV  243  ] 

SOLV  244  j 
SOLV  2*+5  j 
SOLV  246  ! 

SOLV  247  1 

SOLV  248 
SOLV  249 
SOLV  250 
SOLV  2 51 
SOLV  252 
SOLV  253 
SOLV  254 
SOLV  255  1 

SOLV  256  ! 

SOLV  257 
SOLV  256 
SIOLV  2 59 
SOLV  260  j 
SOLV  261 
SOLV  262 
SOLV  263 
SOLV  264 
SOLV  265 
SOLV  266 
SOLV  26? 
SOLV  268 
SOLV  269 
SOLV  270 
SOLV  271 
SOLV  272  i 
SOLV  273 
SOLV  274 
SOLV  275 
SOLV  276 
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sun  = o.o 

NP  = NF 
N2  = MPi  ♦ IB 
DO  120  10  = 1,  IB 
NN  = NT  ♦ 10 
NP  = NP  * N2  - 10 
120  SUM  = SUM  «•  A (NN  ) * A (NP) 

125  A C NF)  = CACNFI  - SUM)  / A (NT) 

130  CONTINUE 

- - MOVE  THE  SOLUTIONS  TC  CONTIGUOUS  LOCATIONS  STARTING  AT  A(Ni) 

Nl  s K0RE  ♦ 1 
DO  140  NN  = 1,  K 
DO  135  MN  * It  M 
NL  = NL  - 1 
Nl  = Nl  - 1 
135  A ( Nl)  = AC  NL) 

140  NL  * NL  - Nf 

- - WRITE  THE  SOLUTIONS  CN  TAPE 

WRITE  (NIN)  K 
NS  = Nl  - 1 
DO  145  MN  = 1,  M 
NT  = NS  + MN 

145  WRITE  ( NIN  ) (A(IO,  IO  = NT,  MORE,  N) 

- - TEST  IF  THIS  IS  THE  LAST  PASS 

IF  (LAST)  GO  TO  200 

- - WE  MUST  NOW  MODIFY  THE  TRIANGULAR  MATRIX  TO  REFLECT  THE  EFFECT  OF 

THE  SOLUTIONS  OBTAINED  SC  FAR  (€0  21) 

♦ * NOTE.  .LOCATIONS  All)  TO  A(N1-1)  ARE  NOW  FREE  TO  USE 

- - CALCULATE  THE  NEXT  VALUES  OF  * NEL*  AND  'NREM* 

NELOLD  = NEL 
KOLD  = K 
NEL  = NEL  - K 
NREM  = NR EM  - K 

- - NOW  APPLY  THE  INCREDIBLE  FORMULA  cOR  THE  NEW  *K* 

K = (-4  * M - 1)  / 2 «•  IFIX  (SQRT(  3.25  FLOAT!  (4  * M ♦ 2)  ♦ M ♦ 

1 2 * (KORE  - NELOLC)  ) )) 

NROW  = NREM  - K + 1 

IF  (K  .LT,  NREM)  GO  TO  150 

LAST  = .TRUE. 

NROW  = 1 
K = NREM 
150  NS  = 1 

NT  = NELOLD  «■  1 

- - READ  IN  THE  ROWS  TO  BE  MODIFIED 

00  190  IB  = It  NREM 
NT  = NT  - 1 

IF  (IB  .LE.  NROM)  GO  TO  160 


SOLV 

277 

SOLV 

2 78 

SOLV 

279 

SOLV 

280 

SOLV 

281 

SOLV 

282 

SOLV 

283 

SOLV 

284 

SOLV 

285 

SOLV 

286 

SOLV 

2 87 

SOLV 

286 

SOLV 

289 

SOLV 

290 

SOLV 

291 

SOLV 

292 

SOLV 

293 

SOLV 

294 

SOLV 

295 

SOLV 

296 

SOLV 

2 97 

SOLV 

298 

SOLV 

299 

SOLV 

300 

SOLV 

301 

SOLV 

302 

SOLV 

303 

SOLV 

3 04 

SOLV 

305 

SOLV 

306 

SOLV 

307 

SOLV 

306 

SOLV 

309 

SOLV 

310 

SOLV 

311 

SOLV 

312 

SOLV 

313 

SOLV 

314 

SOLV 

315 

SOLV 

316 

SOLV 

317 

SOLV 

316 

SOLV 

319 

SOLV 

320 

SOLV 

321 

SOLV 

322 

SOLV 

323 

SOLV 

3 2* 

SOLV 

325 

SOLV 

326 

SOLV 

327 

SOLV 

328  i 

SOLV 

329  | 

SOLV 

330 

SOLV 

331  ; 

SOLV 

332 

SOLV 

333  j 

SOLV 

334  j 

SOLV 

335  1 

SOLV 

336  f 
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NS  = NS  ♦ NN 

SOLV 

337 

NT  = NT  ♦ NN 

SOLV 

338 

160 

READ  ( MT  ) NN,  (A(IC),  10  = NS,  NT) 

SOLV 

339 

NP  = N1  - 1 

SOLV 

340 

NF  = NT  - N - KM1 

SOLV 

341 

NN  = NN  - KOLD 

SOLV 

342  : 

00  170  NN  = 1,  N 

SOLV 

343 

N2  = NF 

sqLV 

344 

NA  = NP  ♦ NN 

SOLV 

3A5 

NB  = NA 

SOLV 

346 

SUN  =0.0 

SOLV 

347 

00  165  10  = 1,  K01C 

SOLV 

348  j 

SUN  = SUN  ♦ A(N2)  * A(NA) 

SOLV 

349 

N2  = N2  ♦ 1 

SOLV 

350 

165 

NA  = NA  ♦ N 

SOLV 

351 

N2  = N2  ♦ NN  - 1 

SOLV 

3 52 

170 

ACN2)  = A ( N2)  - SUN 

SOLV 

3 53 

SOLV 

354 

- - 

WRITE  THE  NODIFIED  ROW  ON  TAPE  OR  CONOENSE  THE  ROW 

SQLV 

355 

SOLV 

356 

NL  = NT  - N «•  1 

SOLV 

357 

IF  CIB  .GE.  NROM)  GO  TO  175 

SOLV 

358 

NF  = NL  - K PI 

SOLV 

359  j 

WRITE  (NOUT)  NN,  (A(I0),  10  - NS,  NF), 

( A ( 10) , 10  = NL,  NT) 

SOLV 

360  j 

GO  TO  190 

SOLV 

361  i 

175 

NF  = NL  - KOLD 

SOLV 

362 

00  180  NN  = NL,  NT 

SOLV 

363 

A(NF)  = A(NN) 

SOLV 

364 

160 

NF  = NF  + 1 

SOLV 

365 

190 

CONTINU E 

SOLV 

366 

REWIND  NT 

SOLV 

367 

REWIND  NOUT 

SOLV 

3 68  i 

SOLV 

3 69  \ 

- - 

SWITCH  THE  TAPES 

SOLV 

370  | 

SOLV 

371 

NT  = MT 

SOLV 

372 

MT  = NOUT 

SOLV 

373  ] 

NOUT  = NT 

SOLV 

374  1 

SOLV 

375  1 

- - 

LOOP  BACK  THRU  THE  SOLUTION 

SOLV 

376 

SOLV 

377 

NL  = NF 

SOLV 

3 78 

GO  TO  110 

SOLV 

3 79 

SOLV 

360 

4* 

START  TO  WRAP  IT  UP 

SOLV 

381 

SOLV 

382 

200 

REWIND  NIN 

SOLV 

36  3 

N2  = N 

SOLV 

384 

SOLV 

385 

* * 

NOTE. • AT  THIS  POINT  ALL  LOCATIONS  All) 

THRU  ACKORE)  ARE  FREE 

SOLV 

386 

SOLV 

387 

00  22 C IB  = i,  N PASS 

SOLV 

366 

REA 0 (NIN)  K 

SOLV 

369 

N1  = N2  - K * 1 

SOLV 

3 90 

NS  = N 1 

SOLV 

391 

NT  = N2 

SOLV 

392 

SOLV 

393 

*>  -«• 

REAO  IN  THE  SOLUTIONS 

SOLV 

394 

SOLV 

395  ] 

00  210  10  * 1,  M 

SOLV 

3 96  1 
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REAO 

(NIN) 

(A(NN) 

NT  = 

NT 

♦ 

N 

NS  = 

NS 

♦ 

N 

N2  = 

Nl 

- 

1 

NS,  NT) 


- - WRITE  THE  SOLUTIONS  CN  TAPE 
NT  = 0 

' 00  230  10  Ml  M 

NS  = NT  +1 
NT  * NT  ♦ N 

230  WRITE  (NW)  (A  I NN  ) , NK  = NS,  NT) 

WRITE  (6,  300  N,  N,  H 

300  FORMAT  C4H0TH£,I5,  2H  X,I5,  12H  MATRIX  WITH, 14* 
IS  SOLVED  DIRECTLY.) 

C RETURN 

ENO 


SOLV  397 
SOLV  396 
SOLV  399 
SOLV  400 
SOLV  401 
SOLV  402 
SOLV  403 
SOLV  404 
SOLV  405 
SOLV  406 
SOLV  407 
SOLV  408 
SOLV  409 
SOLV  410 

33H  RIGHT  SICES  WASOLV  411 

SOLV  412 
SOLV  413 
SOLV  414 


♦DECK, SIGMA 

SUBROUTINE  SIGMA 
C SUBROUTINE  SIGMA  ( NSKIP  ) 

COMMON  /SIG/  NSKIP 

DIMENSION  L (130)  , Cl  6000,  OSIGiliOG) 

DIMENSION  A (1300  ) 

01 MENS I ON  SIGI6000) 

COMMON  HEOR(15) , MPR, fER,IPRS,ISIG, ITER, NCFLG, NFLQW,NQUAO, 
1 KASE,NOFF,NSYM,IFLAG,I  f LOW , NCODE 
COMMON  / ATAPE  / NCOPY 
NT  = NCOPY  f-  6 
NT A PE  = NCOPY 

IF  ( IS  IG  .NE.  0 ) GO  TO  1 
M = 2 
GO  TO  2 

1 M = 3 

2 IF  (NSKIP  .EQ.  0)  GO  TO  11 
N = M * NSKIP 

00  3 K Mi  N 

3 REAO ( 3 ) 

11  Nl  = 1 

N2  = NQUAO 

00  5 I = 1,  NCFLG 

READ  (3) 

REAO ( 3)  ( C(K),  K = Nl , N2) 

IF!  ISIG  .NE.  0)  READ  (3)  (SIGIK),  K = Nl,  N2) 

Nl  = N2  +1 
5 N2  = N2  + NQUAD 

N = ( NF LOW  - NSKIP  - NCFLG)  * M ♦ NSKIP 
IF  I N .EQ.  0 ) GO  TO  67 
DO  66  K = 1,  N 

66  REAO  (3) 

67  ITER  = 0 
NCONV  = 3 

DO  12  J = 1,  NCFLG 
LCJ)  - 0 

JN  = NQUAD  ♦ ( J - 1 ) 


SIGH 

1 

SIGM 

2 

SIGH 

3 

SIGM 

4 

SIGM 

5 

SIGM 

6 

SIGM 

7 

SIGM 

6 

SIGM 

9 

SIGM 

10 

SIGM 

11 

SIGM 

12 

SIGM 

13 

SIGM 

14 

SIGM 

15 

SIGM 

16 

SIGM 

17 

SIGM 

16 

SIGM 

19 

SIGM 

20 

Si  GM 

21 

SIGM 

22 

SIGM 

2 3 

SIGM 

24 

SIGM 

25 

SIGM 

26 

SIGM 

27 

SIGM 

28 

SIGM 

29 

SIGM 

30 

StGM 

31 

SIGM 

32 

SIGM 

33 

SIGM 

34 

SIGM 

35 

SIGM 

36 

SIGM 

37 

129 


DO  12  I = lv  NQUflO 

SIGN 

38 

K1  = I + JN 

SIGH 

39 

12 

IF C ISIG  • EQ.  U)  SIG(Kl)  = 0*0 

SIGM 

40 

20 

00  22  I * 1,  NCFLG 

SIGH 

41 

22 

OSIG1  ( I ) = O.C 

SIGN 

42 

DO  80  1=  1,  NQUAC 

SIGH 

43 

READ  ( NTAPE  ) NQ,  ( A(J),  J = 1,  NQUAO  ) 

SIGM 

44 

DO  80  J = 1.  NCFLG 

SIGM 

45 

IF { L CJ>  .NE*  0)  GO  TO  80 

SIGM 

46 

SUM  = 0,0 

SIGH 

47 

JN  = NQUAO  * ( J - 1 ) 

SIGM 

48 

DO  60  < = 1»  NQUAO 

SIGH 

49 

K2  = K + JN 

SIGM 

50 

60 

SUM  = SUM  ♦ A ( K ) * SIG(K2) 

* 

SIGN 

51 

K1  = I + JN 

SIGM 

52 

DSIG2  -(-C(K1)  - SUM)  / ACI) 

SIGH 

53 

SIG(Kl)  = SIGCK1)  + CSIG2 

SIGM 

54 

OSIGKJ)  = AMAX1  <A3S  (DSIC-2)  , OSIGKJ)) 

SIGM 

55 

80 

CONTINUE 

SIGM 

56 

ITER  = ITER  ♦ 1 

SIGM 

57 

REMIND  NTAPE 

SIGM 

58 

IF ( IPRS  .EQ.  0)  GO  10  85 

SIGM 

59 

WRITE C 6f9996 ) ITER 

SIGM 

60 

9998 

FORMAT ( 1H  , 5 X » 17H  ITERATION  NOS.  f 13) 

SIGM 

61 

00  82  K = 1,  NCFLG 

SIGM 

62 

K1  = NQUAO  * C K-l)  + 1 

SIGM 

63 

K2  = K1  4-  NQUAD 

SIGM 

64 

82 

WRITE ( 6 . 10)  < « ( SIG< I ) » I = Kit  K2) 

SIGM 

65 

10 

FORMAT  ( 1H  , 5X,  12F  FLCW  NUMBER  , 14  / ( 

5X,  6F15.8)) 

SIGM 

66 

85 

DO  400  J = 1 , NCFLG 

SIGM 

67 

IF ( L ( J ) »NE.  0)  GO  TO  400 

SIGM 

68 

IF(OSIGllJ)  .GE.  1.0E-4)  GO  TO  403 

SIGM 

69 

L ( J ) = ITER 

SI  GM 

70 

NCQNV  = NCONV  ♦ 1 

SIGM 

71 

IF  < NCONV  .EQ.  NCFLG  ) GO  TO  503 

SIGM 

72 

483 

CONTINUE 

SIGM 

73 

NTAPE  = NT  - NTAPE 

SIGM 

74 

IF  C ITER  - 100)  2(1 . 500,  20 

SIGM 

75 

500 

00  650  J = 1,  NCFLG 

SIGM 

76 

IF  ( L 1 J ) .EQ.  0 ) GC  TC  550 

SIGM 

77 

WRITE  ( 6,  6 ) L ( J ) 

SIGM 

78 

6 

FORMAT  (1H0,  5X,  15,  2X , 35HITERATI0NS  REQUIREO  FOR  CONVERGENC  E 1 

1 SIGM 

79 

GO  TO  6 50 

SIGM 

80 

550 

WRITE  ( 6,  7 ) 

SIGM 

til 

7 

FORMAT  (1H0,  6X,  35HNO  CONVERGENCE  AFTER  ICO 

ITERATIONS  1 

SIGM 

82 

K1  = NQUAD  * C J-l)  4 1 

SIGM 

83 

K2  = K1  4 NQUAD 

SIGM 

84 

WRI TE  (6,8)  (SIGII),  I = K1,K2) 

SIGM 

85 

8 

FORMATt  1H  , 5X , 8F12.7) 

SIGM 

86 

65  C 

CONTINUE 

SIGM 

87 

NN  = NQUAD 

SIGM 

68 

M = MOOINN,  255) 

SIGM 

89 

IF  (M  .LT.  5 .AND.  M .GT.  0)  NN  = NN  ♦ 5 

SIGM 

90 

N1  = 1 

SIGM 

91 

DO  675  J = 1,  NCFLG 

SIGM 

92 

WRITE  (3)  (SIGIK),  K = Nl,  NN) 

SIGM 

93 

N1  = N1  + NQUAD 

SIGM 

94 

675 

NN  = NN  4-  NQUAD 

SIGM 

9 5 

REWIND  3 

SIGM 

96 

WRITE <6,  9999) 

SIGM 

97 

130 
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9999  FORMAT ( 1H0  • 5X,  13HLEAVING  SIGMA) 
C RETURN 

END 


SIGM 

SIGM 

SIGM 


♦DECK*  ATA  PS 

SUBROUTINE  ATAPES 
C SUBROUTINE  ATAPES  ( KFLOW  ) 
COMMON  /TAPES/  KFLOW 


C-  - -DEFINITION  OF  ARGUMENTS 


NQ 

KFLOW 

NCOPY 


NUMBER  OF  VALUES  OF  »A»  PER  RECORO 
FLOW-FLAG*  i = A-FLCW,  2 = 8-FLCW,  3 = C-FLCW 
TAPE  NUMBER  TO  BE  USED  BY  *ROWA* 


10G 


200 


300 


COMMON  HEORC15) , MPR.NER, IPRS,ISIG,  ITER, NCFLG ,NFLOW » NQUAD , 

1 KASE, NOFF , NSYH* IFL A G»I FLOW ,NCOOE 
COMMON  / ATAPE  / NCOPY 

DIME  NS  I ON  A(1000)*NLINE(500),NLT(50G)  » XNULL  ( 1000  ) »YNULL  (100C  )* 

1 ZNULL ( 1000 ) *XNORM (1000  ) »YNORM(10D0 ) ,2 NORM (1000)  * X OFF ( 1000) * 

2 YOFF(lOflO) ,ZOFF(1000) 

IF  { KFLOW  - 2 ) 100*  200,  300 

NCOPY  = 9 
GO  TO  1000 
= 10 
400 
= 13 


NCOPY 
GO  TO 
NCOPY 


C-  - -START  OF  LOOP 


400  DO  900  N = 1,  NGUAD 
NTRY  = 0 
500  CKSUM  =0.0 


C-  - -READ  THE  * A*  MATRIX  FROM  THE  APPROPRIATE  TAPE 
READ  ( NCOPY  ) NQ,  (A(I),  I = 1,  NQ) 

( A ( I ) ? 1=1,  NQ) 


900  WRITE  ( 9 ) NQ, 

GO  TO  1400 

C-  - -THE  PURPOSE  OF  THE  F CLLOWING  *MIC<EY  MOUSE*  IS  TO  RE-POSITION  THE 
C CONTROL  TABLES,  NULL  POINTS,  AND  UNIT  NORMALS  AT  THE  BEGINNING  OF 

C THE  TAPE.  THIS  ELIMINATES  SKIPPING  THE  *28  QUANTITIES*  EACH  TIM^. 

1C0C  READ  (4)  KLCT « (NLINE(J) , NLT (J) * J = i,  KLCT) 

READ  (4  ) ( XNULL  ( J)  , YNULL(  J)  ,ZNULL(J)  ,XNORM(J),  YNORM(  J)  ,ZNORM  (J ) , 

1 J = 1,  NQUAD)  , 

IF  (NOFF  ,GT.  0)  READ  (4)  (XOFFCJ),  YOFF(J),  ZCFF(J),  J=i,  NCFF) 
REWIND  4 

WRITE  (4)  KLCT,  (NLINE(J),  NLT(J),  J = 1,  KLCT) 

DO  1120  J = 1,  NQUAD 

1100  WRITE  (4)  XNULL  ( J)  * YNULL(  J)  ,ZNULL(  J)  ,XNORM(  J)  ,YNORM(J)  ,ZNORMU) 

IF  (NOFF  .EQ.  0)  GO  TO  1300 
DO  1200  J = 1,  NOFF 

120C  WRITE  (4)  XOFF(J),YOFF(J),ZOFF(J),XOFF(J),YOFF(J),ZOFF(J) 

1 300  REWIND  4 ' 

1400  REWINO  8 


ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

AT  AP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 
*42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 


J 


REWINO  NCOPY  ATAP 

WRITE  (6,  1500)  ATAP 

1509  FORMAT  (1H0,  5X,  14HLEAV ING  ATAPES)  ATAP 

C RETURN  ATAP 

END  ATAP 


♦OECK,  PRINT  PRIN 

SUBROUTINE  PRINT1  PRIN 

C SUBROUTINE  PRINT 1 ( NSKIP » MNf  KMAT,  NSEQi  PRIN 

COMMON  /PRINTO/  KMAT  , NSEC, KTP14  PRIN 

Common  /tapes/  mn  prin 

COMMON  /SIG/  NSKIP  PRIN 

COMMON  HEOR (15 ) , MPR, )ER ,IPRS, ISIG, ITER, NCFLG , NFL CW ,NQUAO , PRIN 

1  KASS,NOFF,NSYM,IFLAG,IFLOW,NCOOE  PRIN 

REAL  NX  , NY  , NZ,  MACH  PRIN 

LOGICAL  PUNCHY  PRIN 

COMMON  /M/  MACH,  BETA,  ReETA  PRIN 

DIMENSION  FLOWID  (3)  , PRIN 

1 V X ( 2 G 0 0 ) , VY  ( 200  G ) , YZ(2Q00),  PRIN 

4 NST ( 50  0) * NCLC520)  PRIN 

DIMENSION  SIG  ( 1000  ) , XIJ(ldOQ),  YIJ(iCS9),  ZIJ(IOOC)  PRIN 

DATA  FLOWID  / 2HX-,  2HY-,  2HZ-  /,  PROG  / 4HBCXC  / PRIN 

PUNCHY  = .FALSE,  PRIN 

NTIME  = NQUAD  ♦ NOFF  PRIN 

LCMAX  = 12  PRIN 

C READ  IN  IDENTIFYING  INTEGERS  PRIN 

C PRIN 

REA  DC  4)  INSECT,  I NS  1(J)  „ NCL(J)  , J = 1,  INSECT)  PRIN 

DO  2000  L = 1,  NCFLG  PRIN 

IF(  I SI G .NE.  0)  GO  TO  1 PRIN 

M = 2 PRIN 

GO  TO  2 PRIN 

1 M = 3 PRIN 

2 N = M * (NSKIP  ♦ L - 1)  PRIN 

IF  (N  . EQ.  0)  GO  TO  4 PRIN 

00  3 J = 1,  N PRIN 

3 READ  (3)  PRIN 

4 REAO  ( 3)  KFLOW,  (YX(IJ),  YY(IJ),  YZCIJ),  IJ  = 1,  NTIME  ) PRIN 

IF  ( KFLOW  ,EQ.  KMAT  ) GO  TO  9 PRIN 

CALL  HEADER  PRIN 

WRITE  (6*  8)  KFLOW,  KMAT  PRIN 

8 FORMAT  ( 1H0,6X,  48HAN  APPARENT  FLOW  MIS-MATCH  HAS  OCCURRED.  KFLOW  PRIN 

• 1=,  12,  7H  KMAT  =,  12  ) PRIN 

CALL  EXIT  PRIN 

9 N = ( NF LOW  - NSKIP  - L ♦ 1)  * M ♦ NSKIP  ♦ L - 2 PRIN 

DO  5 J = 1,  N PRIN 

5 REAO  (3)  PRIN 

REAO  C3>  CSIGCJ) , J = 1,  NQUAD)  PRIN 

REWINO  3 PRIN 

IFCKTP14  .EQ.  1)  WRITE  (14)  (SIG(J)  , J=l, NQUAD)  PRIN 

IF  ( KTP14  .EQ.  1)  ENDFILE  14  - PRIN 

REWINO  14  PRIN 

IF  (MN  .EQ.  1)  GO  TO  15  PRIN 

NRSKIP  - FN  - 1 PRIN 

DO  10  JM  = 1,  NRSKIP  PRIN 

REAO  (1)  PRIN 


132 


1 


c-3 


READ  (11) 

10  REAO  (12) 

15  LC  = LCMAX 
INSECT  = 1 
M s 0 

IF  (L  .GT.  1) 

GO  1000  IS 
READ(4)  XN*  VN*  ZN,  KX,  )Y,  NZ 
IF  ( MACH  .EQ.  0.0  ) GO  TO  17 
CORR  = 1.0  / SORT (NX  * NX  ♦ BETA 


READ  (4) 

= 1,  N TIME 


* BETA  * (NT  * NY  ♦ NZ  * NZ )) 


NX 


CORR 

BETA 

BETA 

BETA 


CCRR 

CORR 


17 


NX  * 

NY  = NY 
NZ  = NZ 
XN  = XN 
VIX  = 0.9 
VIY  = 0.0 

VIZ  = 0.0 

CALL  ROWV(  XIJ*  YU,  ZIJ,  IS*  1) 


PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PtRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 


DO  20  11  * 1.  NQUAC 

PRIN 

c 

PRIN 

c 

VELOCITY  COMPONENTS  EQ.  (135)  OR  EQ.  (140) 

PRIN 

c 

PRIN 

VIX  = VIX  «•  XIJ(  11  ) * SIG(Il) 

PRIN 

VIY  = VIY  ♦ YIJ(  11  ) * SIG(Il) 

PRIN 

20 

VIZ  = VIZ  «•  ZIJ(  11  ) * SIG(Il) 

PRIN 

VIX  = VIX  * RBETA  * RBETA  ♦ VX(IS) 

PRIN 

VIY  = VIY  * RBETA  ♦ VV(IS) 

PRIN 

VIZ  = VIZ  * RBETA  ♦ VZ(IS) 

PRIN 

c 

IF  ( PUNCHV  ) GO  TO  26 

PRIN 

IF  ( IS  .EQ.  NQUAC  .OR.  IS  .EQ.  NTIME  ) GO  TO  22 

PRIN 

VIXT  = VIX 

PRIN 

VI YT  = VIY 

PRIN 

VIZT  = VIZ 

PRIN 

c 

PUNCHV  = .TRUE. 

PRIN 

GO  TO  30 

PRIN 

22 

NSEQ  = NSEQ  ♦ 1 

PRIN 

IF(PUNCHV) 

PRIN 

4 

A 

.WRITE  ( 7,  24  ) VIX*  VIY*  VIZ*  KASE*  PROG*  NSEQ 

PRIN 

24 

FORMAT  ( 3F10.7,  36X.A4*  2X.A4,  14) 

PRIN 

GO  TO  28 

PRIN 

26 

NSEQ  = NSEQ  ♦ 1 

PRIN 

WRITE  ( 7,  27  ) VIXT,  VIYT,  VIZT,  VIX,  VIY,  VIZ,  KASE, 

PROG,  NSEQ  PRIN 

27 

FORMAT  ( 6F10.7,  6X,A4,  2X,A4,  14) 

PRIN 

26 

PUNCHV  = .FALSE. 

PRIN 

c 

TOTAL  VELOCITY  MAGNITUDE  EQ.  ( 136  ) 

PRIN 

c 

PRIN 

30 

VTSQ  = VIX  * VIX  ♦ VIY  * VIY  ♦ VIZ  * VIZ 

PRIN 

VT  = SQRT  ( VTSQ) 

PRIN 

c 

PRIN 

c 

PRESSURE  COEFFICIENT  EQ.  (137) 

PRIN 

c 

PRIN 

CPI  = 1*0  - VTSQ 

PRIN 

c 

! 

PRIN 

51 

5| 

5l 

5;j 

5 

5i 

A 

5 

5' 

61 

Gi 

fei 

M 

e4 

6i 

66 


61 


OIRECTI ON  COSINES  OF  THE  TOTAL  VE-OCITY  VECTOR 

GIX  = VIX  / VT 

GIY  = VIY  / VT 

GIZ  = VIZ  / VT 

LC  = LC  *1 

IF  (IS  .GT.  NQUAC)  GO  TO  50 
TOTAL  NORMAL  VELOCITY  EQ.  (139) 


EQ.  (136) 


PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 


6! 

76 

7i 

7i 

7A 

7% 

n 

77 

t i 

ri 

e| 

61 

M 

83? 

64! 

65 

66 
87 
66 
69 

90 

91 

92 

93 

94 

95 

96 

97 
96 
99 

ICO 

101 

102 

103 

104 

105 
166 
107 

106 
10$ 
110 


133 


o o o 


c 


c 


c 


VNI  = VIX  * NX  ♦ VIY  * NY  «•  VIZ  * NZ 

PR  IN 
PR  IN 

111 

112 

N = NST  ( INSECT  ) 

PR  IN 

113 

MMAX  = IABS  ( NCL  t INSECT  ) ) 

PRIN 

114 

M = M ♦ 1 

PR  IN 

115 

IF ( LC  .LT.  LCMAX)  IF  CM  - 1)  *3,  35,  43 

PRIN 

116 

WRITE  (6,  3000  ) 

PRIN 

117 

3000  FORMAT  C 1H0,  4X, 1H ., 84X, 1H.  > 

PRIN 

118 

CALL  HEAOER 

PRIN 

119 

LC  = 0 

PRIN 

120 

WRITE  16,  40301  FLCWIOC KFLOWI 

PR"N 

121 

4030  FORMAT  (1HQ , 45X , A2  , 4HFL0W) 

PRIN 

122 

WRITEC6, 40001 

PRIN 

123 

35  WRITEC6,  40051  N,  M,  XN,  VT,  V IX,  GIX,  NX,  VNI 

PRIN 

124 

GO  TO  45 

PRIN 

125 

4015  FORMAT ( 1HQ , 3C17X  , 2(  6H*»****  1 1 > 

PRIN 

126 

4000  FORMAT C 1HC , 6X  , 5HN  M,8X,  3HNPX,10X,  2HVT  , 12X,  2HVX 

, 10X  , 

PRIN 

127 

1 3HOCX , 11 X,  2HNX  ,10X,  2HVN  ✓ 

PRIN 

128 

21M  , 19X , 3HNPY  , 9X,  4HVTSQ  ,11X,  2HVY  ,10X,  3H0CY,11X, 

2HNV  ,14 X 

, PRIN 

129 

33MSIG/ 

PRIN 

130 

41H  ,19X , 3HNPZ  ,10X,  4HCF  , 10X,  2 H ,10X,  3H0CZ,11X, 

2HNZ 

) PRIN 

131 

4005  FORMAT ( 1H0 , 3X*  214  , 6F13.6) 

PRIN 

132 

4010  FORMAT  «1H0,7X,  14  * 6F13.6) 

PR  IN 

133 

4020  FORMAT ( 1H  , 11X,  6F13.6) 

PRIN 

134 

4 6 WRITE  (6,40101  M,  XN,  VT,  VIX,  GIX,  NX,  VNI 

PRIN 

135 

45  WRITE (6,  4020)  YN,  VTSQ,  VIY,  GIY,  NY,  SIGCIS),  ZN, 

PflllN 

136 

1 CPI  , VIZ,  GIZ,  NZ 

PRIN 

137 

IFI  M .LT.  MM AX)  GC  TO  1000 

PRIN 

138 

IF  (NCL  (INSECT)  «GT.  0)  GO  TO  48 

pRin 

129 

WRITE  (6,  4015) 

PRIN 

140 

LC  = LC  ♦ 1 

PRIN 

141 

48  M = 0 

pR  IN 

142 

INSECT  = INSECT  ♦ 1 

pRin 

143 

GO  TO  1000 

pRin 

144 

50  IF  ( LC  .LT.  LCMAX  .AND.  IS  . ME.  ( NQUAO  ♦ 1))  GO  TO  60 

PRIN 

145 

WRITE  (6,  3000) 

PRIN 

146 

CALL  HEADER 

pRin 

147 

LC  = 0 

PRIN 

148 

WRITE  (6,  4030)  FLOWIO( KFLOW) 

PRIN 

149 

WRITE  (6,  55) 

pRin 

150 

55  FORMAT  C1M0 , 6X, 5HPCINT, 13X, 2HX  *13X , 2HVT,16X ,2HVX,17X,3HQCX,  /, 

PRIN 

151 

125X.2HV  ,17  >,4Htf  TSQ,  17X  , 2H VY,  17 X, 3 HOC Y , /, 

pRin 

152 

225X.2HZ  ,10X,2HCP , 18 X,2HVZ ,17X, 3H3CZ , //  ) 

PRIN 

153 

WRITE  THE  OFF-BOOV  ANSWERS 

PRIN 
PR  IN 

154 

155 

60  N = IS  - NQUAO 

PRIN 

PRIN 

156 

157 

WRITE  (6,65)  N ,XN , VT  , VI X , G I X , YN , VTSQ , V I Y , G I Y ,Z N,  CPI , VIZ , 

GIZ 

pRin 

158 

65  FORMAT  (1H0,  19,  4F20.6,  / (10X,  4F20.6)) 

pRin 

159 

1C00  CONTINUE 

pRin 

PRIN 

PRIN 

160 

161 

REWINO  4 

162 

IF  (NOFF  .GT.  0)  WRITE  (6,  4015) 

PRIN 

163 

2000  CONTINUE 

PRIN 

164 

WRITEC6,  9999) 

PRIN 

165 

9999  FORMAT  ( 1M1  , 5X,  14HLEA  VING  PR  INTI) 

PRIN 

166 

RETURN 

PRIN 

167 

END 

PRIN 

168 
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•0ECK.WTAP14  WTAP 

SUBROUTINE  WTAP14  WTAP 

WTAP 

WRITES  23  QUANTITIES  ON  1APE14  FOR  USE  BY  THE  PARTICLE  TRAJECTORY  WTAP 
COOES.  REVISED  3/22/77.  WTAP 

WTAP 

Common  heorcis ),mpf,  ier,  iprs, isig« it er ,ncflg ,nflow,  nquao f wtap 

1  KASE,NOFF,NSYM,  IFLA G,IFLOW,NCOQE  WTAP 

COMMON  /SPACER/  DUMMY  (14000)  WTAP 

REAL  IXX,IXY*IYY .MACH  WTAP 

COMMON  /M/  MACH,  BETA,  RBETA  WTAP 

DIMENSION  04 1 ( 10  JO)  , XC (10GG I , YC < 1001 ) , ZC ( 1000 >. WT AP 

1 Ail(10QO),A12  ( 1 0 CO  ) , A 13  < 1 C 00 » , A 21 ( 1 03 C ) , A22 Cl C CO) , A23 ( 10 0 C> , WTAP 

2 A31  (13  00)  • A32  (1000),  A33  ( 10  0 J ) ,X  II  ( 1 L 30  ) • XI2  ( 1000  ) ,X  13  UJJO)  , WTAP 

3 XI  4(19  00)  ,ET  All  1000)  ,ETA2(  100U),ETA4(  1000)  ♦ TSQ(  10  00)  , A ! lull  u ) , WTAP 

4 IXX(lf)OO)  , IXY  ( 1000  ), IYY  (1030),  312  ( 13u  J ) , 02  3(  1000  ) , 034  ( 1 J CO  ) WTAP 

EQUIVALENCE  (DUMMY  (1 ) , D41)  ♦ (DUMMY  ( 10  01  It  XC)  , (DUMMY (2001) , YC  ),  WT  AP 

1 ( DUMMY (3001)  , ZC ) . (OUMMY  (430  1)  , All),  (OUMMY (5001) t Al2l  , WTAP 

2 (DUMMY  (600D  t A13I,  (CUMMYI7C01I  , 421),  (OUMMY (3001)  , , WTAP 

3 f DUMMY  ( 90  Oil,  A23)  , (DUMMY  ( 1030 1)  , A31),  (OUMMY  (11001 ) • A32I.  WTAP 

4 (OUMMY! 12001) * A33),  (DUMMY ( 1303 1) , XIII  WTAP 

C WTAP 

REWIND  14  WTAP 

WRITE (141  KASE,NSYH, NQUAO, RBETA,  MACH  WTAP 

DO  100  J-l, NQUAO  WTAP 

100  READ  (4)  XC(J>,  YC  (J),  ZC(J),  Ail  ( J ) , A124J),  A13(J),  A2KJ),  WTAP 

1 A 2 2 ( J I , A23(J),  A31(JI,  A32(J),  A33(J),  XI  1(J)  ,ETAl(  J)  ,XI2  ( WTAP 

2 J) , ET A2( J) , XI 3 ( J) , >I4(JI,  ETA4IJ),  TSG(J),  A (J),  IXX  (J),  WTAP 

3 IXY  (J),  IYY(J),  012(J),  D 23 ( J ) , 034(J),  041(J)  WTAP 

WRITE (14) (XC(J) ,YC  (J),  ZC(J),  All(J),  A12(J),  A13(J),  A21(J).  WTAP 

1 A22  ( J ) , A 2 3(  J ) , A 31  (J  ),  A32(J),  A33UI*  XIl(J)  ,ETAl(J)  ,XI2  ( WTAP 

2 J) , ET  A2( J ) , XI 3 ( J)  , XI4 ( J I , £TA4(J),  TSQ(J),  A ( J) , IXX  ( J) , WTAP 

3 IXY  (J),  IYY(J),  C12IJ)  , 023IJ),  0341  J)  t 04KJ)  ,J-1, NQUAO)  WTAP 

REWIND  4 WTAP 

ENO  WTAP 


1 

2 

3 

4 

5 

6 

7 

6 

9 

10 

11 

12 

13 

14 

15 

16 
17 
Id 

19 

20 
21 
22 
£3 

24 

25 

26 
27 
23 

29 

30 

31 

32 

33 

34 

35 


135 


-#  4r  m .» 


PROGRAM  FLGPNT 


7 4/74  OPT  = 2 


FTN  4.7+476 


02/26/1 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PROGRAM  FLCPNT  ! INPUT,  TAPE6,  TAPE5*INPUT,  TAPE1 4*  OUTPUT) 


H.  G.  NORMENT,  ATMOSPHERIC  SCIENCE  ASSOCIATES  - NOVEMBER  1979 


FLCFT 

FLCFT 

FLCFT 

FLOPT 

FLCFT 


CALLS  FLOVEL  TO  COMPUTE  AND  PRINT  FLOW  VELOCITIES  AT  SPECIFIED 
POINTS  IN  SPACE.  INPUT  INTEGERS  M(3I  SPECIFY  THE  OROER  IN  WHICH 
INCREMENTING  IS  DONE  - 1LLOWEO  VALUES  OF  M ARE  1.2*3.  FOR  EXAKPLEFLCPT 
SUPPOSE  M(l)  = 2,  M 1 21  = 1.  M<3>=3.  THEN  Y IS  INCREMENTED  FIRST.  X IS  FLCPT 
INCREMENTED  SECOND  ANO  Z IS  INCREMENTED  LAST.  FLCF1 

OTHER  INPUT  OATA  ARE  (IN  ORDER  OF  X AXIS  FIRST,  V AXIS  StCONO,  FLOPT 
Z AXIS  THIROI-  INITIAL  COORDINATE,  INCREMENT,  NUMBER  OF  INCREMENT  SFLCF1 


OESIRED  (INCLUIING  THE  INITIAL  COORDINATE  VALUE) 


NOTE  - 
IN  THE 


POINTS  THAT 
PRINTOUT. 


ARE  INSIDE  THE  BOOY  ARE  MARKEO  WITH  AN  AS TER IX 


, 4HSEC0, 
3H  / 


10 

20 


DIMENSION  HOLL (16  ) , 

1 SXII3) , S EQ  (6) 

OATA  SEQ/  4HFIRS,  4HT 
DATA  STAR,  8LNK  / 3H 
REA0(  5,  2600)  KASE 
CALL  SETFLO(  KASE  ) 

READ ( 5,  1300  ) HOLL 
WRITE!  6,  1400)  HCLL 
READ  (5 , 110  0)M 

IF(IABS(M!1))  + IASS (M! 21)  + IASS (M(3 ) ) . EQ . 
IF!N!1)+MI2)+M!3)  .EQ.  6)  GO  TO  10 
WRITE  (6, 1200 
STOP 

OQ  20  L=1 , 3 

READ (5 ,1000)  X (L)  , D(L) » NIL) 

WRITE ( 6 , 1700) 

WRITE!  6, 2000)  X(l),  0(1),  N(l) 

WRITE  ( 6,30  (0)  X ( 2 ) , D(2),  N(2) 

X (3  ) , 0(3),  N(  3 ) 


X ( 3)  , D(  3)  » N (3)  , M!3I , SX!3I,  SOU),  NS!3I, 


4MND  , 4HTHIR,  4H0 


0)  STOP 


A 


40 


WRITE (6, 4000) 
WRITE!  6 ,9000) 

WRI TE ( 6 , 5 0 0 0 ) 
WRITE!  6, 60  (0) 
WRITE  1 6, 70 00) 
WRITE!  6,  1690 
DO  40  L=l, 3 
LL=4-H(L) 
S0(LL)=0!L) 

SXI( LL)=X (L)~0(L) 
NS(LL)  = N(L  ) 

N1=NS!  1) 

N2sNS !2) 

N3=NS  (3) 
SXU)sSXI(l) 

00  500  1=1, N1 
SX(1)=SX(1) ♦SO(l) 
SX(2)-SXI(  2) 

00  500  J-1.N2 
MUTE!  6,1900) 
SXI2)»SX  I2I+S0I2) 
SX(  3)  = SXI(  3) 

00  500  K=1,N3 


SEQ(2*M!1)  -1), 
SEQ!2*M  (2)  -II , 
SEQ(2*M(3) -1) , 

1 


SEQ(2*M (1 ) I 
S£Q(2*H(2)I 
SEQ !2*M (3 ) ) 


FLCPT 

FLCPT 

FLCPT 

FLCFT 

FLCPT 

FLOPT 

FLCFT 

FlioPT 

FLOPT 

FLCPT 

FLCPT 

FLCFT 

FLCPT 

FLCPT 

FLOPT 

FLCPT 

FLCPT 

FLCFT 

FLCFT 

FLOPT 

FLOP' 

FLOPT 

FLCFT 

FLCPT 

FLCPT 

FLCFT 

FLOPT 

FLOPT 

FLCPT 

FLOPT 

FLOFT 

FLOPT 

FLCPT 

FLCPT 

FLCFT 

FLCPT 

FLCFT 

FLOFT 

FLCPT 

FLOPT 

FLOPT 

Flop  t 

FLCFT 
FLCPT 
FLOFT 
FLOP  T 


2 

i 

i 

1 

2 
21 

4 

$ 

Si 

3 

3 

3 

3 

3 

3 

3 

3 

4 
4 
4 
4 
4 
4 
4 
4 
4 

4 

5 
5 
5 
5 
5 
5 
5 
5 
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74/74  OPT  = 2 


FTN  4. 7+476 


02/26/80 


20.31.01 


PROGRAM  FLCPNTI  INPUT,  TAPE6,  TAPE5*INPUT,  TAPE14,  OUTPUT) 

FLCF1 

H.  G.  NORMENT,  ATMOSPHERIC  SCIENCE  ASSOCIATES  - NOVEMBER  1979  FLCPT 

FLCFT 

CALLS  FLOVEL  TO  COMPUTE  ANO  PRINT  FLOW  VELOCITIES  AT  SPECIFIED  FLOPT 
POINTS  IN  SPACE.  INPUT  INTEGERS  M (3)  SPECIFY  THE  OROER  IN  WHICH  FLCFT 
INCREMENTING  IS  DONE  - ALLOWED  VALUES  OF  M ARE  1,2,3.  FOR  EXAMPLEFLCPT 
SUPPOSE  M!  1)  = 2*  M !2)  = 1,  M!3)  =3,  THEN  Y IS  INCREMENTED  FIRST,  X IS  FLCPT 
INCREMEN TEC  SECOND  ANO  Z IS  INCREMENTED  LAST.  FLCFT 

DTHER  INPUT  DATA  ARE  CIN  ORDER  OF  X AXIS  FIRST,  Y AXIS  SECOND,  FLOPT 
Z AXIS  THIRO)-  INITIAL  COORDINATE,  INCREMENT,  NUMBER  OF  INCREMENT  SFLCF1 
DESIRED  (INCLU  (ING  THE  INITIAL  COORDINATE  VALUE).  FLOPT 

FLCPT 

NOTE  - POINTS  THAT  ARE  INSIDE  THE  BODY  ARE  MARKED  WITH  AN  ASTERIX  FLOPT 
IN  THE  PRINTOUT.  FLCPT 

FLCPT 

DIMENSION  HOLLU8),  XI3),  D(3),  NI3),  MI3I,  SX  (3) , SDI3),  NS43),  FLOPT 
SXI(3  ) , SEQC6)  FLOPT 

DATA  SEQ/  4HFIRS,  4HT  , 4HSEC0,  4MND  , 4HTHIR*  4H0  / FLOPT 

DATA  STA  f * BLNK  / 3H  *,  3H  / FLOPT 

READ)  5,  2600)  KASE  FLOPT 

CALL  S ETFLO  < KASE  ) FLCFT 

READ ( 5,  1 300  ) HOLL  FLOPT 

WRITE!  6,  1400)  HCLL  FLCPT 

READ (5 , 110  0) M FLCPT 

IF!IABS(M!1))  + IA3S!H!2I)+IABS!M!3)I.  EQ.  0)  STOP  FLOPT 

IF!M!1)+M!2)+M<3)  . EQ.  6)  GO  TO  10  FLCPT 

WRITE!  6,  1200  FLOPT 

STOP  FLCPT 

10  20  L=l,3  FLCFT 

READ  !5 , 1000)  X!L),  0!L),  NIL)  FLOPT 

WRITE!  6 , 1700)  FLOP* 

WRITE! 6, 2000)  X!l),  Oil),  Nil)  FLOPT 

9RI TE  ! 6,30  CGI  X!2),  0!2),  N!2)  FLCFT 

WRITE !6, 4000)  X!3),  0!3),  N!3)  FLCFT 

WRITE! 6 ,9000)  FLCPT 

IRI TE! 6,9000)  SEQ  !2*N  !1) -1 ) , SEQ  !2+M !1 ) ) FLCFT 

(RITE ! 6, 60  CO ) SEQ  ! 2*M  !2) -1) , SEQ!2*M!2M  FLOPT 

^RI TE ! 6, 70  00 ) SEQ  !2*M !3) -1) , SEQ!2*M!3>)  FLOPT 

IRITEI  6,  1600  ) FLCFT 

SO  40  L = l,3  FLOPT 

lL=4-M(L)  FLOFT 

SO  ILL  ) =0  !L  ) FLOFT 

iXI! LL)=X (L)-D!L)  FLCFT 

15  ILL  ) = ML  ) FLOPT 

il=NS!l)  FLCFT 

12= NS  ! 2)  FLCPT 

I3=NS ! 3)  FLCPT 

IX  1 1 ) = S X I ( 1 ) FLOPT 

jO  500  1 = 1, N1  FLCPT 

p(!l)  = SX!l)  +SOI1)  FLOFT 

»!2)=SXII2)  FLOPT 

SO  500  J=  1 ,N2  FLOPT 

SITE!  6,1900)  FLCFT 

!X!2)  = SX  12I+S0I2)  FLCPT 

■X!  3)  = SXI ! 3)  FLOPT 

O 500  K=1  ,N3  FLOFT 
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6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 
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program  flopnt 


74/ 7 A OPT -2 


FT N 4.7*476 


50 


100 

209 

599 


1009 

lies 

1200 

1399 

1400 
1500 
16  'JO 
1700 
1900 

i 

2600 
20  09 

1 

3900 

1 

4900 

5000 
60  00 
70  00 
99  00 


*/V*  YZ*  0.10,  I N80Y ) 


x * 3 * * vx,  VY,  vz, 

X<  3»  * VXt  VY,  VZ, 


V, 


STAR 

3LNK 


SXIJ)  = SX  ( 31  *SO  (31 
00  53  L=l, 3 
Lt=4-M  »L» 

X(L)=SX(LL  ) 

m Io  sJo  ’0  x,2>- 

ccini^‘!‘"  *'“•  *<». 

“RITcl  6,  1600  ) 

GO  TO  5 

FORKttTl^ieJo*  47HINCRei£NII«G  ScQUiNCF  IS  ERRCNIUUS. 

FORMAM  Sx!'jF12.  T5W7t°*MJ  RUN  10  "/  15X(  18AA//) 

IS  mi0E  T“E  “or. 

sHhi;  is:  is,-  “«•  - »».  *«. u«,  £mvt  t 

iTSTwas  sm}kbs,“*,««.*.  -e- 

JTJZJ  ‘ — .« 

FORMAT  I 10X,  22 MX  Ay  tc  rc^r 
FORMAT  < 10X,  22HV  AXIS  ts  ™£,£M£NT£0  2A4> 

FORMAT!  10X,  22H7  a,tc  rl  JNC(,£h£nT£0  2A4) 

FORMAT  !ihJj  IS  IS  INC*£^TEG  2A4) 

ENO 


02/28/00  20*2 


TRY  AGAIN 


INCREMENT- jP£u 
INCREMENT  = TP El i 
INCREMENT* lPEli.  *, 


1.4, 


• 4t 


fLCP  ^ 
FLOFT 
FLOP! 
FLCFT 

flcft 

flcft 

FLCFT 
FI  OFT 

flcft 

FLCPT 

FLCFT 

FLOFT 

flcft 
flcf  1 
FLOFT 
■ >FLCF  I 
FLCFT 
FLCPT 
FLCFT 
flcf  T 

FLCF  T 
FLOP) 

flcft 
floft 
FLCPT 

flcft 

FLOP  T 

floft 

FLCFT 
FLtiPT 
FLCFT 
FLOFT 
FLCPT 
FLCFT 
FLCPT 
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6 7 
68 
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1.01 


jL 


0-00  0 0 0-0 


function  prfun 


I**/F4  OPTs? 


*OECK, PRFUN 

FUNCTION  prfunir,  0LRf  :3F) 

H‘  G*  NCRM£Nr*  <T^HEUC  SCIENCE  ASSOCIATES  N0„- 
«ETU*NS  the  CO  f FF  TF  t f wr  TES  * N0Vt''3^  1979 

i s S a s&s  ara. 

S»j/lS«Ki.W  “• 

1C>  «'£=  cW«>/«/cor 

ENC 


02/ £3 /8fl  18,3:4, 


09 


PRFUN 
PRFUN 
PR  FUN 
PRFUN 
PRFUN 
PRFUN 
PR  FUN 
PRFUN 

frfun  , 

PRFUN  10 
PRFUN  11 
PRFUN  12 
FRFUN  13 
PRFUN  iu 
PRFUN  15 
PRFUN  ie 
PRFUN  it 
PRFUN  16 
PRFUN  19 
FRFUN  20 


1 

2 

3 

4 

5 

6 

7 

8 
9 


CK, INP4CT 

SUBROUTINE  IMPACT  UI,  2II 


H«  5.  NORMENT,  ATMOSPHERIC  ?rr 

- . 4SS0CI4T^  APRIL  1979 


IHPAC  1 
IMF AC  2 

v ASSOCIATES  APRIL  9 IMPAC  3 

C •***••**•**•***♦.,,  X*79  INFAC  4 

§ 5‘itn£0  =';•«•  tRAJ£CT  ,fT„  SKg  l 

l a :=.:f " i 

c 6 tevlStC  infac  11 

- IHPAC  12 

&pi,c  *; 

IHPAC  15 
IHPAC  18 
IMF AC  19 
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o o ooooooaoooot  >00000000000 no aoooo 


74/74  0PT  = 2 


FTN  <i.7+4?6 


02/ cfl/6C 


18.54.09 


*0EC<#PA»TCL  FARTC 

SUBROUTINE  PARTCLl V.ELL.RHC. VIS.7EMP.0IAM.CLR.RH0P  .VT.Rr  . P T . ACC  . N I PARTC 

PARTC 

H.  G.  NCRMENT,  ATMOSPHERIC  SCIENCE  ASSOCIATES  - NOVEMBER  1979  PA  FTC 

PANTC 

CALLED  0Y  CONPACt  ARYTRJ  OR  TANTRA  TO  READ  PARTICLE  SPECS.  ANC  PARTC 

COMPUTE  GRAVITY  SETTLING  SPEEC  AND  OTHER  PARAMETERS.  SEE  CONFAC  PARTC 

PA  PTC 


FOR  WATER  DROPS  IN  AIR  PARK 

PARTC 

CALLS  FALWAT  TO  COMPUTE  St  TTlI RG  SPEED  VIA  BEARDS  EQUATIONS*  PARTC 

PARTC 

REYNOLDS  NUMBER ( R I - DA  VIE S NUMBERICORR)  RELATIONS  ARE  AS  FOLLOWS  - PART  C 
FOR  REYNCLCS  NUMBERS  LARGER  THAN  2C0  USE  CORK  VS  R DATA  OF  GUNK  FAfTC 
AND  KINZER  FOR  WATER  OR3PS  IN  AIR.  FOR  SHALL tR  REYNOLDS  NUMBERS  PARTC 
USE  DATA  FCR  RIGID  SPHERES • PARTC 

PARTC 

GLOSSARY  PARTC 

ACC  01 AM/ELL  - USED  TO  COMPUTE  ACCELERATION  MODULUS  PARTC 

DIAM  DIAMETER  OF  A WUER  DROP  PARTC 

OLR  NOT  RELEVANT  TO  WATER  CROPS  PARTC 

ELL  CHIRA  (TERI5TIC  DIMENSION  OF  THE  BODY  t METERS  ) PARTC 

PT  DRAG  CCEFFICIENT  + ABS  IREYKOLOS  NUMBER)  FOR  GRAVITY  SETTt.1  NCFARTC 

CF  PARTICLES  PARTC 

RF  FACTCR  TO  CONVERT  VELOCITY  DIFFERENCE  TO  REYNOLDS  NUMBER  PARTC 

RHO  AIR  DENSITY  { SI)  PARTC 

RKOP  PARTICtE  DENSITY  I SI  > PARTC 

TEMP  AIR  TEMPERATURE  <0  EG  • KELVIN)  PARTC 

V AIR  SPEED  <SI>  PARTC 

VIS  AIR  VISCOSITY  131)  PA  FTC 

Vf  GRAVITY  SETTLING  SPEED  CF  PARTICLE  PARTC 

PARTC 

READ  (5.UCQI  OXAM  PARTC 

IFIDIAM  *NE.  0.0)  GO  TO  6 PARTC 

N - 1 PARTC 

REtURW  PARTC 

6 WRITE  <6.2 630 ) 01  AM  PARTC 

RROP  = 1.0E3  PARTC 

DLR  = i. 0 PARTC 

RF  = D IA  t* RHO  /VIS  * l.JE-6  PARTC 

AC<?  = OI4M/ELL  ♦ 1.0E-6  PARTC 

COMPUTE  GRAVITY  SETTLING  SPEED  OF  PART. AND  PARAMETERS  DERIVED  PARTC 

FROM  IT  PARTC 

CALL  F AL  WA  T IDI AM* 1.3£>6.  RHO# VIS#  TEMP . 207 • 04*RH U*TEFP#  V T)  PARTC 

R = RF*VT  PARTC 

PT  = CCRR<R)/R  PARTC 

I F ( R • GT . 100.)  PT  - HC3RRI  R l/R  PARTC 

7 WRITEI 6.  3 !00 ) VT  PARTC 

VT  = VT/V  PARTC 

RF  = R F* V PARTC 

RETURN  PARTC 

1100  FORMAT  (7F10.Q ) PARTC 

2960  FORMAT!  1H1#  9X#  21HWAT • R CROP  DIAMETER  =1FE12.5,12M  M ICROMETERS/ )PA RTC 

?50:  FORMAT < 20X#  24HPARTICLE  SETTLING  SPEEO= 1PE12# 5.  6H  M/SEC)  PARTC 

END  PARTC 
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OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOODO 


♦DECK*  CONFAC 

SUBROUTINE 


CONFAC 


H#|  G.  NORMENT,  A TMCSFHERIC  SCIENCE  ASSOCIATES  - NOVEMBER  197? 


EXECUTIVE  FOR  COMPUTATION  OF  CONCENTRATION  FACTORS  FOR  PARTICLES 
IN  A FLOW  ABOUT  A 3-CIMENSI ONAL  BDOY.  CROSS  SECTIONAL  AREAS  OF  A 
PARTICLE  FLUX  TUBE  ARE  CALCULATED  ABOUT  THE  POINT  OF  INTEREST  AND 
ABOUT  A POINT  FAR  UPSTREAM.  CONCENTRATION  FACTOR  IS  THE  RATIO  OF 
THESE  AREAS. 

SINGLE  TRAJECTORIES  TO  A TARGET  PDINT  MAY  BE  COMPUTEO  (NW=0) 

FLOW  DATA  PREPARED  BY  THE  HESS-SMITH  COOE  ARE  READ  FROM  UNIT  14 
VIA  SR  SETF  10. 

UNIT  9 IS  A SCRATCH  UNIT  USEO  FOR  TRAJECTORY  OATA  STORAGE. 

UNIT  10  IS  USED  FOR  TRAJECTORY  DATA  OUTPUT  FOR  PLOTTING. 

SR  PARTCL  IS  CALLEO  TO  READ,  PROCESS  ANO  PRINT  PARTICLE  OATA. 

THIS  SR  CAN  BE  ONE  OF  SEVERAL  THAT  TREATS  WATER  OROPS  OR  ONE  OF 
VARIOUS  TYPES  OF  ICE  CRYSTALS. 


GLOSSARY 

DISTINGUISH  TWO  COORDINATE  SYSTEMS  - 1.  THE 
IN  WHICH  THE  AIRCRAFT  ANO  FLOW  ARE  DEFINEO, 
SYSTEM  WHICH  HAS  ITS  Y-Z  PLANE  IN  THE  PLANE 
SECTION  WITH  ORIGIN  AT  THE  FLUX  TUBE  CENTER. 


FLOW  SYSTEM  IS  THE  SK 
ANO  2.  THE  FLUX  TUB  C 
OF  A FLUX  TUBE  CROSS 


ALL  COORDINATES  ANO 


TIMES 


ARE  NORMALIZED  (OIMENSIONLESS) 


IN 


X-Y 


ACC  OIAM/ELL  - USED  TO  COMPUTE  ACCELERATION  MOOUIUS 

ALPHAO  ANGLE  BETWEEN  PROJECTION  OF  INITIAL  VELOCITY  VECTOR 
X-Y  PLANE  ANO  X AXIS 

ALPHAR  ANGLE  BETWEEN  PROJECTION  OF  FINAL  VELOCITY  VECTOR  IN 
PLANE  AND  X AXIS 

BET  AO  ANGLE  BETWEEN  INITIAL  VELOCITY  VECTOR  ANO  ITS  PROJECTION 

IN  THE  X-Y  PLANE 

BETAR  ANGLE  3ETWEEN  FINAL  VELOCITY  VECTOR  ANO  ITS  PROJECTION 
IN  THE  X-Y  PLANE 

CONRTO  RATIO  OF  PARTICLE  CONCENTRATION  AT  TARGET  POINT  TO  CONC. 
AT  INITIAL  PCINT 

DIAM  DIAMETER  OF  A WATER  DROP  OR  ICE  AGGREGATE 

BASE  DIAMETER  FOR  A PLATE  OR  CYLINDER  (MICROMETERS) 

OLR  BASE  DIAMETER  TC  LENGTH  (CYLINDER)  OR  THICKNESS  (PLATE) 

RATIO 

ELL  CHARACTERISTIC  DIMENSION  OF  THE  300Y  I METERS  ) 

EPS  I ( ) PARAMETERS  USED  TO  CONTROL  LOCAL  ERROR  IN  THE  NUMERICAL 
INTEGRATION  (SEE  OVOG  GLOSSARY) 

FN  FROUDE  NUMBER 

FNR  RECIPROCAL  OF  THE  FRCUOE  NUMBER 

HI  INITIAL  TIME  STEP  FOR  NUMERICAL  INTEGRATION  (SEE  QVDQ) 

HMAX  MAXIMUM  TIME  STEP  (SEE  DVJQ) 

HMIN  MINIMUM  ALLOWED  TIME  STEP  (SEE  QVDQ) 

I PL  OT  IF  TRUE*  TRAJECTORY  OATA  ARE  COPIEO  TO  UNIT  10  FOR  FLOTTi 

NW  NUMEER  OF  TRAJECTORIES  USED  TO  DEFINE  THE  FLUX  TUBE 

PERIPHERY.  IF(NW  .EQ.  0)  SINGLE  TRAJECTORIES  ARE  COMPUT1 
P(  ) CURRENT  VALUES  OF  INDEPENDENT  VARIABLES  - 


PM)  = 
P(2)  = 
P(3)  = 
PC  4)  = 
Pf  51  = 


X 

DX/DT 

Y 

OV/DT 

Z 
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PC6 ) = OZ/OT 
PACT  (SPARE) 

PT  DRAG  COE  FFICIENT*A3S(REYN3L0S  NUMBER)  FOR  GRAVITY 

OF  PARTICLES 

RF  FACTOR  TO  CONVERT  VELOCITY  DIFFERENCE  TO  REYNOLOS  NUMBER 

RHO  AIR  DENSITY  (KC/M**3) 

RHOP  PARTICLE  OENSITY  (KG/M**3) 

RW  RAOIUS  OF  PARTICLE  FLUX  TUBE  IN  TARGET  PLANE  (NORMALIZED) 

TEMP  AIR  TEMPERATURE  (OEG.  KELVIN) 

TOL  TOLERANCE  FOR  REACHING  A ®QINT 

(FRACTION  OF  RW) 

TPRINT  OUTPUT  TIME  INTERVAL 

V AIR  SPEED  (M/SEC) 

VIS  AIR  VISCOSITY  (KG/(M-S£C)) 

VPGT  PARTICLE  SPEED  AT  TARGET  POINT 

VT  GRAVITY  SETTLING  SPEEO  OF  PARTICLE 

VTGT  AIR  SPEED  AT  TARGET  POINT 

XI3  P»  YI 3Ps  ZI3P 


ON  TARGET  PLANE  HINOOt 


XST  ART 


INITIAL  PLANE  FLJX  TUBE  CENTER  COORDINATES  IN 
THE  FLOW  SYSTEM 

TRAJECTORY  INITIAL  X COORDINATE 


XP,YP,ZP  TARGET  POINT  COORDINATES  IN  THE  FLUX  TUBE  SYSTEM 
XW,YW,ZW  COORDINATES  OF  CENTER  OF  FLUX  TUBE  AT  THE  TARGET  PLANE 
IN  THE  FLOW  SYSTEM 

YE ( ) , Z E ( ) TARGET  FOINT  COORDINATES  OF  THE  LAST  THREE  GUESSES 

(FLOW  SYSTEM) 

YIO.ZIO  INITIAL  POINT  COORDIVATES  OF  THE  LAST  THREE  GUEJSES 
C FL  C W SYS  1EM ) 

YPSTAR,  ZPSTAR  TARGET  POINT  COORDINATES  (FLOW  SYSTEM) 

YPSTARP,  ZPSTARP  TARGET  POINT  COORDINATES  (FLUX  TUBE  SYSTEM) 
COMMON  XI3,YI3,ZI3,YI3P,EPSI<3) , HI , HMINI, VT , PT ,COF ,FNR, P ACT , 
1RF,RE0,R,  XPSTAR,  YPSTAR,  ZPSTAR, P (6)  .TPRINT, IT, ALPHAO ,BETA0 , IREC, 

2 1 PLOT  ,IPLT  ,XPLOT  (60)  ,YPLOT(60)  ,ZP'.OT  (6G  ) , ALPHAR,  BETAR,  YPSTARF, 

3 ZPSTARP, XI 3P,ZI3F,XP,YP,ZP,XWP,XP®, ACC, OLR.JLIM 
DIMENSION  HOLL (18) ,X1NIT(10O) , XEKIT(iuO) 

DIMENSION  YINIT(IOO),  ZI  )IT  (11)0  ),Y£XIT  ( ICO)  , ZEXIT  ( lOC) 

DIMENSION  YI  ( 3)  , ZI(3>,  YE(3),  ZE(3) 

LOGICAL  IPLOT 

DATA  PI/3.  1415926536/ 

NF I N=  0 

READ  AND  WRITE  DATA 

READ  (5.26CC)  KASE 
CALL  SETFLO  (KASE) 

REA  0(5,  10  0 0 ) H 0 LL , IPLOT 

READI5, 1100>V,  ELL,  RHO,  TEMP,  XSTART 
READ (5,  HOC)  TPRINT,  HI,  HMINI,  EPS! 

SET  OEFAULT  VALUES  FOR  NLMERICAL  INTEGRATION  AND  PRINT  PARAMETER 

IF (TPRINT  * EQ.  0.0)  TPRIM=0.i 

IF  (HI  .EQ.  0.0!  HI  = 0.1 

IF ( HMINI  .EQ.  G.  0 ) HMINI=0.G05 

IF (EPS I (1)  .EQ.  C.C)  EPSI ( 1 ) =1. OE-5 

IF(EPSI  (2)  .EQ.  0.0  EFSI  ( 2 ) =1 .OE-5 

IF < EPSI  (3)  .EQ.  0.  ()  EPSI  ( 3 ) -1. 0E“5 

READ  (5,1150)  NW,  RW,  TOL 

JLI M=25 

IF ( NW  .EQ.  0)  JLIM=0 
DO  3 J-2,3 

READ  (5,110  0)  YE  ( J)  , ZE(J),  YI  ( J) , ZI(J) 

VIS  = 145.8E-8  * TEMP** (3 *0/2.0 )/( 110.4  ♦ TEMP) 

WRITE (6,1200)  HOLL 

WRITE ( 6,1300)  V.  ELL,  RH  C,  TEMP,  VIS 


CONF 

61 

CONF 

62 

KG CONF 

63 

CONF 

64 

CONF 

65 

CONF 

66 

CONF 

67 

) 

CONF 

68 

CONF 

69 

CONF 

70 

CONF 

71 

CONF 

72 

CONF 

73 

CONF 

74 

CONF 

75 

CONF 

76 

CONF 

77 

CONF 

78 

CONF 

79 

CONF 

60 

CONF 

61 

CONF 

62 

CONF 

83 

CONF 

64 

CONF 

65 

CONF 

86 

CONF 

87 

CONF 

88 

CONF 

69 

CONF 

90 

CONF 

91 

CONF 

92 

CONF 

93 

CONF 

84 

CONF 

95 

CONF 

96 

CONF 

97 

CONF 

98 

CONF 

99 

CONF 

ISO 

CONF 

101 

CONF 

10  2 

CONF 

103 

CONF 

10  4 

CONF 

105 

S 

CONF 

10  6 

CONF 

107 

CONF 

108 

CONF 

10  9 

CONF 

110 

CONF 

111 

CONF 

112 

CONF 

113 

CONF 

114 

CONF 

115 

CONF 

116 

CONF 

117 

CONF 

lie 

CONF 

119 

CONF 

120 

141 


1 


c 

c 


c 

c 

c 


WRjITE  ! 6 *14001  HI  ,H M «, T FRINT,  XSTART 

CONF 

121 

WRITE (6 *15001  EPSI  Cl),  EP3K2I,  EPSI(3) 

CONF 

122 

WRITE  16,15201  NW,  RW,  TCI. 

CONF 

123 

WRITE  (6,1 540) 

CONF 

124 

DO  4 J=2,3 

CONF 

125 

I=J-1 

CONF 

126 

WRITE  C 6*1550 ) I,  YE(JI,  ZE(J),  YI(J)  ,ZI(J> 

CONF 

127 

INITIALIZE 

CONF 

128 

FN  = M**Z/ (9.8*ELL) 

CONF 

129 

FNR  = 1.0/FN 

CONF 

130 

IF  (.NOT.  IPLOTI  GO  TO  5 

CONF 

131 

REWIND  10 

CONF 

132 

WRITE  <6,1800) 

CONF 

133 

ENTER  TRAJECTORY  CALCULATION  LOOP 

CONF 

134 

CALL  PARTCL ( V«ELL,RHC«VIS, TEMP,OIAM,OLk,RHOP ,VT,RF ,PT , ACC, NFIN) 

CONF 

135 

IF ( NFIN  .EQ.  0)  GO  TO  6 

CONF 

136 

IF ( .NOT.  I PLOT)  RETURN 

CONF 

137 

ENOFILE  10 

CONF 

138 

REWIND  10 

CONF 

139 

RETURN 

CONF 

1 4C 

REA 0( 5,1100)  XW,  YW,  ZW 

CONF 

141 

WRITE  < 6 ,359  0)  XW,  YW,  ZW 

CONF 

142 

IF  NECESSARY  SET  DEFAULT  VALUES  FOR  INITIAL  AND  FINAL  TRAJECTORY 

CONF 

143 

POINT  GUESSES 

CONF 

144 

IF  (ABS  ( YE(  2)T«-ABS  (YE  (3)  ) ♦ABS  tZE  <2)  ) ♦ A8S  ( ZE (3) ) +A BS ( YI ( 2)  | ♦ 

CONF 

145 

A3S(YIC3)) ♦ABS(ZI(2))+AES(ZI(3))  .NE.  C.0)  GO  TO 

7 

CONF 

146 

YE ( 2)  - YW  ♦ SIGN(1, 5*RW«TOL,  YW) 

CONF 

147 

ZE(2)  = ZW  ♦ SIGN(  i,5*RW*TOL»  ZW) 

CONF 

148 

YE  (3)  = YW  - SIGNC 1. 5*RW*TOL,  VW) 

CONF 

149 

ZE(3)  = ZW  - SIGM1.5*RW*T0L,  ZW) 

CONF 

150 

YI ( 2)  = YW 

CONF 

151 

ZI  (2)  = ZW 

CONF 

152 

YI  ( 3)  = YE  (2) 

CONF 

153 

ZI (3)  = ZE (2) 

CONF 

154 

COF  = PT*VT*FN 

CONF 

155 

R = RF  * VT 

CONF 

156 

XPSTAR  = XW 

CONF 

1 57 

YPSTAR  = YW 

CONF 

158 

ZPSTAR  = ZW 

CONF 

159 

YPSTARP=YW 

CONF 

1 60 

ZPSTARP=ZW 

CONF 

161 

XI3P  = 0.0 

CONF 

162 

YI3P  = 0.0 

CONF 

163 

ZI3P  = 0.0 

CONF 

164 

XWP=XST  ART 

CONF 

165 

XPP  = XW 

CONF 

166 

XP  =0.0 

CONF 

167 

YP  = 0.0 

CONF 

166 

ZP  = 0.9 

CONF 

169 

IP  = 0 

CONF 

170 

CONF 

171 

COMPUTE  TRAJECTORY  THAT  PASSES  THROUGH  THE  CENTER 

OF  THE  FLUX  TU9EC0NF 

172 

CONF 

173 

ALPHA  0 = 0.0 

CONF 

174 

BET  A0  = 0.0 

CONF 

175 

ALPHAR=0.|? 

CONF 

176 

BETAR=C.O 

CONF 

177 

WRITE  (6,2805)  IP , XP STAR ♦ YPSTAR , ZPSTAR,  VPSTARP, 

ZPSTARP 

CONF 

178 

CALL  MAP  < YI,  ZI , TCL , f>W,Y£,ZE) 

CONF 

179 

IF ( IT  .LT.  0 ) GO  TO  5 

CONF 

18  0 

142 


COMPUTE  INITIAL  AND  FINAL  TRAJECTORY  ANGLES 
CALL  FLCVELCXI3.YI3, 213 » YX, VY,VZ, II, INBOOY) 

ALPHAO  = ATANIVV/VX)  * 1C0./PI 

BET  AO  s ATANI(VZ“VT)/SQRTIVX**2  ♦ VY**2))  * 163. /PI 

ALPHAR  = ATANIPI4)/PI2M*180./PI 

8ETAR  * AT  ANIPI6 )/SQFTIP<2) **2*PI4)**2) ) *160 ./PI 

WRITE  <6,2000  ALPHAO,  8ETAB,  ALPHAR,  BETAR 

IFINW  .EQ.  01  GO  TO  5 

ALPHAO  = ALPHAC*PI/i80. 

BET  AO  = BETAtf*PI/180. 

ALPHAR  = ALPHAR*PI/18C. 

B^TAR  = 3ETAR*PI/180. 

COMPUTE  AIR  AND  PAfTICLE  SPEEDS  AT  FINAL  PCINT  OF  TRAJECTORY 
CALL  FLCVELI  PM),  P(3)«  PI5)  , VX,  VY,  WZ,  HI,  INBOOY) 

VtGT  = SORT  I VX**2  «■  VV**2  ♦ VZ**2  ) 

VPGT  = SQRTIP<2)**2  ♦ P<4)**2  ♦ P<6)**2) 

XI 3 P = XI3 
YI 3 P * YI3 
ZI3P  = ZI3 

CALL  TRANSFM!  0.0,  Y I € 2 ) - YI3,  ZI 12)  - ZI3,  ALPHAO,  BETA*, 

1 XP,  YP,  ZP,  1) 

Y I € 2 » * YP 
ZI(2)  = ZP 

CALL  TRANSFMIPM)  - XPSTAR,  Y£I2)  - YPSTAR,  ZEI2)  - ZPSTAR, 

1 ALPHAR,  BETAR,  XP,  VP,  ZP,  1) 

YE  C 2)  = VP 
ZE( 2)  = ZP 
YI  (3)  * 9,0 
ZI  ( 3)  = 3.0 

CALL  TRANSFMIPM)  - XPSTAR,  YEI3)  - YPSTAR,  ZEIS)  - ZPSTAR, 

1 ALPHAR,  BETAR,  XP,  YP,  ZP,  1) 

YE ( 3)  = YP 
ZE ( 3)  = ZP 
XP  = xw 
YP  = YW 
ZP  = ZW 
XWP=0.0 

LOOP  FOR  EACH  POINT  ON  FLUX  TUBE  PERIPHERY 
DO  500  IP=1,NW 

THETA  = FLOAT  1 1 P-1) /FLO AT INW)  *3.1415926536  *2. 

CALCULATE  TARGET  COOROHATES  IN  FLUX  TUBE  SYSTEM 
YPSTARP  = RW  * SINITHETA) 

ZPSTARP  = RW  * COSITHETA) 

IPSTAR  = IP 

TRANSFORM  TARGET  COORDINATES  TO  FLOW  SYSTEM 
CALL  TRANSFMIO.G , YPSTARP,  ZPSTARP,  ALPHAR,  BETAR , XPSTAR, VPST AR, 

1 ZPSTAR, -1) 

XPSTAR  = XW  f XPSTAR 
YPSTAR  = YW  * YPSTAR 
ZPSTAR  - ZW  ♦ ZPSTAR 

GUESS  INITIAt  COORDINATES  ANO  COMPUTE  TRAJECTORY 
WRITE  (6,2800)  IP, XPSTAR, YPSTAR,  ZPSTAR,  YPSTARP,  ZPSTARP 
CALL  MAP  IYI,ZI,TOL,RW,YE,ZE) 

IF!  IT  .LT.  0 ) GO  TC  5 

TRANSFORM  FINAL  AND  INITIAL  COORDINATES  TO  FLUX  TUBE  SYS. 
CALL  TRANSFM  (Pll)  - XW  , PI3)  - YW  ,PI5)  - ZW  , ALPHAR , BETAR, 
1XEXITMP),  YEXITIIP),ZEXITIIP)  ,1) 

CALL  TRANSFM  I XI 3- XI  cP,  Y I3-YI3P  ,ZI  3- ZI  3P,  ALPHAO  , BET  AO  ,XI  NIT  I IP  ), 

1 YINIT  IIP)  » Z IN  IT  I IP)  ,11 

IF  I A9SIXINIT IIP))  . LE  • RW  * T3L  ) GO  TO  500 
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CONF 

2E5 

CONF 

20  6 

CONF 

207 

CONF 

208 

CONF 

299 

CONF 
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WRITE  (6*  29C0)  XI MT  (IP)  , XI3P  CONF 

500  CONTINUE  CONF 

C COMPUTE  FLUX  TU8E  CROSS  SECTION  AREAS  IN  THE  INITIAL  ANO  TARGET  CONF 

C PLANES » ANO  COMFUT  E CONCENTRATION  FACTOR,  ETC.  CONF 

WRITE  (6,  2203)  XI3P,  YI3P  ,ZI3P,  XW,YW,  ZW  CONF 

00  60 C IP=1»NW  CONF 

600  WRITE  ( 6,23  CO ) IP,  XIMT(IP),  YINIT(IP),  ZINIT(IP),  XEXIT(IP),  CONF 
1 YEXIT  C IP) , ZEXITt IP>  CONF 

CALL  POLYGON  CYINIT, ZItfIT,  NW,  AREA)  CONF 

CALL  POLYGON  ( YEXIT,  ZEXIT,N  W,  OII'NON)  CONF 

0ONFAK  = AREA/DENOM  CONF 

CONRTO  = COfFAK  / VPGT  CONF 

WRITE  (6,30001  AREA,  OENC'M,  CCMfA<*  XW,  YW*  ZW,  OIAN  CONF 

WRITE ( 6 ,3400 ) OLR,RHOF  CONF 

WRITE!  6,  3200  ) VTGT , CONRTO  CONF 

CONF 
CONF 
CONF 

SET  UP  TRIAL  COORDINATES  FOR  NEXT  PARTICLE  CONF 

CONF 

Y t -i  3 i = YI3  CONF 

ZI ( 3)  = ZI3  CONF 

YE(  3)  = P(  3 ) CONF 

ZE  (3)  = P(5>  CONF 

CALL  TRANSFM(  O.G,  YI(2I,  ZI(2),  ALPHA!) , 8ETA0 , XI3,YI3,  ZI  2,  - 1)  CONF 
YI ( 2)  - YI3  ♦ YI3P  CONF 

ZI ( 2 ) = ZI3  ♦ ZI3P  CONF 

CALL  TRANSFM(  O.C,  YE(2),  ZE(  2),  ALPHAR,  BETAR,  XI3,YI3,  ZI3,  -1)  CONF 


YE ( 2)  = YI3  * YW  CONF 

ZE ( 2)  = ZI3  *-  ZW  CONF 

GO  TO  5 CONF 

1303  FORMAT (1SA4,  7X,L1>  CONF 

1130  FORMAT ( 8F10 • 5)  CONF 

1153  FORMAT  (I10,7F10.5)  CONF 

1200  FORMAT  (-1H1,  5X,  15HC  CNF  AC  RUN  10  -/  8X  , 18A4)  CONF 

1300  FORMAT ( iHfl , 5X,  21HP FYSICAL  INPUT  DATA  -/7X,10HAIR  SPEED 21PE13. 6,  CONF 
1 3X » 3 7HCH ARACTERISTIC  DIMENSION  OF  THE  B00Y=1PE 13 .6/  7X  , 35H  CENS  IT  CONF 
2Y  ANO  TEMPERATURE  CF  AIR  ARE  1PE13.6,  5H  ANO  1PE13.6,20H  AIR  VISCONF 
3COSITY  IS  1PE13.6)  CONF 

1400  FORMAT ( 1H0,  5X,  29H NUMERIC AL  INTEGRATOR  INPUTS  -/  7X,  1GHTIME  STECONF 
i P=1PE11 .4,  3X , 18HMINIMUM  TIME  STEP=lP£11.4,  3X,  2GHPRINT  TIME  I NT  CONF 
2ERV AL2 1PE11  .4*  3X,  24HUPSTREAM  START  01  STANCE2  IP  Ell  .A)  CONF 

1500  FORMAT ( 1H0,  6X,  33HL0CAL  ERROR  TOLERANCES  FOR  OVOQ  -,  3 (1PE14.4)) CONF 

1523  FORMAT ( 1H0,  5X»  35HFARTICLE  FLUX  TUBE  SPECIFICATI ONS  -/  CONF 

1 7X,  46HNUMBER  CF  TRAJECTORIES  ON  FLUX  TUBE  PERIPHERY=I 3, CONF 

2 3X , 27HFLUX  TU8E  RADIUS  AT  TARG£T  = F9.5.  3X , 10HTOLERANCE=F8.4  ) CONF 
1540  FORMAT ( 1H0,  5X,  40HTARGET  ANO  INITIAL  CCOROINATE  ESTIMATES-/  1UX,C0NF 

1 6HJGUESS,  9X , 2HYT,  13X,  2HZT,  13X,  2HYI,  13X,  2HZI)  CONF 

1550  FORMAT  ( 114,  4(5X,  F1C.  5))  CONF 

1800  FORMAT ( ///6X,  51HTRA JECTORY  DATA  ARE  WRITTEN  ON  UNIT  10  FOR  PLOT! CONF 

1ING/Z)  CONF 

2 GOO  FORMAT  ( ///20X,  47HIMTIAL  ANO  FINAL  TRAJECTORY  ANGLES  (DEGREES)  -CONF 
1/  2 2X , 7HALPHA0=F10.4,  5X,  6HBETA  !)  = Flfc  . 4/  22X,  7H ALFHAR-F10 .4 , 5XCONF 

2,  6HBETAR=F10.4)  CONF 

2200  FORMAT  ( 1H1,  35X,  44HFLUX  TU3E  CROSS  SECTION  COORDINATES  I N THE  -/CONF 
1/  28X,  13HINITIA  L PLANE,  33X,  12HTARGET  PLANE//  CONF 

2 8 X , 2HIP,  2 < SX » 2HXP,  13X,  2HVP,  13X,  ZHZP,  4X)/  4X,  6HCENTEC0NF 

3R6C1PE15.4) , 14H  (FLO*  SYSTEM))  CONF 

2300  FORMAT  (I10,6(1PE15.  4)  , 1SH  (FLUX  TUBE  SYSTEM))  CONF 

2603  FORMAT  (A4)  CONF 
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2600  FORMAT ( ///  18H  TRAJECTORY  NUMBER, 13, 5X,2GHTARGET  COORDINATES  -CONF 

1 »10H  XPSTAR  =F10.6,  4X,  8HYPSTAR  =Fifi.6,5X,  8HZPSTAR  =F10.6,  CONF 

2 14H  (FLOW  SYSTEM)/  70X,  8HYPSTARP=FlQ . 6,  5X,  8HZFSTARP=Fl0 .6 , CONF 

3 19H  IFLUX  TUBE  SYSTEM)//  CONF 

4 15X , 6HY  FINAL,  6X,  6HZFINAL  ,6X,  10  HI  TERATIGNS,  5X,  5HYINIT,  7X,  CONF 

5 5HZINIT,  7X,  25 HERRCR  IFLUX  TUBE  SYSTEM))  CONF 

2900  FORMAT ! //  3GX, 49HINITIAL  POINT  IS  NOT  IN  CORRECT  TRANSFORMED  PLANECGNF 

1/  32X,  6HXINIT=1FE12.5,  5X,  5HX I3P-1PE12, 5)  CONF 

3CQ0  FORMAT!//  15X,  5GHFLUX  TUBE  CROSS  SECTION  AREA  IN  THE  INITIAL  PLANCONF 
1E-1PE12.5,  6X,  20HIN  THE  TARGET  PLA NE=1FE12.5//  15X,  21HG0NCENTRAC0NF 

2TION  FACT0R=CPF11.5//  CONF 

3 10X,  21HAT  THE  FCINT  I X,Y,Z)  =,3F12.  5/13X,27HFOR  A PARTICLE  CF  OIACON” 
4METER=,F12.5) 

3239  FORMAT!  10X,  3 6H NORM A LIZ ED  AIR  SPEED  AT  FINAL  P0INT=F12.  5/ 

1 10X,  29HPARTICLE  CONCENTRATION  RATI0=F12.5) 

340C  FORMAT!  1H*,  52X,  30HWITH  DIAMETER  TO  LENGTH  RAT I0=1PE12 . 5 , 

1 12 HAND  DEN*ITY=1PE12.5) 

3500  FORMAT!  1H0,  9X,  22HTARGET  COOROINATES  X=1P£12.  5, 

15,  5X , 2HZ=1PE12.5) 

ENO  CONF 


CONF 
CONF 
CONF 
CONF 
CONF 

5X,  2HY* 3PE1 2, CONF 
CONF 
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302 
3G3 
30  4 
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♦DECK,  MAP 

SUBROUTINE 


MAP  !YI,ZI,TOL,RW,Y£,ZE) 
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MAP 

MAP 

MAP 
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MAP 


MAP  GUESSES  THE  INITIAL  COOROIVATES  OF  A TRAJECTORY  THAT  IS 
AIMING  FOR  A POINT  IN  THE  TARGET  PLANE,  AFTER  THE  TRAJECTORY 
IS  COMPUTED,  THE  DISTANCE  FROM  THE  TARGET  IS  COMPARED  TO 
THE  ALLOWABLE  TOLERANCE.  THE  PROCESS  IS  REPEATEO  UNTIL  OISTANCMAP 
FROM  THE  TARGET  IS  BELOW  THE  TOLERANCE, 

ONCE  A HISTORY  CF  GREATER  THAN  THREE  TRAJECTORIES  HAS  BEEN 
COMPUTED,  LEAST  SQUARES  IS  USED  TO  DETERMINE  TRIAL  INITIAL 
COORDINATES 

GLOSSARY 

A MATRIX  OF  COEFFICIENTS  INVERTED  IN  MATINV 

AA,C  INTERMEDIATE  STORAGE  FOR  LEAST  SGUARES  NORMAL  MATRIX  TER 

AC  ACCELERATICN  MODULUS 

ANG  ANGLE  OF  DRAG  VECTOR  PROJECTED  IN  THE  X-Y  PLANE  RELATIVE 

TO  THE  X AXIS 

B ENTERS  MATINV  AS  CONSTANT  MATRIX  ANO  RETURNS  AS  SOLUTION 

COSA,COSB«  COSC  DIRECTION  COSINES  OF  DRAG  VECTOR 
CNG  ANGLE  CF  DRAG  VECTOR  RELATIVE  TO  Z AXIS 

DisT  distance  between  end  of  trajectory  ano  target  point 

DV  VELOCITY  OF  FARTICLE  RELATIVE  TO  AIR 

IT  ITERATION  NUMBER 

VA  AIR  SPEED  AT  TARGET  POINT 

VP  PARTICLE  SPEED  AT  TARGET  »OINT 

W LEAST  SQUARES  SUMMAND  WEIGHT 

YE  ARRAY  OF  FINAL  Y COORD  rOR  LAST  3 GUESSES 

YI  ARRAY  OF  INITIAL  Y COORD  rOR  LAST  3 GUESSES 

YI3  NEXT  GUESS  FCR  INITIAL  Y COORO  1FLCW  SYSTEM) 

ZE  ARRAY  OF  FINAL  Z COORO  rOR  LAST  3 GUESSES 

71  ARRAY  OF  INITIAL  Z COORO  FOR  LAST  3 GUESSES 

ZI3  NEXT  GUESS  FOR  INITIAL  Z COORD  !FLOW  SYSTEM) 


1 

2 

3 

4 

5 

6 

7 

8 
9 


LOGICAL  IPLOT 


£ 

A* 


MAP 

10 

MAP 

11 

MAP 

12 

MAP 

13 

MAP 

14 

MAP 

15 

SMAP 

16 

MAP 

17 

MAP 

18 

MAP 

19 

MMAP 

20 

MAP 

21 

MAP 

22 

HAP 

23 

Hap 

24 

Hap 

25 

MAP 

26 

MAP 

27 

map 

26 

MAP 

29 

MAP 

30 

Hap 

31 

Hap 

32 

map 

33 

map 

34 

map 

35 
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C 

C 


50 


100 


120 


OF  NEXT  GUESS 
►AT  IN*  IF  IT  • LE 


3 


C 

C 

c 

c 

c 


140 


200 


1RF» REO  JIvpI^:Z”cJJfP:EPSIC3,,HI,HMINI,VT,PT»C0F»FNR»PflCT, 

2 1 Pl  qt° r d,’  r P!I,A?t !FST **’  2 f ST AR»  P * 6) * TPR IKT  » IT  » ALPHAU t BETA J,  IRECt 
3ZPSTARP  yT^nP7?I c6°i •TPLCT(60> « ZPLOT f 60 i » ALPHA R* 8ETAR, YPSTARP, 
nr2If.^,Xl3P’ZI3F»XP*YF»ZP’XHP*xp9tACC,0LR,JLIM  ’ 

1»M  e“”’  Ve<3,‘  ZE*3’’  °Y(3’’  Dn3’ 

OATA  ILIN/  25/ 

00  5 U J=2,3 

OY!,J)  = YECJ>  - YPSTARP 
DZCJ)  = ZE ( J)  - ZPSTARP 
IT  = 0 
N = 4 

GENERAL  ITERATION  CALCULATION 
GENERATE  CONSTANT  ARRAY  <31  FOR 
DO  120  J=2, 3 

1 = J - 1 

B(2*I-1)  = YU  J) 

BC2*II  = ZICJI 
CONTINUE 

GENERATE 
DO  140  J=2*  3 
I = J - 1 
JROW  = 2*1-1 
JR0W2  = 2*j 
ACJROHjI)  s i, 

A C J ROW  f 2 } o • 

A (JROW,  3)  = DYCJI 
A ( JROW, 4) 

A (JROW 2 »1) 

A ( JR0W2  * 2) 

A ( JROW2  *3) 

A C JR0W2 ,4) 

CONTINUE 
GO  TO  280 
IF  IT  . GE 
LEAST  SQUARES 
CONTINUE 


COEFFICIENT  ARRAY  (A)  FOR  MATINV 


= -OZ( J) 

0. 

1. 

DZC  Jl 
DYC  J) 


3 SOLVE  FCR  THE  NeXT  INITIAL  COORDINATES  GUESS 


8Y 


INCREMENT  LEAST  SQUARES  NORMAL  EQJATIOKS 


W = 
G = 
Q = 


1.0 

0Y<3) 

0Z(3) 


DIST**2 


S = G 

* YIC3S 

AACl) 

= AA  C 11 

AAC2) 

= AAC2I 

A AC  3) 

= AA  C3| 

AA  ( 4) 

= AAC4S 

AA(  5) 

= AA ( 51 

AA(  6) 

= AAC6I 

CCl)  = 

CCl)  ¥ 

CC2)  = 

CC2)  ♦ 

CC3I  = 

CC3I  * 

SET-UP 

LEAST 

♦ 

♦ 

¥ 

♦ 

+ 

♦ 

*• 

G 

Q 

S 


Q * ZIC3) 
G**2  * W 
G * Q * W 
G * W 
0**2  * W 
Q * W 
W 

* S * W 

* S * W 

* W 


SET-UP  LEAST  SQUARES  NORMAL  EQUATIONS 


220  A Cl 


*11 

A f 1 » 2 J - 
All *3$  = 
A J 2 1 2 > = 


= A A CIS 
= AAC2I 
AAC3) 
AA  C4S 


HAP 
MAP 
MAP 
MAP 
» MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
NAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MA|P 
MAP 
MAP 
MAP 
MAP 


36 

37 
36 

39 

40 

41 

42 

43 

44 
*♦5 

46 

47 
46 

49 

50 

51 

52 

53 

54 

55 

56 

57 
56 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
30 
81 
82 
63 
34 

85 

86 
67 
88 
e9 

90 

91 

92 

93 

94 

95 
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A (2,3)  = AA(5> 

HAP 

9(3 

A ( 3*  3)  = AA(6) 

MAP 

97 

DO  250  1=2,3 

MAP 

98 

K = 1-1 

MAP 

99 

00  250  J=I , 3 

MAP 

100 

250 

A ( J *K)  = A ( K,  J ) 

MAP 

101 

DO  260  1=1,3 

MAP 

102 

260 

8CI)  = CCII 

HAP 

103 

DO  265  1=1,3 

MAP 

104 

A 14, I)  = 0.0 

MAP 

105 

265 

A(1, 4)  = 0.0 

MAP 

10  6 

A ( 4, 4)  = 1.0 

MAP 

107 

B (4)  = 0.0 

MAP 

106 

SOLVE  MATRIX  EQNS  TO  GET  ME XT  GUESS 

MAP 

109 

280 

CALL  NATINV (A ,N, B,l, OET ERN) 

MAP 

110 

CALL  TRANSFM(XHP,B  (1),B(2),ALPHA0,BETAC,XI3,YI3,ZI3,-1» 

NAP 

111 

XI 3 = XI3  ♦ XI3P 

MAP 

112 

YI3  = Y 13  ♦ YI3P 

MAP 

113 

ZI3  = Z 13  ♦ ZI3P 

MAP 

114 

CALL  TRAJECT 

MAP 

115 

IF  (IT  .LT.  0)  RETURN 

MAP 

116 

IT  * IT  M 

MAP 

117 

IF  (IT  . GT  . 31  GO  TO  305 

MAP 

118 

UPDATE  ARRAYS  OF  INITIAL  ANO  FINAL  CCORDS. 

MAP 

119 

290 

00  300  J=l,  2 

MAP 

120 

YICJ)  = YlCJfl) 

MAP 

121 

ZI(J)  = ZI(J4l) 

MAP 

122 

DY ( J)  = DY(Jfl) 

' MAP 

123 

DZ ( J)  = DZIJ41I 

MAP 

124 

YE(J)  = YE ( J+l) 

MAP 

125 

ZE(JI  = ZE( J*1 ) 

MAP 

126 

PSTR  ( J)  = PSTR(J*1) 

HAP 

127 

300 

CONTINUE 

MAP 

128 

30  9 

CONTINUE 

MAP 

129 

VI (3)  = B(  1 ) 

MAP 

130 

ZI(3)  = B(  2) 

MAP 

131 

CALL  TRANSFMIP(I)  - XP  , P(3»  - Y3  , P(5)  - ZP  , ALPHAR,  3ETAR, 

MAP 

132 

1 

XOUM, YE  (3) , ZE ( 3 ) ,1 ) 

MAP 

133 

IF  ( ABS(XP)  . EQ  • O.C  ) XCUM  = XOUM  - XPF 

MAP 

134 

if  (ABS  (XDUM)  . GT  . RW  * TOL  ) WRITE (6,  3000  1 

MAP 

135 

OY  ( 3 ) = YE (31 -YPST  ARP 

MAP 

136 

OZC3)  = ZE ( 3)  -ZPST ARP 

MAP 

137 

01  ST  = SORT  ( OY  ( 3)4*  2 + OZ(3)**2  ) 

MAP 

136 

PSTR ( 3 ) = OIST 

MAP 

139 

GUESS  AGAIN  OR  GO  CN  TO  NEXT  POINT  ON  WINDOW? 

MAP 

140 

WRITE  (6,2700)  YE ( 3) , Z E( 3) , IT, YI (31  , ZI ( 3) ,0IST 

MAP 

141 

IF  (DIST  .LE.  RW*TOL  ) GO  TO  490 

MAP 

142 

IF ( IT  .LE.  ILIM  ) IF ( IT  - 3)  100,310,200 

MAP 

143 

WRITE  (6,2903)  ILIM 

MAP 

144 

IT  = -ILIM 

MAP 

145 

RETURN 

MAP 

146 

MAP 

147 

INITIALIZE  FOR  LEAST  SCUARES 

MAP 

MAP 

148 

149 

310 

DO  32C  1=1,3 

mAp 

150 

320 

C ( I ) = 0.0 

MAP 

151 

DO  325  1=1,6 

MAP 

152 

325 

AA  ( I ) = 0.0 

MAP 

153 

DO  330  I = 1,3 

MAP 

154 

W = 1.0 

MAP 

155 

147 


G = DY4I)  / PSTR (I )**2  HAP 

Qa  D Z 4 1 1 / PSTR4I)**2  HAP 

S a G * YICII  ♦ Q * ZICI)  HAP 

AA41)  « AA41I  ♦ G**2  * W HAP 

AA42)  a AAC2I  ♦ G * Q * W HAP 

AA43)  a AA 13)  ♦ G * W HAP 

AA4  4)  = AA  C 4)  ♦ Q**2  * W HAP 

AAC5)  a AAC5I  ♦ Q * W HAP 

AA  46)  « AA  4 6)  * W HAP 

CH>  a C4i)  ♦ G * S * H HAP 

C 4 2 ) = C 42)  *•  Q * S ♦ W HAP 

330  C43I  * C 43)  ♦ S * W HAP 

GO  TO  100  HAP 

C PRINT  TRAJECTORY  OUTPUT  HAP 

<♦90  REWINO  9 HAP 

WRITE  46,1700)  HAP 

DO  494  IWRITE  = l.IREC  HAP 

REAO  49) NEVAL*KSTEP,  T,  P41),  P43),  P45),  P42),  P44)  , P46),VX,  VY,  HAP 
2 VZ,  H,  R, AC  HAP 

WRITE  46,1600)  KSTEP,  T,  P41),  P43),  P4  5)  * P42),  P(4)  , P(6),VX,  VY,MAP 
2 VZ,  H,  R,  AC,  NEVAL  HAP 

494  CONTINUE  NAP 

C COHPUTE  AND  PRINT  ORAG  VECTOR  AT  TARGET  POINT  HAP 

OV  = SORT 4 IVX  - P 42 ) )**2  ♦ 4VY  - P44) )**2  ♦ 4 VZ  - P46))**2  ) HAP 

COSA  = 4VX  - P 42 ) ) /OV  HAP 

COSB  = 4VY  - P44H/OV  HAP 

COSC  = (VZ  - P 46 ) ) /OV  HAP 

ANG  = A TAN  4 COSB/COSA  ) * 57.29577951  HAP 

CN3  = A COS  4 COSC  ) * 57.29577951.  HAP 

WRITE 4 6,  3150  ) CCSA,  COSB,  COSC,  ANG,  CNG  HAP 

jC  COHPUTE  AND  PRINT  Alf  ANC  PARTICLE  SPEEOS  AT  TARGET  FOINT  HAP 

VA  = SORT 4 VX**2  ♦ VY**2  * V Z**2  I HAP 

VP  = SORT  4P  4 21**2  ♦ P4  4)**2  ♦ P(6)**2)  HAP 

WRITE  45,  3200  VA,  VP  HAP 

IF  4IPL0T)  WRITE  410)  IFLT,  4XPLDT4  J)  , YPL0T4J)  , ZPL0T4J)  , J=  1,IPL  T)  HAP 
| f RETURN  HAP 

1600  FORMAT  4 16,  10  41X,1PE11. 4)/10X,  2HHaiPEii.4,4H  R=1PE11.4,  5H  AC=HAP 
11PE11.4,  8H  NEVAL=I6)  HAP 

1*00  FORMA  T 4 6H0KSTEP , 7X  , 1PT,  llX,  1HX,  11X,  1HY,  11X,  1HZ,  13X,  MAP 

1 3HVPX,  9X,  3HVPY,  9X,  3HVPZ,  10X,  2HVX,  1CX,  2HVY,  10X,  2HV  J?)  MAP 

2700  FORMAT  410X,  2E12.4,7X , 13, 5X, 3E12 • 4)  MAP 

2900  FORMAT 4 ///20X , 28HT0LERA hCE  NOT  SATISIFIED  IN  14,  58H  TRAJECTORY  IHAP 
!•  i ITERATIONS.  GIVE  UP  ANO  TRY  THE  NEXT  PARTICLE)  MAP 

3000  FORMA 74/// 20 X*  57HFINAL  PARTICLE  POSITIO)  IS  NOT  IN  THE  ROTATEO  TAMAP 
1 GET  PLANE)  MAP 

3100  FORMAT 4 5X,  28HORAG  VECTOR  AT  FINAL  POINT  -/  6X,  18HDIRECTION  COS.MAP 

1 INES-3  4 1PE13.  4)  • TIV , 19 H ANGLES  A 4ND  GAMHA-2  41PE13.4)  ) HAP 

3200  FORMAT C5X,  47HAI*  ANC  PARTICLE  SPEEOS  AT  THE  FINAL  FOINT  ARE2I1PEMAP 
115.5))  MAP 

END  HAP 
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•OECK,  TRA  JECT  TRAJ 


SUBROUTINE  TRAJECT  TRAJ 

TRAJ 

H.  G.  NCRMENT , ATMOSPHERIC  SCIENCE  ASSOCIATES  - NOVEMBER  197*  TRAJ 

TRAJ 

TRAJECT  CALCULATES  3-0  PARTICLE  TRAJECTORIES  TRAJ 

EMBEDDED  IN  A FLOW  FItLO  DETERMINED  BY  FLOVEL.  TRAJ 

THE  FREDICTOR-CORRECTOR  S J3R0UT INE  DVOQ  IS  USEO  TRAJ 

TO  INTEGRATE  THE  EQUATIONS  OF  MOTION.  OUTPUT  AT  TIME  TRAJ 

INTERVAL  TPRINT  IS  WRITTEN  ON  UNIT  9.  TRAJ 

ORAG  PARAMETERS  ARE  CALCULATED  BY  FUNCTION  PRFUN  WHICH  IS  PARTICLETRAJ 
TYPE-SPECIFIC.  S.R.IPPACT  IS  A "ROBLEM-SPECIFIC  CODE  THAT,  AFTERTRAJ 
PARTICLE  IMPACT  ON  THE  BCOY , A0JU3TS  INITIAL  PARTICLE  COORDINATES  TRAJ 
SUCH  THAT  ON  THE  NEX1  TRIAL  IMPACTION  SHCULO  NOT  OCCUR.  TRAJ 

TRAJ 

GLOSSARY  TRAJ 

! AC  ACCELERATICN  MODULUS  TRAJ 

‘ DT ( ) STOfAGE  FOR  GVOQ  TRAJ 

EPS ( ) LOCAL  ERROR  TOLERANCE  FOR  THE  NUMERICAL  INTEGRATION  TRAJ 

FC  ) EQUATION  OF  MOTION  OF  THE  PARTICLE  - TRAJ 

FC1)  - X CIFECTICN  TRAJ 

F(2)  - Y DIRECTION  TRAJ 

FI3)  - Z DIRECTION  TRAJ 

G GSTOP  FUNCTION  (SEE  DVDQ  GLOSSARY)  TRAJ 

H TINE  STEP  TRAJ 

IFLAG  DVOG  STATUS  FLAG  (SEE  DVD3  GLOSSARY)  TRAJ 

INBODY  FLAG  TO  INCICATE  WHEN  TRAJECTORY  HAS  TRAJ 

PENETRATED  THE  BODY  TRAJ 

KO (I ) ORDER  OF  THE  ITH  DIFFERENT IA L EQUATION  TRAJ 

KQ(I)  THE  HIGHEST  ORDER  DIFFERENCE  USEO  IN  THE  INTEGRATION  OF  TRAJ 

THE  ITH  EQUATION  TRAJ 

NEQ  NUMBER  OF  EQUATIONS  TRAJ 

NG  NUMBER  OF  GSTOP  FUNCTIONS  (SEE  DVDQ  GLOSSARY)  TRAJ 

NGE  SEE  DVDQ  GLOSSARY  TRAJ 

P(  ) CURRENT  VALUE  OF  THE  DEPENDENT  VARIABLES  (SEE  CONFAC)  TRAJ 

PN ( ) STORAGE  FOR  OVDQ  TRAJ 

P.  REYNOLOS  NLMEER  TRAJ 

T TIME  TRAJ 

TFINAL  INTEGRATION  CUT-OFF  TIME  TRAJ 

VX  AIR  VELOCITY  IN  X DIRECTION  TRAJ 

VY  AIR  VELOCITY  IN  Y DIRECTION  TRAJ 

VZ  AIR  VELOCITY  IN  Z OIRECTIDN  TRAJ 

DIMENSION  F(3),EPS(3),KD(3),PN(6)  » KQ(  3)  » OT(20,3)  TRAJ 

LOGICAL  IPLOT  TRAJ 

COMMON  XI3,YI3,ZI3,YI3P,  EPS  I (31  , HI , H MINI,  VT  ,PT  ,COF  ,FNR,  PACT  , TRAJ 

1RF,RE0,R,XPSTAR,  YPSTAR,  ZPST  AR,P  (6)  , TPRINT « IT,ALPHAO  , BETAi)  , IREC,  TRAJ 

2 IPLOT , IPLT , XPLOT  (60)  ,YPLCT( 60) , ZPLOT (60 ) , ALPHAR, BETAR, YPSTARP,  TRAJ 
3 ZPSTARP , XI 3P, ZI 3 F, XP ,YP , ZP, XWP , XP3 , ACC , DLfi. JLIM  TRAJ 

OATA  MX STEP,NEQ, NG ,N GE/1 £,3,1,0/,  K0/3*2/  TRAJ 

C INITIALIZE  FOR  THE  NUMERICAL  INTEGRATOR  TRAJ 

JT  = 0 TRAJ 

100  IFLAG  = 0 TRAJ 


TFINAL  = (XPSTAR-XI3)*  <•  C TRAJ 

HMAX  = TFINAL  TRAJ 

All  = COS(  ALPHAR  ) * COS(  BETAR  ) TRAJ 

A12  = S IN ( ALPHAR  ) * C0«(  BETAR  ) TRAJ 

A 13  = S IN(  BETAR  ) TRAJ 

T = 0.0  TRAJ 

EPS (1)  = EPSI(l)  TRAJ 

IPS  (2)  * EPSK2I  TRAJ 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
16 
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22 

23 
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26 
27 
26 

29 

30 

31 

32 

33 
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35 

36 

37 

38 
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40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 


EPS (3)  = EPSIC3) 

TRAJ 

61 

H = HI 

TRAJ 

62 

HMIN  = HHINI 

TRAJ 

63 

XPLOT(l)  = XI3 

TRAJ 

64 

YPLOTU)  = YI3 

TRAJ 

65 

ZPLOTC1)  = ZI3 

TRAJ 

66 

IPLT  =1 

TRAJ 

67 

c 

COMPUTE  INITIAL  AIR  FLOW  VELOCITIES 

TRAJ 

68 

110 

CALL  FL0VELCXI3,VI3,ZI3,VX,VY,VZ,H,INB00Y) 

TRAJ 

69 

PCI)  = XI3 

TRAJ 

70 

PC 2)  = VX 

TRAJ 

71 

PC  3)  = YI3 

TRAJ 

72 

PC4)  = VY 

TRAJ 

73 

PC5)  = ZI3 

TRAJ 

74 

PC6)  s VZ  - VT 

TRAJ 

75 

120 

FC1)  = 0.0 

TRAJ 

76 

F 12 ) = C.O 

TRAJ 

77 

FC3)  = VT*PT/COF  - FNR 

TRAJ 

78 

G a A11*(P (1)  - XPP)  + A12  * CPC3)  - YP)  ♦ A13  * CPC 5)  - ZP) 

TRAJ 

79 

CALL  OVOQC NEG, T,P,F,KD, EPS, IFLAG, H, HMIN, 

TRAJ 

60 

* HMAX,  TPRI NT»TFINAL, FX3TEP, KSTEP,<EMAX ,EMAX * 

TRAJ 

81 

* KQ ,PN, OT*  NEVAL,  NG  »NGE*  NSTOP,G,GT) 

TRAJ 

82 

c 

COMPUTE  THE  TRAJECTORY 

TRAJ 

83 

REHINO  9 

TRAJ 

84 

IREC  = 0 

TRAJ 

85 

GO  TO  200 

TRAJ 

86 

ISO 

AC  = ACC  * SQRTC  FC1)**2  + FC2)**2  > F(3)**2  1 * (RF/R)**2 

TRAJ 

87 

WRITE  (9 )NEVAL»  KSTEP,  T,  PCI),  P C3)  * PCS),  PC2),  PC4),  PC6),VX, 

VY,  TRAJ 

86 

2 VZ*  H,  Rv  AC 

TRAJ 

89 

IREC  = IREC  *■  1 

TRAJ 

90 

IF  (.NOT.  I PLOT  .ANC.  IFLAG  .LE.  10  ) GO  TO  200 

TRAJ 

91 

IPLT  a IPLT  «■  1 

TRAJ 

92 

XPLOTCIPLT)  = PCI) 

TRAJ 

93 

YPLOTCIPLT)  = PC  3) 

TRAJ 

94 

ZPLOT(IPLT)  = PC  5) 

TRAJ 

95 

IF  ( IFLAG  .GT.  10  ) RETURN 

TRAJ 

96 

200 

CALL  OVDQCNEQ,T,P,F,KO,EPS,IFLAG,H,HMIN, 

TRAJ 

97 

* HMAX,  TPRI  NT,  TFINAL.MXSTEP,  KSTEP,  KEM  AX, EMAX, 

TRAJ 

98 

♦ KQ, PN,DT, NEVAL, NG,NGE,N STOP, G,GT) 

TRAJ 

99 

GO  TO ( 210,  210,  ISO,  250,  150,  220,  230,  250,  269,  260,  150, 

TRAJ 

ICO 

1 150  ),  IFLAG 

TRAJ 

1U1 

210 

CALL  FLOVELCP(l) ,P C 3 ),P C 5) , VX,V Y, VZ ,H, IN80DY ) 

TRAJ 

102 

IF  ( IN  BODY  .EQ.  0)  GO  TO  215 

TRAJ 

103 

WRITE  (6,2200)  PCI),  PC  3),  PCS) , YI3#  ZI3,  JT 

TRAJ 

IV  4 

CALL  IMPACT (YI3*  ZI3) 

TRAJ 

Id  5 

JT  = JT  ♦ 1 

TRAJ 

106 

IFCJT.LT.  JLIM)  GO  TC  IOC 

TRAJ 

107 

WRITE  (6,2500)  JLIM 

TRAJ 

108 

IT=-JLIM 

TRAJ 

109 

RETURN 

TRAJ 

110 

215 

R = RF*SQRT((VX  - P(2))**2  ♦ CVY  - P(4) >**2  ♦ CVZ  - PC6))**2  ) 

TRAJ 

111 

PR  a PR FUN  CR,  DLR,  COF) 

TRAJ 

112 

FC1 ) a UX  - PC 2 ) ) *Pfi 

TRAJ 

113 

FC2)  = CVY  - PC4JT)*PR 

TRAJ 

114 

FC3 ) a CVZ  - P(6))*PR  - FNR 

TRAJ 

115 

GO  TO  200 

TRAJ 

116 

22 1 

EPS  CKEMAX)  a 32. *EMA X*EPS (KEMAX ) 

TRAJ 

117 

WRITE C 6, 1900)  IFLAG#  KSTEP, NEVAL 

TRAJ 

118 

WRITE (6, 2 000)  EPS CKEMAX)#  KEKAX 

TRAJ 

119 

GO  TO  210 

TRAJ 

120 

150 


non  * o o 


m 


2 30  HHIN  = H 

WRITE  (6  *1900)  IFLAG,  KSTEP.NEVAL 
WRI TE ( 6 » 21 0 0)  HHIN 
GO  TO  209 

260  G = AllMPdl  - XPP)  ♦ A12  * (P 13)  - YP)  ♦ A13  * (P(5)  - ZP) 

GO  TO  209 

250  WRITE(6  ,1900)  IFLAG,  KST EP»  NEVAL 

AC  = ACC  * SORT*  F Cl  1**2  ♦ FC2)**2  ♦ FT3I**2  I * CRF/R)**2 
WRI  TEC  6 ,1600)  KSTEP,  T,  PCD,  PC3),  PC  5)  , P (2)  , P(4),  P(6),VX, 
1 VZ,  H,  R,  AC 
RETURN 


tRAj  121 
TRAJ  122 
TRAJ  1 23 
TRAJ  124 
TRAJ  125 
TRAJ  126 
TRAJ  127 
TRAJ  128 
V Y, TRAJ  129 
TRAJ  130 
TRAJ  131 
TRAJ  132 
TRAJ  133 


1600  FORMAT CI6,  10 C IX , 1PE 31. 4)/  10X,  2WH=1PE11.4,  4H  R=1FE11.4,  5H  ACTRAJ  134 
1 = 1PEU.  4)  TRAJ  135 

1900  FORMAT  ( 5X,  6HIFLAG=I2,  11H  FOR  K3TEP=I6,  6H  NEVAL=I6)  TRAJ  136 

2000  FORMAT ( 1H*,  55X,  23HEPS  HAS  3EEN  CHANGED  TOlPEll. 4,  11H  FOR  KEMAXTRAJ  137 
1=12)  TRAJ  138 

2100  FORMAT ( 1H+,  55X,  14HHMI h IS  SET  r01PEli.4)  TRAJ  139 

2200  FORMAT ( 10X,  65HTHE  BODY  SURFACE  IS  PENETRATED.  PARTICLE  CQCRGINATRAJ  140 
1TES  ARE  (X ,V,Z) , 3C1PE1I.  £)/  10X,  43HTRIAL  INITIAL  COORDINATES  ARE  TRAJ  141 
2(YINIT,ZINIT)2 (1PE12 .4) , 5X,  14HATTEMPT  NUM8ERI4)  TRAJ  142 

2500  FORMAT ( / 15X,  5HAFTERI4,  45H  ATTEMPTS  PARTICLE  STILL  PENETRAT ESTRA J 143 

1 THE  BOOT.*  TRAJ  144 

END  TRAJ  145 


.POLYGON 

SUBROUTINE  POL YGONCXIN, YIN,N»AREA) 

COMPUTES  AREA  OF  A PLA  )E  POLYGON  WITH  N VERTICES 


C 


C 


DIMENSION  XINCN),  YIN (N  I 
DIMENSION  XC100),  YC100) 

DATA  PI/3. 1415926536/ 

CALCULATE  CENTER  OF  *OL YGON 

XSUM  = 0. 

YSUM  = 0. 

00  2 1=1, N 

XSUM  = XSUM  ♦ XIMI) 

YSUM  = YSUM  t-  VINCI) 

2 CONTINUE 

XCEN  = X3UM/FL0ATCNI 
YCEN  = YSUM/FLOATCN) 

REORDER  POINTS  IN  ASCENDING  VALUES  OF  THETA 

TPIM1  = 0. 

DO  8 IP=i,N 
THETAP  = 2.»PI 
DO  4 1=1, N 

THETA  = ATAN2C  VINCII-YCEN,  XINCII-XCEN) 

IF  (THETA  .LT.  0.)  THETA  = 2,*PI  f THETA 
IF  (THETA  .LE.  TPIM1  .OR.  THETA  .3T.  THETAP)  GO  TO  4 
THETAP  = THETA 
XCIP)=  XIN ( ]) 

VC  IP)  = VI  Nil) 

4 CONTINUE 

TPIMI  = THETAP 


POLY 

1 

POLY 

2 

POLY 

3 

POLY 

4 

POLY 

c 

«*■ 

POLY 

6 

POLY 

7 

POLY 

8 

POLY 

9 

POLY 

10 

POLY 

11 

POLY 

12 

POLY 

13 

POLY 

14 

POLY 

15 

POLY 

16 

POLY 

17 

POLY 

18 

POLY 

19 

POLY 

20 

POLY 

21 

POLY 

22 

POLY 

23 

POLY 

24 

POLY 

25 

POLY 

26 

POLY 

27 

POLY 

28 

POLY 

29 

POLV 

30 

151 
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8 


31 


32 

40 

200 


- in  mi 

CONTINUE  ^ 

ASUH  =0. 

00  40  IN=i,N 

iNMi  = IN  - 1 

IF  (IN.EQ.l)  I NM1  = N 

BASE  = SQ  £T  ( (X  (I  N)  -X  (INMI))**  2 MY  (IN) -Y  CINM1I  )**2) 
OENOM  = XC  IN)  - X(INKl) 

IF  I ABS  (OENOM)  .GT.  l.E-10)  GO  TO  31 
ALT  = ABSCXCEN-X  (IKM1)  > 

GO  TO  32 

SLOPE  * (Y(IN)-Y(IKMD)  / (X ( IN) -XIINM1)  ) 

ALT  = ABSIYCEN-V (INH1>-SL0PE*(XCEN-X(INM1) ) )/SQRT( 1 
ASUM  s ASUH  ♦ ALT*8ASE/2. 

CONTINUE 
AREA  = ASUH 
RETURN 
ENO 


• ♦SLOPE**2) 
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POLY 

POLY 
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♦DEC  K*  TRANSFM 

SUBROUTINE  TRANSFM  <X  ,Y,  Z,  ALPHA  fBETA  , XT,  YT  , ZT,  IGO) 

TRANSFORMS  COORDINATES  FROM  THE  F.OW  SYSTEM  TO  THE  PARTICLE  FLUX 
TUBE  CROSS  SECTION  SYSTEM,  CR  VISE  VERSA. 

IF ( IGO  .GT.  0)  TRANSFORM  FROM  FLOW  TO  FLUX  TUBE  SYSTEM 
IF ( IGO  .LT.  0)  TRANSFORM  FROM  FLUX  TUBE  TO  FLOW  SYSTEM 

COSA  s COS (ALPHA) 

SINA  = SINCALPHA ) 

COS0  = COS (BETA  ) 

SI NB  = SIN (BETA) 

IF  (IGO  .LT.  0)  GO  TO  20 
All  = C OSA*COSB 
A12  = SINA*C0SB 
A13  = SINB 
A21  = -SINA 
A22  = COSA 
A23  = 0. 

A31  = - COS A*SINB 
A32  = -SINB*SINA 
A33  = COSB 
GO  TO  30 

C GOING  THE  OTHER  WAY 

20  Alls  COSA*COSB 
A12  = -SINA 
A13  = -COSA*  SINS 
A21  = SINA*C0S8 
A 22  = COSA 
A23  = -SINA*SINB 
A31  = SINB 
A32  = 0. 

A3!=C0SB 

30  XT  = A11*X  ♦ A12*Y  ♦ A13*Z 
YT  s A21*X  ♦ A22*Y  ♦ A23*Z 
ZT  = A31*X  ♦ A32*Y  ♦ A33*Z 
RETURN 
ENO 


TRAN 

1 

TRAN 

2 

TRAN 

3 

TRAN 

4 

TRAN 

5 

TRAN 

6 

TRAN 

7 

TRAN 

6 

TRAN 

9 

TRAN 

10 

TRAN 

11 

TRAN 

12 

TRAN 

13 

TRAN 

14 

TRAN 

15 

TRAN 

16 

TRAN 

17 

TRAN 

18 

TRAN 

19 

TRAN 

20 

IRAN 

21 

TRAN 

22 

TRAN 

23 

TRAN 

24 

TRAN 

25 

TRAN 

26 

Tran 

27 

Tran 

26 

TRAN 

29 

Tran 

30 

TRAN 

31 

TRAN 

32 

TRAN 

33 

TRAN 

34 

TRAN 

35 

TRAN 

36 

TRAN 

37 

TRAN 

38 

1 
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♦DECK, 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


MATINV 

SUBROUTINE 


C 

C 

C 


MA TIN  VIA, N,B*M, DETERM) 


MATRIX  INVERSION  WITH  ACCOMPANYING  SOLUTION  CF  LINEAR  EQUATIONS 

THIS  CODE  SOLVES  THE  MATRIX  EQUATION 
A*X=B 

FOR  X.  A IS  AN  N»)  INfUT  MATRIX.  B IS  AN  N*1  INPUT  VECTOR. 
A IS  REPLACED  BY  ITS  INVERSE.  3 IS  REPLACED  BY  THE  VECTOR  X. 
THE  CODE  CAN  BE  USED  FOR  MATRIX  INVERSION  ALONE.  IN  THIS  MODE 


MAT! 

MAT! 

MAT! 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 


SET  M = 0 IN  THE  INPUT.  FOR  MATRIX  INVERSION  PLUS  LINEAR  EQUATIONMATI 
SOLUTION,  SET  M= i IN  THE  INPUT.  THE  VALUE  OF  THE  DETERMINANT 
OF  A,  OETERM,  IS  RETLRNEC  FRCM  BOTH  MOOES. 


10 

.15 

29 

3C 


40 

45 

50 

60 

70 

80 


DIMENSION  I PIVOT (30) , At 
EQUIVALENCE  CIROW.JRCWI, 

INITIALIZATION 

DET  ERM=1.0 
DO  20  J =1, N 
IPI VOT ( J)  = 0 
DO  550  1=1, N 

SEARCH  FOR  PIVOT  ELEMENT 


N,  N),  B(  N,l), 
(ICOLUM, J CO LUM) , 


INOEX (30,2) , PIVOT (30) 
(AMAX,  T,  SWAP) 


AMA  X=  0.0 
DO  135  J=i»  N 
IF  (IPIVOT(J) 

DO  100  K=1 , N 
IF  (IPIVOT(K)-i)  60s 
IF  (ABS  (AMAX)-ABS  ( 


1)  60,  10  5,  60 


100,  740 
<J,K)))  8!>, 


100,  100 


MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 


85  IRO W= J 
90  ICQLUM=  K 
95  AMAX=A(J,K) 

100  CONTINUE 
105  CONTINUE 

110  I PI  VOT  (ICOLUM)  =IPIVO  7(  ICOLUM) + 1 
C 

C INTERCHANGE  ROWS  TO  PUT  PIVOT  ELEMENT  ON  01 AGO NAL 

C 

130  IF  ( IRO W-ICOLUM)  140,  260,  140 
140  DET ERM= -DETERM 
150  DO  200  L=1 , N 
160  SWAP=A ( IROW,L) 


MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 

MATI 


173  A( IROW , L)  = A ( ICOL  UM ,L ) MATI 

200  A(ICOLUM,L)=SNAP  MATI 

205  IF( M)  260,  260,  210  MATI 

210  DO  250  L=1 , f!  MATI 

220  SWAP=B ( IROW  L)  MATI 

230  BfIROW,  L)~£f.ICOLUM,L)  MATI 

250  B! ICOLUM, L) “SWAP  MATI 

26 S INDEX  (1,1)  =l*OW  MATI 

270  INDEX (1,2) “T€OLUM  MATI 

310  PIVOTCI)=AUCOf.UM,ICCLUM)  MATI 

320  OETERM=DETERM*PI VOT  C l)  MATI 

C MATI 

C DIVIDE  PIVOT  ROM  BY  PIVOT  ELEMENT  MATI 

C „ . MATI 

330  ACICOLUM, ICOLUM) =1.0  MATI 


153 
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340  00  350  L=1 , N 

350  AtICOLUM,L)=A(ICOLUM,L)/PIVQT(I ) 

355  IF  ( M)  380,  380,  360 
3 60  DO  370  t=l,M 

370  8(IC0LUM,L)=Q(IC0LUM,L» /PIVOTII1 

REOUCE  NON-PIVOT  RCWS 

380  00  550  L1~1,N 

390  IF(Li-ICOLUM)  480,  550,  *00 

400  T*A (LI, ICOLUM) 

420  ACll,ICOLUM)=0.O 
430  00  450  L-l , N 

450  A(L1,L)=A(L1,L)-A(  ICCLUM,L)*T 
455  IF  ( M)  550,  550,  460 
460  DO  500  L=1,M 

500  &(L1,L>  *a(Ll,L»-9<ICCLUM«Li*T 
550  CONTINUE 

INTERCHANGE  COLUMNS 

£00  DO  710  1=1, N 
610  L=N+1- I 

620  IF  (INDEX(L,1)-INDEX  (L  ,2 ) ) 630  , 710,  630 
630  JROW=INDEX (L,l) 

640  JC0LUM=INDEX(L,2) 

650  DO  705  K=1 , N 
660  SWAP=ACK,JROW) 

670  A(K,JROW)  = A(K,JCOLUM> 

730  A<K,JCOLUM)=SWAP 
705  CONTINUE 
710  CONTINUE 
7 40  RETURN 
END 


MATI 

61 

MATI 

62 

MATI 

63 

MATI 

64 

MATI 

65 

MATI 

66 

MATI 

67 

MATI 

66 

MATI 

69 

MATI 

70 

MATI 

71 

MATI 

72 

MATI 

73 

MATI 

74 

MATI 

75 

MATI 

76 

MATI 

77 

MATI 

78 

MATI 

79 

MATI 

80 

MATI 

81 

MATI 

62 

MATI 

83 

MATI 

64 

MATI 

85 

MATI 

86 

MATI 

67 

MATI 

68 

MATI 

89 

MATI 

90 

MATI 

91 

MATI 

92 

MATI 

93 

MATI 

94 
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*OECK,  SETFLO 

SUBROUTINE  SETFLOC  KASE  ) 

C INITIALIZES  FOR  FLGVEL  CALCULATION  BY  READING  IN  DATA  PREPAREO 

REAL  IXX,  IXY,  IYY,  PACH 

COMMON  /VELOAT/  NSYM • NCUAO,  119*  129,  LOOP,  RBETA 

COMMON/ COM2 9/  SIG(IOOO),  D4K100Q), 


SETF 

SETF 

SETF 

SETF 

SETF 


XC(IOOO),  YC(lOOO) ,ZC (1900), SETF 


1 All( 10  00) , A12  (1000), A13  ( 1000 ) , A 21 C 1C  0 0) • A22 (1000) , A23 (10 00) , 

2 A31C1000) , A32  <10U0)«A33  C 1900 ) ,XI 1 (1 0 00 ) ,XI2 I 100 0 > , XI3 (10 00) • 

3 XI 4(1000)  •ETAl(1000),ETA2(1000  ),ETA4(l30ti),TSQ(10(iO),A(1000), 

4 IXX (1C 00 ) • IXY  (1000), IYY  (1000), 312  ( 1000) ,D2 31 1060) ,034( 1000) 
REMIND  14 

REAO(  14)  KASETP,  NSYM,  NQUAO,  RBETA,  MACH 
WRITE ( 6 ,3000)  KASE  *NSVK*  NQUAO,  MACH 

IF ( KASE  .EQ.  KASETP)  GO  TO  100 
REWIND  14 

WRITE  (6 ,2000)  KASE,  KASETP 
STOP 

100  READ  (14)(XC(J) ,YC  (J),  ZC(J),  All(J),  A12(J),  A13(J),  A21 ( J ), 

1 A22(J),  A23(J),  A31(J),  A32(J),  A33(J),  XI1(  J)  ,ETA1  ( J)  ,XI2  ( 

2 J),  ET A2( J) » XI3( J) , X 14 ( J) , ETA4(J),  TSQ(J),  A (J),  IXX  (J), 

3 IXY  (J),  IYY(J),  012  (J  ) , D23  ( J ) , 0341  J),  04K  J)  ,J=i, NQUAO) 


SETF 

SETF 

SETF 

SETF 

SETF 

SETF 

SETF 

SETF 

SETF 

SETF 

SETF 

SETF 

SETF 

SETF 

SETF 


1 GAIN/  1GX,  9HCARD 
3000  FORMAT ( 1H1, 

1TRY  PLANES=I3,  5X, 
28ER=E12.5) 

END 


10=  A 4 , 5X,9HTA^E  10=  A4)  SETF 

19HB00Y  IDENTIFIER  IS  A4,  5X,  26HNUMBER  OF  SYMMESETF 
2 5HNUM8ER  OF  QJADRAL ATERALS=I 5,  5X,  12HMACH  NUMSETF 

SETF 

SETF 
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1 

2 

3 

4 

5 

6 
7 
6 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 


REA0(14) (SIG(I) 

• 1 = 

l.NQUAD) 

SETF 

22 

REWINO  14 

SETF 

23 

10 

IF 

( NSYM  - 1 ) 

58, 

52,  54 

SETF 

24 

52 

129 

= 1 

SETF 

25 

119 

= 2 

SETF 

26 

GO 

TO  6 0 

SETF 

27 

54 

129 

= 2 

SETF 

28 

IF 

( NSYM  .EQ, 

3 ) 

GO  TO  56 

SETF 

29 

119 

= 3 

SETF 

30 

GO 

TO  6 0 

SETF 

31 

56 

119 

= 4 

SETF 

32 

GO 

TO  6 0 

SETF 

33 

58 

119 

= 1 

SETF 

34 

60 

LOOP  = 2 **  NSYM  ♦ 

1 

SETF 

35 

RETURN 

SETF 

36 

20QQ 

FORMAT ( 1H-,  5X 

, 5CHTAPE  AND  CARO  IDENTIFIERS  DO  NOT  MATCH. 

TRY  A SETF 

37 

38 

39 

40 

41 

42 


1 


o o ooooooooo 


♦DECK*  FLOVEL 

! SUBROUTINE  FLOVELJ  XNPP,  YNPP*  ZNPP,  VXPP,  VYPP,  V/P F*  H,  INBOCY) 
j REVISED  5/11/79 

| = | 

GIVEN  SPACE  COOROI NATES,  XNPP* Y MP3  » ZNPP,  POTENTIAL  FLOW  VELOCITY 
COMPONENTS*  VXPP , V YPP,VZPP,  ARE  COMPUTEC  AND  RETURNED, 

THE  HESS-SMITH  METHOO  IS  USEO.  HE  28  QUANTITIES  PLUS  THE 
SOURCE  STRENGTHS,  SIGO,  ARE  STORED  IN  C C M M C N/CO M2 9/ • 
CONTRIBUTIONS  FROM  NCUAO  SURFACE  ELEMENTS  ARE  SUMMEO* 

UP  TO  THREE  PLANES  OF  SYMMETRY  CAN  BE  ACCCMCCATED. 

REAL  Ml 2*  M23,  M34,  K41  , IXX,  IXY,  IYY 
COMMON  /VELOAT/  NSYM * NQUAC,  119,  129,  LOOP,  R8ETA 

CIMENSI ON  X (8 ) , Y(SJ , Z (6 ) 

COM  MON/ COM  2 9/  SIG(IOOO),  D4l(1000>,  XC  ( 1000  ),  YC  ( 1000)  , ZC  < 1000  ) i 

1 All  ( 10  00)  , A12  ( 1009 ) , A13  ( 1990  ),1  21  ( 1090)  , A22  ( 19001  ,A23(10Q0), 

2 A3K  10  00!  ,A32  (1000), A33  < 1000)  , < II  ( 1000)  ,XI2  (1000)  ,XI  3 (10  00)  , 

3 X 1 4(1000) ,ET A1(1GC9),ETA2(1QQO),£TA4(18CQ),TSQ(1000)«A(1000), 

4 IXX(IOOO)  ,IXV  (1000  ), IYY  (1000,312  ( 1000)  ,C23(  1000)  ,0344 1003) 
DATA  RH01SQ,  RH02SQ/  6.0,  16.0  / 

VX?P=0. 0 
VYPP=0. 0 
VZPP=0.0 

IN300Y  = 0 


00 

2300  11  = 

1,  N QUA  D 

00 

1700 

12  = 

= 1,  L 

OOP 

IF 

( 12  , 

EQ. 

LOOP 

) GO 

TO 

GO 

TO  (10 

00, 

91C, 

920 

, 

910 

919 

YC 

( 11  ) 

= - YC  ( 

11 

) 

A 12 

( 11 

) = 

- A12 

( 

11 

) 

A22 

( 11 

) = 

- A 22 

( 

11 

) 

A31 

( 11 

) = 

- A 31 

( 

11 

) 

A33 

( 11 

) = 

- A33 

( 

11 

) 

GO 

TO  932 

920 

ZC 

( 11  ) 

= •• 

- ZC  ( 

11 

) 

A13 

( 11 

) = 

- A 13 

( 

11 

) 

A23 

( 11 

) = 

- A23 

( 

11 

) 

A 31 

( 11 

) = 

- A 31 

( 

11 

) 

A32 

( 11 

) = 

- A32 

( 

11 

) 

GO 

TO  932 

930 

XC 

( 11  ) 

= - XC  ( 

11 

) 

All 

( 11 

) = 

- All 

( 

11 

) 

A2i 

( 11 

) = 

- A21 

( 

11 

) 

A32 

( 11 

) = 

- A 32 

( 

11 

) 

A33 

( 11 

) = 

- A3  3 

( 

11 

) 

932 

IF 

( 12  . 

EQ. 

LOOP 

) GO 

TO 

1C03 

XOI 

F = XNPP- 

XC  ( 

11 

) 

YDI 

F s YNPP- 

YC  ( 

11 

) 

ZDI 

F = ZNPP- 

ZC  ( 

11 

) 

( 

930  , 


2900, 

910, 


910, 

920, 


920,  930 
910  ) , 12 


) *119 


2100,  2200  ) ,129 


COMPUTE  DISTANCE  FROM  NULL  POINT  TO  ORIGIN  CF  J-TH  ELEMENT  COOROINA 
SYSTEM  ( J CORRESPONDS  TO  THE  INDEX  II  ) 

C INEQUALITY  C 98  ) 

ROSQ  = XQIF  **  2 *•  YDIF  **  2 ♦ ZOIF  +*  2 

IF  ( ROSQ  .LT.  RH02SQ  * TSQ  < II)  ) GO  TO  1400 

C COMPUTE  INDUCED  VELOCITY  CONPONENTS 
C EQUATION  ( 97  ) 


FLOV 

1] 

FLOV 

21 

FLOV 

A 

FLOV 

FLOV 

51 

FLOV 

6 

FLOV 

7.1 

FLOV 

5 i 

FLOV 

9 ! 

FLOV 

10  i 

FLOV 

11  1 

FLOV 

12  i 

FLOV 

13  i 

FLOV 

14  | 

FLOV 

15  s 

FLOV 

16 

FLOV 

17  S 

FLOV 

18  I 

FLOV 

19  1 

FLOV 

20 

FLOV 

21 

FLOV 

22 

FLOV 

23 

FLOV 

24 

FLOV 

25 

FLOV 

26 

FLOV 

27 

FLOV 

26 

FLOV 

29 

FLOV 

30 

FLOV 

31 

FLOV 

32 

FLOV 

33 

FLOV 

34 

FLOV 

35 

FLOV 

36 

FLOV 

37 

FLOV 

38 

FLOV 

39 

FLOV 

40 

FLOV 

41 

FLOV 

42 

FLOV 

43 

FLOV 

44 

FLOV 

45 

FLOV 

46 

FLOV 

47 

FLOV 

48 

FLOV 

49 

FLOV 

A 

■FLOV 

*4 

FLOV 

52 

FLOV 

53 

FLOV 

54 

FLOV 

55 

FLOV 

56 

Flov 

57 

FLOV 

56 

FLOV 

59 

FLOV 

60 
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FLOV 

61 

ARG1  = A ( ID  ✓ SCRT  ( ROSQ  ) **  3 

FLOV 

62 

X ( 12)  = ARGi  * XOIF 

FLOV 

63 

Y ( 12  ) = ARGi  * YOIF 

FLOV 

64 

Z ( 12  ) = ARGI  * ZOIF 

FLOV 

65 

GO  TO  1700 

FLOV 

66 

FLOV 

67 

TRANSFORM  NULL  POINT  TO  J - ELEMENT  COORDINATE  SYSTEM 

FLOV 

68 

EQUATION  ( 78  ) 

FLOV 

69 

FLOV 

70 

FLOV 

71 

1400  XNP  = All  ( 11  ) * X CIF  ♦ A 12  ( 11  ) * YCIF  ♦ A13  ( 

11  ) * ZCIF 

FLOV 

72 

YNP  = A21  ( 11  ) * XDIF  ♦ A 22  4 III  * YCIF  ♦ A23  <Il)*ZOIF 

FLOV 

73 

ZNP  * A31  C 11  1 * XCIF  ♦ A32  (ID  * YCIF  ♦ A33  (III 

* ZOIF 

FLOV 

74 

FLOV 

75 

INEQUALITIES  ( 99)  AND  ( 100  ) 

FLOV 

76 

IF  ( ROSQ  .LT.  RHOISQ  * TSQ  ( 11  ) ) GO  TO  1410 

FLOV 

77 

FLOV 

70 

COMPUTE  INDUCED  VELOCITY  COMPONENTS 

FLOV 

79 

EQUATIONS  ( 57  ) - ( 62  ) 

FLOV 

80 

FLOV 

01 

P = YNP  +* 2 * ZNP  +*  2 - 4.0  * XNP  **  2 

FLOV 

02 

Q P=  XNP  **2  ♦ ZMP  **  2 - 4.0  * YNP  **  2 

FLOV 

83 

RO  = SQRT  ( ROSQ  ) 

FLOV 

04 

ROP  = RO  **  (-  7) 

FLOV 

65 

WXXX  = XNP  * ( S.G  * P ♦ 30.0  * XNP  **  2 ) * ROP 

FLOV 

86 

WXXY  = 3.0  * P * ROP  * YNP 

FLOV 

87 

WXYY  = 3.0  * XNP  * QP  * FOP 

FLOV 

38 

W YYY  = YNP  * ( 9.8  * QP  ♦ 33»U  * YNP  **  2 ) * ROP 

FLOV 

69 

WXXZ  = 3.0  * ZNP  * P * FCP 

FLOV 

90 

WXYZ  = - 15.0  * XNP  * YNP  * ZNP  * ROP 

FLOV 

91 

WYYZ  = 3.9  * ZNP  * QF  * FOP 

FLOV 

92 

ROP  = - RO  **  ( - 3) 

FLOV 

93 

WX  = ROP  * XNP 

FLOV 

.94 

WY  = ROP  * YNP 

FLOV 

95 

WZ  = ROP  * ZNP 

FLOV 

96 

HI X X = .5  * IXX  ( 11  ) 

FLOV 

97 

HIYY  = .5  * IYY  ( 11  ) 

FLOV 

98 

VX  = - WXYY*HIYY  - WXXY*IXY(  ID  - WXXX*HIXX  - WX*A( 

ID 

FLOV 

99 

VY  = - WVYY*HIYY  - WXYY*IXY(  ID  - WXXV+HIXX  - WY*A( 

ID 

FLOV 

100 

VZ  = - WYYZ*HIYY  - WXYZ*IXY(  II)  - WXXZ*HIXX  - WZ*A( 

III 

FLOV 

101 

GO  TO  1600 

FLOV 

102 

FLOV 

103 

COMPUTE  INDUCED  VELOCITY  COMPONENTS 

FLOV 

104 

EQUATIONS  ( 42  ) - ( 49  > 

FLOV 

105 

FLOV 

106 

CHECK  TO  SEE  IF  POINT  IS  INSIOE  BODY 

FLOV 

107 

1410  GO  TO  ( 1300,  1310,  1300,  1310,  1330,  1310,  1300,  1310  ),  12 

FLOV 

108 

1300  IF( ZNP  .GT.  0.0  .OR.  RCSQ  .GT.  0.25*TSQ(I1J  .OR.  ABS(ZNP)  .GT.  H)  FlOV  109 

1 GO  TO  1411  FLOV  113 

WRITE  ( 6,5000)  II,  12,  ZNP,  ROSQ,  TSQ(  ID  , H FLOV  111 

5000  FORMAT ( 13X, 11H INSI OE  QUADI5 ,5X , 3HI 2=13/ 10 X , 15HZNP, ROSQ, T SQ, H=4 (1PEFLOV  112 

113.4))  FLOV  113 

INBOOY  = 1 FLOV  114 

GO  TO  1411  FLOV  115 

1310  IF ( ZNP  ,LT . 0.0  .OR.  ROSQ  .GT.  C.25*TSQ(ID  .OR.  ABS4ZNP)  .GT.  HI  FLOV  116 

1 GO  TO  1411  FLOV  117 

WRITE  (6,5000)  II,  12,  ZNP,  RCSQ,  TSQIIll,  H FLOV  110 

INBOOY  = 1 FLOV  119 

1411  ETA4M3  = ETA4  ( ID  - ETAi  C II  ) FLOV  120 
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1420 


1430 


RO  * SQRT  C ROSQ  ) 

ETA2M1  = ETA2  C II  ) - ETA1  ( II  ) 


IF  ( Q25  ) 1420  * 1430,  1420 
TEMP  = R1  ♦ R2 
TEMPI  = TEMP  - Q25 
TEMP2  * TEMP  + Q 25 
ARG1  = 1,0 

IF  ( TEMPI  .NE.  0.0  .AND.  TEMP2  • >1  £• 

TEMP  = ARGi  / Q2  5 

VX  = ETA2M1  * TEMP 

VY  = - XI2M1  * TEMP 

IF  ( Q26  I 1435,  1440,  1435 


FLCV  121 
FLOV  122 
FLOV  123 
FLOV  124 
FLOV  125 
FLOV  126 
FLOV  127 
FLOV  126 
FLOV  129 
FLOV  130 
FLCV  131 
FLOV  132 
FLOV  133 
FLOV  134 
FLOV  135 
FLOV  136 
FLOV  127 
FLOV  138 
FcOV  139 
FLOV  140 
FLOV  141 
FLOV  142 
FLOV  143 
FLOV  144 
FLOV  145 
FLOV  146 
FLOV  147 
FLOV  148 
FLOV  149 
FLOV  150 
FLOV  151 
FLOV  152 
FLOV  153 
FLOV  154 
FLOV  155 
FLOV  156 
FlOV  157 
FLOV  158 
FLOV  159 
FLOV  160 
FLOV  161 
FLOV  162 
FLOV  163 
FLOV  164 
FLOV  165 
FLOV  166 
FLOV  167 
FLOV  168 
FLOV  169 
FLOV  170 
FLOV  171 
FLOV  172 
FLOV  173 
FLOV  174 
FLOV  175 

0.0  ) ARG1= ALOGf TEMPI /TEMP2)  FLOV  176 

FLOV  177 
FLOV  178 
FLOV  179 
FLOV  160 


XI4M3  = XI4  ( II  ) - XI  3 C II  ) 
XI 2 Ml  - XI2  (II  ) - XU  ( II  ) 

XI 3 M2  = XI 3 ( II  ) - XI 2 ( II  > 

XI1M4  = XII  < II  ) - XI 4 ( II  > 

XMXI  1 = XNP  - XII  * II  ) 

X MX 1 2 = XNP  - XI 2 C II  ) 

XMXI3  = XNP  - XI3  ( II  ) 

XMXI4  = XNP  - XI 4 C II  ) 

YMETA1=  YNP  - ETA  1 ( II  ) 

YMETA  2 = YNP  - ETA2  ( II  ) 

YMETA  4 = YNP  - ETA4  ( II  > 


ZNPSQ  = ZNP  * ZNF 
IF  ( ZNPSQ  .LT.  TSQ  ( II 
El  = ZNPSQ  ♦ X MX 1 1 **2 
E2  = ZNPSQ  ♦ XMXI 2 **Z 
E3  = ZNPSQ  + XMXI3  **Z 
E4  = ZNPSQ  + XMXI4  +*Z 
HI  = YMETA1  * XMXI  1 
H2  = YMETA2  * XMXI2 
H3  = YMETA1  * XMXI3 
H4  = YMETA4  * XMXI4 
M12  = 0.0 


IF  ( 

XI2M1  , 

>NE. 

0.  C) 

Ml  2 

M23  = 

0 .0 

IF  C 

XI3M2  , 

.NE. 

C.O) 

M23 

M34  = 

0.0 

IF  C 

XI4M3  , 

(NE. 

0.  t) 

M3  4 

M41  = 

C.O 

IF  ( 

XI1M4  , 

• NE. 

0.  C) 

M41 

ANUM1 

= M12  * 

£1  - 

HI 

ANUM2 

= M12  * 

E 2 - 

H2 

ANUM3 

= M23  * 

E 2 - 

H2 

ANUM4 

= M23  * 

E3  - 

H3 

ANUM5 

= M34  * 

E3  - 

H3 

ANUM6 

= M 34  ‘ 

E4  - 

H4 

ANUM7 

= M 41  * 

E4  - 

H4 

ANUM8 

= M 41  * 

£1  - 

HI 

R 1 = 

SORT  1 

[ XMXI1 

Z 

R2  = 

SORT  1 

[ XMXI 2 

2 

R3  = 

SQRT  1 

[ X MX  13 

2 

R4  = 

SQRT  ( XMXI4 

2 

Q25  = 

D 12  ( 

11 

) 

Q2  6 = 

0 23  ( 

11 

1 

Q2  7 = 

034  ( 

11 

) 

Q28  = 

041  ( 

11 

) 

VX  = 

0.0 

VY  = 

C.O 

VZ  = 

G.O 

> * 1.0E-6  ) ZNPSQ  = 0.0 


= ETA2M1  / XI2M1 
- ETA2M1  / XI3M2 
= ETA4M3  / XI4M3 
= - ETA4M3  / XI1M4 


+ YMETA1  **  2 + ZNPSQ) 

♦ YMETA2  **  2 * ZNPSQ) 

♦ YMETA1  **  2 ♦ ZNPSQ) 

♦ YMETA 4 *♦  2 ♦ ZNPSQ) 
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uou 


1435 


TEMP  = R2  ♦ R3 
TEMPI  = TEMP  - Q26 
TEMP2  = TEMP  «•  Q26 


1440 

1451? 


ARG2 
IF  ( 
TEMP 
VX  = 
VY  = 
IF  C 
TEMP 


1460 

1470 


= 1.0 

TEMPI  ,NE.  0.0 
= ARG2  / Q2  6 
VX  - ETA2M1  * TEMP 
VY  - XI3M2  * TEMP 
Q27  ) 1450*  1*60,  1450 
= R3  ♦ R4 
TEMPI  = TEMP  - Q27 
TE’  P2  = TEMP  ♦ Q27 
ARG3  = 1.0 
IF  C TEMPI  .NE.  0. 

= ARG3  t Q27 
VX  * ETA4M3  * TEMP 
VY  - XI4M3  * TEMP 
Q28  ) 147C*  1480,  1470 

* R4  ♦ R1 

TEMP  - Q26 
TEMF  ♦ Q28 


TEMP 
VX  = 

VY  = 

IF  * 
TEMP 
TEMPI  = 
TEMP2  = 


.AND.  TEMP2  .ME.  0.0  I ARG3=ALOG ITEMP1/TENP2) 


1480 


ARG4 
IF  I 
TEMP 
VX  = 
V V = 
IF  l 
TEST 


1502 
1504 
1506 
150  8 


FLOV 
FLOV 
FLOV 
FLOV 

.ANO.  TEMP2  .ME.  0.0  I ARG2= ALOG (TEMP1/TEMP2 ) FLOV 

FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 

1600 , 1502,  1532 FLOV 
IF  C { -XMXI2*  ETA2Ml“YMETA2*XI3M2l/Q2fc)163C,150L,1504FLOV 


.AND.  TEMP2  .ME.  C.O  ) AR64=AL0GITEMPi/TENP2) 


= 1.0 

TEMPI  .NE.  G.O 
= ARG4  / Q26 
VX  - ETA4M3  * TEMP 
VY  - XI1M4  * TEMP 
ZNPSQ  .NE.  O.fi  ) GO  TO  15i0 
= SORT  CTSQI  ID*  1.0E-3) 

I F ( Q2  5 • GT. TEST ) IF  <(  XMXI1*ETA2N1-YMETA1*XI2M1I  /Q25I 
IF (Q26. GT.  TEST) 


IF  CQ27. GT. TEST)  IFC I XMXI3*ETA4M3-YMETAl*XI4M3> /Q27 ) 16  09 ,150  6, 1506FLOV 
IF  ( Q28  • GT.  TEST)  IF!  I-XMXI4*ETA4M3-YMETA4*XI1H4)/Q28)  1600 , 153 6, 1506 FLOV 
VZ  - S.28318531E0  FLOV 


1510 


GO 

IF 

IF 

IF 

IF 


TO  1600 
CXI2H1 
IXI3M2 
IXI4M3 
C X 1 1 M4 


• NE. 
.NE. 

• NE. 
.NE. 


TRANSFORM 

EQUATION 


INDUCED 

I 79  ) 


FLOV 

0.0)  VZ  = AT  ANIANUM1/ (ZNP*R1) )-AT  AN (ANUM2/ IZNf*R2) ) FLOV 
S . 0)  VZ=VZ+AT  ANIANUH3/  IZNP*R2 1 )**  AT  AN IANUM4/ IZNP*R3 ) ) FLOV 
C.O)  VZ=VZ*ATANIANUM5/(ZNP*R3>  )- AT  AN  IANUM6/ IZNF*R4))  FLOV 
0 .0 1‘  VZ=VZ+AT  ANI ANUM7/  (ZNP*R4 ) ) **  AT  AN  ( ANUM8/  ( ZNF*R1»)  FLOV 

FLOV 

VELOCITY  COMPONENTS  TO  REFERENCE  COORDINATE  SYSTEM 


FLOV 

FLOV 

FLOV 
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181 
162 

183 

184 

185 
166 

167 

168 
189 
150 

191 

192 

193 

194 

195 

196 

197 

198 

199 
230 
ESI 
202 

203 

204 

205 

206 
207 
20  6 

209 

210 
211 
212 

213 

214 

215 

216 
217 
216 

219 

220 
221 
222 


1690 

X ( 

12)  = 

All  III)  * 

VX  ♦ A21 

(ID  * 

VY  ♦ 

A3 1 III)  * VZ 

FLOV 

223 

Y 1 

12)  = 

A12  III)  * 

1 VX  ♦ A22 

III)  * 

VY  ♦ 

A3 2 III)  * VZ 

FLOV 

224 

Z ( 

12)  = 

A13  III)  * 

VX  ♦ 

A23  III)  * 

VY 

♦ A 33  III)  ♦ VZ 

FLOV 

225 

1700 

CONTINUE 

FLOV 

226 

FLOV 

227 

2000 

VXPP 

= VXPP 

♦ 

SIG  III ) 

* 

XII) 

:v'.i 

FLOV 

226 

VYPP 

* VYPP 

SIGIIl ) 

¥ 

Y 1 1 ) 

FLOV 

229 

VZPP 

= VZFP 

¥ 

SIGII1) 

¥ 

ZC1) 

FLOV 

230 

GO  TO 

2300 

FLOV 

231 

2109 

VXPP 

= VXPP 

¥ 

SIGIIl) 

¥ 

tXll) 

♦ 

XI 2 ) ) 

FLOV 

232 

VYPP 

= VYPP 

¥ 

SIGIIl) 

¥ 

(Y(l) 

♦ 

YI2)  ) 

FLOV 

233 

VZPP 

= VZPP 

+ 

SIGIIl) 

¥ 

IZtl) 

♦ 

Z 1 2)  ) 

FLOV 

2 3s> 

GO  TO 

2300 

FLOV 

235 

2203 

VXPP 

= VXPP 

♦ 

SIGIIl) 

¥ 

1X11) 

♦ 

XI 2)  ♦ 

X 13 ) 

♦ 

XI4  )) 

FLOV 

236 

VYPP 

= VYPP 

SIGIIl) 

¥ 

IYI1) 

YC2)  ♦ 

Y 1 3) 

¥ 

Y 1 4) ) 

FLOV 

237 

VZPP 

* VZPP 

¥ 

SIGIIl) 

¥ 

tZIl) 

¥ 

ZI2)  ♦ 

Z 13) 

¥ 

Z 1 4)  ) 

FLOV 

238 

2204 

IF  1 

NSYM  .EQ. 

2 ) GO 

TO  2309 

FLOV 

239 

VXPP 

= VXPP 

- 

SIGIIl) 

¥ 

1X15) 

¥ 

XI 6)  ♦ 

X 17) 

¥ 

X 1 8)  ) 

FLOV 

240 

■£ 


o o o o o 


VYPP  = VYPP 
VZPP  = VZPP 
2300  CONTINUE 

VXPP  s VXPP 
VY PP  = VYPP 
VZPP  = VZPP 
RETURN 
END 


SIGCI1)  < 
SIG  (ID  « 

R8ETA**2 

R8ETA 

RBETA 


( Y(  5) 
(Z(  5) 

♦ 1.0 


V(  61 
Z(6) 


Y(  71 
Z (71 


YC8II 

Z««»» 


ECC)/ (1.0  * ECO)  - TEC/0 ME2) 


VALUE 


fLOV 

FLOV 

FLOV 

FLOV 

FLOV 

FLOV 

FLOV 

FLOV 


♦DECK,  FLOAIR 

SUBROUTINE  FLOAIRC  X,  Z,  ECC.  VX.  VZ,  PSI.  IFLAG) 

THIS  COOE  RETURNS  A I FFLOW  VELOCITY  (VX.  VZ)  FOR  A GIVEN  POINT 

THf  ^LLIPSOTD°iSTppm  atcLIt?0I°  REV0LUTI0N  IN  AIRSTREAM. 

“oTS  "tS.  \!!  «pj; 

4T  ecs  is  the  •tSSsuiysrs; 

C INITIALIZE 
100  E2  = ECC* *2 

OME2  = 1.3  - E2 
TEC  = 2.0  * ECC 
CX  =-ECC/(  ALOG ( (1.0  ♦ 

CZ  = TEC*CX 
CPSI  = ECC*CX 

C COMPUTE  FLOW  VELOCITIES  AND  S T R E A MFU  NC  T I ON 
20 0 SQRM  = SQRT ( (X  4 ECC)**2  ♦ Z**2) 

SQRN  = SQRT((X  - ECC)**2  ♦ Z**2) 

VX  =CX* (ALOG( ( S CRH  « SCRN  ♦ TEC)/ 

1 • 1.0 /SQRM  - 1.0/SQRN)  4 1.0 

VZ  = CZ*Z*(  l.C/SQRM  - 1.0/SQRN)/ 

COSH  = (SQRM  ♦ SQRN) /TEC 

COS  = (SQRM  - SQRM /TEC 

PSI  = GPSI*(  COSH  4 0.5M  C0SH**2  - 1.0)* 

1RETURN* <C0SM  * 1#0,/<  C0SH  4 1.0IU  * ( 1.0  - C0S**2)  - Z**2/2.Q 

END 


( SQRM  ♦ SGRN  - TEC)  I /ECC 
(X**2  ♦ Z**2  ♦ SQRM*SQRN  - E2) 


FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 


241 

242 

243 

244 

245 

246 

247 
246 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 
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♦DECK*  ARYTRJ 

SUBROUTINE  ARYTRJ 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
c 
c 
c 
c 
c 
c 

8 : 
d 

8 1 
c 
cl 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ARVT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 


CALLS  TRAJECT  TO  COMPUTE  TRAJECTORIES  OF  PARTICLES  TO  OR  ABOUT 
AN  ARBITRARY  3-0 INENSIONAL  BODY.'  TRAJECTORIES  BEGIN  AT  AN  ARRAY 
OF  POINTS  IN  SPACE.  THE  ARRAY  POINTS,  AND  CORRESPONDING 
TRAJECTORIES,  ARE  OEFINEC  BY  SPECIFYING  AN  INITIAL  POINT  .INCREMENT  ARYT 
VALUES  IN  THE  THREE  COORDINATE  DIRECTIONS,  ANO  THE  OROER  OF  ARYT 

INCREMENTING.  INPUT  INTEGERS  M(3)  SPECIFY  THE  OROER  IN  WHICH  ARYT 

INCREMENTING  IS  OONE  - ALLOWEO  VALUES  OF  M ARE  1,2,3.  FOR  EXAMPLEARYT 
SUPPOSE  Ml  11=2,  M(2)*l,  M( 3)=3»  mN  Y IS  INCREMENTED  FIRST,  X IS  ARYT 
INCREMENTED  SECOND  AND  Z IS  INC REIENTE'D  LAST.  ARYT 

IF  TRAJECTORIES  ARE  NOT  CESIRED  FROM  ALL  OF  THE  ARRAY  POINTS,  THE  ARYT 
PARAMETER  NSKIP  CAN  BE  SfT  GREATER  THAN  ZERO,  ANO  AFTER  THE  FIRST  ARYT 
TRAJECTORY  ONLY  EVERY  NSKIP+1  TH  TRAJECTORY  IS  COMPUTED.  ARYT 

ALSO  REQUIRED  ARE  • (IN  ORDER  OF  X AXIS  FIRST,  Y AXIS  SECOND,  ARYT 
Z AXIS  THIRD-  INITIAL  COORDINATE,  INCREMENT,  NUMBER  OF  INCREMENTSARYT 


OESIREO  (INCLUDING  THE  INITIAL  COORDINATE  VALUE). 

SR  PART CL  IS  CALLEO  TO  REAO * PROCESS  ANO  PRINT  PARTICLE  DATA. 
THIS  SR  CAN  BE  ONE  OF  SEVERAL  THAT  TREATS  WATER  OROPS  OR  ONE  OF 
VARIOUS  TYPES  OF  ICE  CRYSTALS. 

UNIT  9 IS  A SCRATCH  UNIT  USED  FOR  TRAJECTORY  OATA  STORAGE. 

UNIT  10  IS  USEO  FOR  TRAJECTORY  OATA  OUTPUT  FOR  PLOTTING. 

FLOW  OATA  PREPAREO  BY  THE  HESS-SMITH  COOE  ARE  READ  FROM  UNIT  14 
VIA  SR  SETFLO. 

ALL  COORDINATES  ANC  TIMES  ARE  NORMALIZED  (OIME  KSIONLESS) 


GLOSSARY 
ACC 

ALPHAC 


C 

ALPHAR 

c 

c 

BETAO 

c 

c 

BETAR 

cl 

cl  ; 

0 

Cl 

DIAM 

c 

C| 

OLR 

Ci  1 

, 

c 

ELL 

c 

r i 

EPSI  ( 

ci  1 

FN 

c 

FNR 

c 

HI 

c 

HMAX 

c 

h Hi  n 

c 

iplot 

c 

N 

c 

c 

NPOINT 

DIAM/ELL  - USEO  TO  COMPUTE  ACCELERATION  MODULUS 
ANGLE  BETWEEN  PRCJECTION  OF  INITIAL  VELOCITY  VECTOR  IN 
X-Y  PLANE  AND  X AXIS 

ANGLE  BETWEEN  FRCJECTION  OF  FINAL  VELOCITY  VECTOR  IN  X-Y 
PLANE  ANO  X AXIS 

ANGLE  BETWEEf  INITIAL  VELOCITY  VECTOR  ANO  ITS  PROJECTION 
IN  THE  X-Y  PLANE 

ANGLE  BETWEEN  FINAL  VELOCITY  VECTOR  ANO  ITS  PROJECT  I CN 
IN  THE  X-Y  PLANE 
COORDINATE  INCREMENT  ARRAY 
DIAMETER  OF  A WATER  DROP  OR  ICE  AGGREGATE 
BASE  DIAMETER  FOR  A PLATE  OR  CYLINOER  (MICROMETERS) 

BASE  DIAMETER  TO  LENGTH  (CYLINDER)  OR  THICKNESS  (PLATE) 

RATIO 

CHARACTERISTIC  DIMENSION  OF  THE  800V  ( METERS  ) 

PARAMETERS  USED  TO  CONTROL  LOCAL  ERROR  IN  THE  NUMERICAL 
INTEGRATION  (SEE  OVOQ  GLOSSARY) 

FROUDE  NUMBER 

RECIPROCAL  OF  THE  FROUDE  NUMBER 

INITIAL  TIME  STEP  FOR  NUMERICAL  INTEGRATION  (SEE  OVOQ) 

MAXIMUM  TIME  STEP  (SEE  OVOQ) 

MINIMUM  ALLOWEO  TIME  STEP  (SEE  OVOQ) 

IF  TRUE,  TRAJECTORY  DATA  ARE  COPIED  TO  UNIT  10  FOR  PLOTTNS ARYT 
NUMBER  OF  COORDINATE  INCREMENT  STEPS  ARRAY  (INCLUDING  THE  APYT 
FIRST  COORDINATE  VALUE)  ARYT 

ARRAY  P0IN1  TALLY  ARYT 


ARYT 

ARYT 

ARVT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 

ARVT 

ARYT 

ARYT 

ARYT 

ARVT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 

ARVT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 

ARVT 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
16 

19 

20 
21 
22 

23 

24 

25 

26 
27 
26 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
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O O Q O O O 0-0-0 1>  o-o  0-0-0  O'C  O O O O O O O o 


NSKIP 
PC  ) 


pfl> 
PC2) 
PC  3) 
P<4) 
PC  5) 
PC  6) 


PT 

RF 

RHO 

RHOP 

TEMP 

TPRINT 

V 

VIS 

VPGT 

VT 

VTGT 

X 

XFINAL 
XI3  * Y 13 


NUMBER  OF  ARRAY  POINTS  SKIPPEO  BETWEEN  TRAJECTORIES 
CURRENT  VALUES  OF  INDEPENDENT  VARIABLES  - 
X 

OX/DT 
Y 

OY/OT 

Z 

OZ/DT 

DRAG  COE  FFIC  IENT*A  BS  CREYN3L0S  NUMBER}  FOR  GRAVITY  SETTLING 
OF  PARTICLES 

FACTOR  TO  CONVERT  VELOCITY  DIFFERENCE  TO  REYNOLDS  NUMBER 
AIR  DENSITY  CKG/M**3) 

PARTICLE  OENSITV  CKG/M**3) 

AIR  TEMPERATURE  CDEG.  KELVIN) 

OUTPUT  TIME  INTERVAL 
AIR  SPEED  CM/SEC) 

AIR  VISCOSITY  CKG/CM-SECI) 

PARTICLE  SPEEO  AT  TARGET  3OINT 
GRAVITY  SETTLING  SPEEO  OF  PARTICLE 
AIR  SPEEO  AT  TARGET  POINT 
INITIAL  CCCRCINATE  ARRAY 
X COORDINATE  OF  THE  FINAL  PLANE 
»ZI3  INITIAL  COORDINATES  =»ASSED 


TO  TRAJECT 


COMMON  XI3, YI3, ZI3.YI3P.EPS I C3), HI, HMINI.VT, FT ,COF , FNR .PACT , 
1RF,RE3,R,XPSTAR,YPSTAR,ZPSTAR,PC6> .TPRINT, IT, ALP  HA  0, BETAO , IREC , 
2IPL0T,IPLT,XPL0TC60)  , YPLCTC 60) , ZPLOT C 60 ) ,ALPHAR,BETAR, YPSTARP, 

3 ZPSTARP ,XI 3P, Z 13 P,XP, YP* ZP*  XWP, XP3 ,ACC,DLR,JLIM 
DIMENSION  H0LLC18),  M3),  0C3),  NC  3)  , M ( 3 ) » SXC3),  SDC31  , NSC3)  , 
1 SXIC3) , SEQC6) 

LOGICAL  I PLOT 

DATA  SEQ/  4HFIRS,  4HT  , 4HSEC0,  *HNO  , 4HTHIR,  4HC  ✓ 


PI /3. 141 5926536/ 


OATA  STAR,  9LNK  / 3H  * , 3H  / 

JLIM=0 

NFIN=0 

REAO  AND  WRITE  DATA 

READ  C5.26PC)  KASE 
CALL  SETFLOCKASE) 

READ C 5, 100  0 )HOLL  » IPLOT 

READC5, 1100) V,  ELL,  RHO,  TEMP,  XFINAL 
READC  5 , HOC ) TPRINT,  HI,  HMINI , EPSI 

SET  DEFAULT  VALUES  FOR  NUMERICAL  INTEGRATION  ANO  PRINT  PARAMETERS 

IF C TPRINT  ,EQ.  0.0)  TPRINT^O.l 

IF C HI  .EQ.  0.3)  HI  = 0 • 1 

IFCHMINI  « EQ.  0.0)  HMINI=Q.0Q5 

IFCEPSICIJ  .EQ.  0.0  EFSI C 1 ) = 1.  OE- 5 

IFCEPSI  C2)  .EQ.  0.0  EFSIC2)  = 1. 3E-5 

IFCEPSIC3)  .EQ.  O.C)  EPSI  C 3 ) =1.  OE- 5 

i/IS  = 145.8E-8  * TEMP*M3.  D/2. 6I/C110. 4 + TEMPI 

WRI TE  C6 ,1290)  HOLL 

WRITE  C6,1300)  V,  ELL,  RHC,  TEMP,  VIS 
WRITE  C6 ,1400)  HI , HMINI, T FRINT, XFINAL 
WRITE C6 ,15 0 0)  EPSICl),  EPSIC2),  EPSIC3) 

Initialize 

FN  = V**2/ C9.8*ELL) 

FNR  = i.O/FN 

IF  C.NOT.  IPLOT)  GO  TO  5 
REWIND  10 
WRITE  C 6, 18 00) 


ARYT 

61 

ARYT 

62 

ARYT 

63 

ARYT 

64 

ARYT 

65 

ARYT 

66 

ARYT 

67 

ARYT 

68 

ARYT 

69 

ARYT 

70 

ARYT 

71 

ARYT 

72 

ARYT 

73 

ARYT 

74 

ARYT 

75 

ARYT 

76 

ARYT 

77 

ARYT 

78 

ARYT 

79 

ARYT 

80 

ARYT 

81 

ARYT 

62 

ARYT 

S3 

ARYT 

84 

ARYT 

85 

ARYT 

86 

ARYT 

87 

ARYT 

68 

ARYT 

89 

ARYT 

90 

ARYT 

91 

ARYT 

92 

ARYT 

93 

ARYT 

94 

ARYT 

95 

ARYT 

96 

ARYT 

97 

ARYT 

98 

ARYT 

99 

ARYT 

100 

ARYT 

101 

ARYT 

1C  2 

ARYT 

103 

ARYT 

104 

ARYT 

105 

ARYT 

106 

ARYT 

107 

ARYT 

108 

ARYT 

109 

ARYT 

110 

ARYT 

111 

ARYT 

112 

AR  VT 

113 

ARYT 

114 

ARYT 

115 

ARYT 

116 

a|ryt 

117 

ARYT 

118 

ARYT 

119 

ARYT 

120 

162 


C ENTER  PARTICLE  LOOP 

5 CALL  P ARTCL  ( </*  ELL»RH  C«VIS, TEMP, SIAM,  DLR»RHOP,VT»RF  ,PT * ACC*  NFIN) 
IFCNFIN  .EQ,  0)  60  TC  6 

IFC  .NOT.  I PLOT ) RETURN 
ENOFILE  10 
REWINO  10 

Return 

6 cof  = pt*vt*fn  ! 

R = RF  * VT 
REAO(5,8100)H,  NSKIP 
IF(M(1)+M(2)*MC3)  ,EG,  6>  GC  TO  13 
WRITE (6*8200) 

STOP 

10  00  20  Lsl*  3 

20  REAOC  5 » 800  0)  XCLI,  OIL),  N(L) 

WRITE (6 *2000)  XII),  CCD,  Nil) 

WRITE  (6,3000)  X(2),  0(2),  N(2) 

WRITE (6,4000)  XI3),  0(3),  N(3) 

WRITE  (6,9000) 

WRITE ( 6 , 500 0)  SEC(2*H( 1) -1) , SEG(2*M(1)) 

WRITE ( 6 ,60 00)  SEQ(2*M(  2)-l>  , SEQ(2+M<2)) 

WRITE (6  ,7000)  SEQ(2*M(3  >-l) • SEQ(2*M(3)) 

00  40  L =1,  3 
LL=4-M(L) 

S0(LL)=0(L) 

SXI(LL) =X(L)-0(L) 

40  NS(LL) =N(L) 

N1=NS (1 ) 

N2=NS( 2 ) 

N3=NS(3) 

NPOINT=0 

SX(1)=SXI(1) 

00  500  1=1, N1 
SX(1)=SX(1)+S0(1) 

SX( 2) =S  XI( 2) 

00  500  J=1,N2 
SX(2)  = SX(2)+SD(2) 

SX ( 3) =S  XI ( 3 ) 

00  500  K=1,N3 
SX(3)=SX(3) +S0I3) 

NPOINT  = NPOINT'fl 

IF ( MOO ( NPOI NT , NSKIP+1)  .NE,  1)  GO  TO  500 

00  50  L = i,3 

LL=4-M(L) 

50  X (L)  = SX  (LL) 

C INITIALIZE  FOR  TRAJECT 

XI3-X (1) 

YI3  = X ( 2 ) 

ZI3=X ( 3 ) 

XPSTAR=XFINAL 
XPP  = X FINAL 
ALPHAR=  0.0 
BET  AR=0  .0 
YP  = 0.0 
ZP  = 0.0 

WRITE (6 ,1600)  XI 3,  YI3,  ZI3 
CALL  TRAJECT 

C PRINT  TRAJECTORY  OUTPUT 

REWINO  9 
WRITE  (6,87001 


ARYT 

121 

ARVT 

122 

ARYT 

123 

ARYT 

124 

ARYT 

125 

ARYT 

126 

ARVT 

127 

ARYT 

128 

ARYT 

129 

ARYT 

130 

ARYT 

131 

ARYT 

132 

ARYT 

133 

ARYT 

134 

ARYT 

135 

ARYT 

136 

ARYT 

137 

ARYT 

138 

ARYT 

139 

ARYT 

140 

ARYT 

141 

ARYT 

142 

ARYT 

143 

ARYT 

144 

ARYT 

145 

ARYT 

146 

ARYT 

147 

ARYT 

148 

ARYT 

149 

ARYT 

150 

ARYT 

1 £1 

ARYT 

152 

ARYT 

153 

ARYT 

154 

ARYT 

155 

ARYT 

156 

ARYT 

157 

ARYT 

158 

ARYT 

159 

ARYT 

160 

ARYT 

161 

ARYT 

162 

ARVT 

163 

ARYT 

164 

ARYT 

165 

ARYT 

166 

ARYT 

167 

ARYT 

168 

ARYT 

169 

ARYT 

170 

ARYT 

171 

ARYT 

172 

ARYT 

173 

ARYT 

174 

ARYT 

175 

ARYT 

176 

ARYT 

177 

ARYT 

178 

ARYT 

179 

ARYT 

180 
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DO  494  IWRITE  = i.IREC  ARYT 

READ  (9  )NE VAL,  KSTEP,  T,  P(ll,  P(3>,  P(5>,  P(2)  « P(4),  PI6)*VX,  V Y,  ARYT 
2 VZ,  H,  R,  AC  ARYT 

WRITE  (6 ,8600 ) KSTEP,  T,  Ml),  P(3I,  P(  5),  P(2I  , P(4>,  P(6),VX,  V Y,  ARYT 
2 VZ,  H,  R,  AC,  NEVAL  ARYT 

494  CONTINUE  ARYT 

C COMPUTE  INITIAL  AND  FINAL  TRAJECTORY  ANGLES  ARYT 

CALL  FL0VEL(XI3,YI3,ZI3,VX,VY,VZ«-!I,  IN  BODY ) ARYT 

ALPHAC  = AT  AN  I VY /V  X ) * 1(0. /PI  ARYT 

8ET  Art  = AT  ANC  C VZ-VT)  /SORT  ( VX**2  ♦ VY**2J)  * 180. /PI  ARYT 

ALPHAR  = ATAN(P(4)/P(2) ) *180. /PI  ARYT 

BETAR  = ATAN(P(6)/SQRT(P(2)**2+P<4>**2>  )*180./PI  ARYT 

WRITE  ( 6,8800)  ALPHAC,  BETAO,  ALP4AR,  BETAR  ARYT 

C COMPUTE  ANO  PRINT  ORAG  VECTOR  AT  FINAL  FOINT  ARYT 

CALL  FLOVEL(PCl),  P C 3 ) , P«5>,  VX,  VY , VZ,  HI,  INBOCY)  ARYT 

OV  = SQRT ( CVX  - PlZit**Z  ♦ IVY  - P(4>>**2  ♦ IVZ  - P(6II**2  I ARYT 

COSA  = (VX  - PI2II/0V  ARYT 

COSB  = IVY  - P(4))/0V  ARYT 

COSC  = (VZ  - P (6 ) ) /OV  ARYT 

ANG  = ATANI  COSB/COSA  ) * 57,29577951  ARYT 

CNG  = ACOSI  COSC  ) * 57.29577951  ARYT 

WRITE!  6,  3100  ) COSA,  CCSB,  COSC,  ANG,  CNG  ARYT 

C COMPUTE  ANO  PRINT  AI F ANO  PARTICLE  SPEEDS  AT  FINAL  POINT  ARYT 

VA  = SORT!  VX** 2 ♦ V Y**2  ♦ V Z**2  ) ARYT 

VP  - SQRT IP  I 2) **2  ♦ PI4) **2  ♦ P(6)**2)  ARYT 

WRITEI6  , 3200)  VA,  VP  ARYT 

IF  (IPLOT)  WRITE  HOI  IFLT,  (XPL3TIL)  , YFLOT(L)  , ZPLOTIL)  ,L=1,IPLT)  ARYT 
C ARYT 
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184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 
2 0 5 
206 

207 

208 


500  CONTINUE  ARYT  209 

GO  TO  5 ARYT  210 

1300  FORMAT  1 18A4,  7X.L1)  ARYT  211 

1100  FORMAT  I 8F10. 5)  ARYT  212 

1200  FORMAT (1H1,5X,  15HARYTRJ  RUN  ID  -/  8X,  18A4)  ARYT  213 

1300  FORMAT! 1H0,  5X,  21HPH YSICAL  INPUT  DATA  -/7X,10HAIR  SPEEO=lPE13. 6 , ARYT  214 

1 3X , 37HCHARACTERISTIC  DIMENSION  OF  THE  BCDV=1PE13 . 6/  7X ,35HCENSIT ARYT  215 

2 Y AND  TEMPERATURE  OF  AIR  ARE  1PE13.6,  5H  ANO  1PE13.6.20H  AIR  V IS ARYT  216 
3COSITY  IS  1PE13. 6)  ARYT  217 

1400  FORMAT!  1H0,  5X,  2 EHNUMERICAL  INTEGRATOR  INPUTS  -/  7X,  1QHTIME  STE ARYT  218 
1P= 1PE11 ;4,  3X,  18HMIN IMUM  TIME  STEP=1PE11. 4,  3X,  2CHFRINT  TIME  I NT  ARYT  219 
2ERVAL=1PE11.4,  3X,  24HX  COORD.  OF  FINAL  FLANE=1PE11.4)  ARYT  220 

1500  FORMAT!  1H0  , 6X,  33HLOCAL  ERROR  TOLERANCES  FOR  OVDQ  -,  3 1 1PE 14 ,4 ) ) ARYT  221 
1600  FORMAT ! //1H 0,  38H*  ******  INITIAL  COORDINATES  X = 1PE12.5,  ARYT  222 

2 3X , 2HY=1PE12.5,  2X,  2HZ=1PE12.5)  ARYT  223 

i80|  FORMAT!  ///6X,  52HTR A JECTORY  OATA  ARE  WRITTEN  ON  UNIT  10  FOR  PLOTKARYT  224 

1TING//)  ARYT  225 

2000  FORMAT!  10X,  10MINITIAL  X=1PE11.4,  12H  INCREMENT=1PE11. 4,  ARYT  226 

1 19H  NUMBER  OF  V ALUES=I4)  ARYT  227 

2600  FORMAT  (A4)  ARYT  228 

3000  FORMAT!  10X,  lOHIN'IT IAL  Y = 1PE11.4,  12H  INCREM.ENT  = 1PE11. 4,  ARYT  229 

1 19 H NUMBER  OF  VALUES=I4)  ARYT  230 

3100  FORMAT  I/5X,  29HORAG  VECTOR  AT  FINAL  POINT  -/  6X , 18HDIRECTICN  COS  ARYT  231 
1INES-3! 1PE1 3. 4) , 3X,  19WANGLES  A AND  GAMMA-2 (IPEU . 4) ) ARYT  232 

3200  FORMAT ( 5X,  47HAIR  ANO  PAFTICLE  SPEEOS  AT  THE  FINAL  POINT  ARE2!1 PE ARYT  233 
115.  5) ) ARYT  234 

4000  FORMAT!  10X,  10MINITIAL  ZHPEU.4,  12H  IKCREKENT=1PE11. 4,  ARYT  235 

1 19H  NUMBER  OF  VALU£S'I4f>  ARYT  236 

5 COO  FORMAT!  10X,  22HX  AXIS  IS  INCREMENTED  £A4)  ARYT  237 

6000  FORMAT!  10X,  22HV  AXIS  IS  INCREMENTED  2 A 41  ARYT  238 

7 000  FORMAT!  10 X,  22H2  AXIS  IS  INCREMENTED  2A4I  ARYT  239 

8000  FORMAT!  2F1C.0,  14)  ARYT  240 


164 
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SEQUENCE  IS  ERRONIOUS.  TRY 
2HH=1PE11.4,4H  R=  1PE11.4, 


8100  FORMAT  (414) 

8200  FORMAT  I/// 10 X*  4 7H INCREMENTING 
8600  FORMAT (16*  10  I IX ,1PE 11.  4>/lOX, 

11PE11.4,  8H  NEVAL=I 6) 

8700  FORMAT  I /6H0KSTEP , 7X,  1HT « 11X,  1HX,  UX,  1MY,  UX,  1HZ,  10X, 

1 3HVPX,  9X  , 3HVPV,  9X,  3HVPZ,  10X,  2HVX,  10X,  2HVY,  10X.  2HV2I 
8800  FORMAT!  /20Xt  47HINITIAL  ANO  FINAL  TRAJECTORY  ANGLES  ( DEGREES) 
1/  22X*  7HALPHAfisFlO  .4*  5X,  6M8ETA0*F10 .4/  22X,  7HALFHAR=F10.4» 
2*  6HBETARsF10.4l 
9000  FORMAT f 1H0 I 
END 


ARYT  .241 
AGAIN.!  ARYT  242 
5 F AC= ARYT  243 
ARYT  244 
ARYT  245 
ARYT  246 
-ARYT  247 
5XARYT  248 
ARYT  249 
ARYT  256 
ARYT  251 
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H.  G.  NORMENT,  ATMOSPHERIC  SCIENCE  ASSOCIATES  - NOVEMBER  1975 

DETERMINES  TANGENT  PARTICLE  TRAJECTORIES  TO  AN  ARBITRARY 
3-OIMENSIOMAL  BOOY. 

CALLS  TRAJECT  TO  COMPUTE  TRAJECTORIES  OF  PARTICLES  TO  OR  ABOUT 
AN  ARBITRARY  3-DIMENSIONAL  BODY.  TRAJECTORIES  BEGIN  AT  POINTS 
ON  A CURVE  AS  SPEC1FIE0  BY  SR.  STRPNT » ANO  THE  INITIAL  POINTS  t 
STEPPED  TOWARD  THE  B COY  USING  FIRST  A COARSE  STEP  SIZE  UNTIL 
IMPACTION  OCCURS.  THEN  INITIAL  COORDINATES  ARE  BACKEO-UP  ONE 
STEP,  AND  A FINE  STEP  SIZE  IS  USED  UNTIL  IMPACTION  REOCCURS. 

THE  TANGENT  TRAJECTORY  IS  TAKEN  TD  BE  THE  ONE  CALCULATED 
IMMEDIATELY  PRIOR  TO  THE  SECOND  IMPACTION.  POINTS  ON  THE  TANGE 
TRAJECTORY  ONLY  ARE  STORED  FOR  PLOTTING  LATER  IF  DESIRED. 

ALL  TRAJECTORIES  A FE  PRINTED. 

SR  PART CL  IS  CALLED  TO  READ,  PROCESS  ANO  PRINT  PARTICLE  OATA, 
THIS  SR  CAN  BE  ONE  OF  SEVERAL  THAT  TREATS  WATER  DROPS  OR  ONE  OF 
VARIOUS  TYPES  OF  ICE  CRYSTALS. 

UNIT  9 IS  A SCRATCH  UNIT  USED  FOR  TRAJECTORY  DATA  STORAGE. 

UNIT  10  IS  USED  FOR  TRAJECTORY  OATA  OUTPUT  FOR  PLOTTING, 

FLOW  DATA  PREPAREO  BY  THE  HESS-SMITH  CODE  ARE  REAO  FROM  UNIT  14 
VIA  SR  SETFLO. 

ALL  COORDINATES  ANC  TIMES  ARE  NORMALIZED  (OIMENSIONLESSI 


GLOSSARY 
ACC 

ALPHAR 


OIAM/ELL  - USEO  TO  COMPUTE  ACCELERATION  MOCULUS 
ANGLE  BETWEEN  PROJECTION  OF  FINAL  VFLOCITY  VECTOR  IN  X-Y 
PLANE  AND  X AXIS 

BETAR  ANGLE  StTWEEN  FINAL  VELOCITY  VECTOR  AND  ITS  PROJECTION 
IN  THE  X-V  PLANE 

DCORS  COARSE  VALUE  OF  CEL  USEO  FOR  ROUGH  DETERMINATION  OF 
TANGENT  TRAJECTORY 

DEL  CURRENT  VALUE  OF  STEP  SIZE  USEO  IN  INCREMENTING  INITIAL 

COORDINATES  TOWARD  THE  BODY 

DFINE  FINE  VALUE  OF  DEL  USEO  FOR  PRECISE  DETERMINATION  OF 
TANGENT  TRAJECTORY 

DIAM  01 A METER  OF  A WATER  DROP  OR  ICE  AGGREGATE 


TANT 

1 

TANT 

2 

TANT 

3 

TANT 

4 

TANT 

5 

TANT 

6 

TANT 

7 

TANT 

8 

TANT 

9 

TANT 

10 

■TANT 

. 11 

TANT 

12 

TANT 

13 

TANT 

14 

TANT 

15 

FT  A NT 

16 

TANT 

17 

TANT 

18 

TANT 

19 

TANT 

2G 

TANT 

21 

TANT 

22 

TANT 

23 

TANT 

2 \ 

TANT 

25 

TANT 

26 

TANT 

27 

TANT 

28 

TANT 

29 

TANT 

30 

TANT 

31 

TANT 

32 

TANT 

33 

TANT 

34 

TANT 

35 

TANT 

36 

TANT 

37 

TANT 

38 

TANT 

39 

TANT 

4Q 

TANT 

41 

TANT 

42 

TANT 

43 

TANT 

44 
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■i 


c 


c 


BASE  DIAMETER  FOR  A PLATE  OR  C YLINOER  (MICROMETERS) 

TANT 

45 

|0LR 

BASE  OIAMETER  TO  LENGTH  (CYLINDER)  OR  THICKNESS  (PLATE) 

TANT 

46 

RATIO 

TANT 

47 

ELL 

CHARACTERISTIC  DIMENSION  OF  THE  BOOT  ( METERS  ) 

TANT 

48 

EFSI(  > 

PARAMETERS  USED  TO  CONTROL  LOCAL  ERROR  IN  THE  NUMERICAL 

TANT 

49 

\ 

INTEGRATION  (SEE  OVOQ  GLOSSARY) 

TANT 

59 

iFN 

FROUOE  NUMBER 

TANT 

51 

jFNR 

RECIPROCAL  OF  THE  FROUOE  DUMBER 

TANT 

52 

HI 

INITIAL  TIME  STEP  FOR  NUMERICAL  INTEGRATION  (SEE  OVDC) 

TANT 

53 

IHHAX 

MAXIMUM  TIME  STEP  (SEE  OVOQ) 

TANT 

54 

HMIN 

MINIMUM  ALLOWED  TIME  STEP  (SEE  OVOQ) 

TANT 

55 

llPLOT 

IF  TRUE.  TRAJECTORY  DATA  ARE  COPIED  TO  UNIT  1C  FOR  PL0TTN3TANT 

56 

IT 

WHEN  RETURNED  FR  CM  TRAJECT 

TANT 

57 

WITH  A VALUE  OF  ZERO*  INDICATES  IMPACTION  HAS  OCCUREC. 

TANT 

58 

!<T 

TRAJECTORY  TALLY 

TANT 

59 

PC  ) 

CURRENT  VALUES  OF  INDEPENDENT  VARIABLES  - 

TANT 

60 

PCI)  = X 

TANT 

61 

P(2 ) = OX/OT 

TANT 

62 

P( 3)  = Y 

TANT 

63 

PCD  = OYvOT 

TANT 

64 

P( 5)  - Z 

TANT 

65 

P(  6)  = OZ/OT 

TANT 

66 

PT 

ORAG  C OE  FFICI£NT*A  SS  (REYNOLDS  NUMBER)  FOR  GRAVITY  SETTLINGTANT 

67 

OF  PARTICLES 

TANT 

68 

RF 

FACTOR  TO  CONVERT  VELOCITY  DIFFERENCE  T0>  REYNOLOS  NUMBER 

TANT 

69 

RHO 

AIR  DENSITY  (KG/M**3) 

TANT 

70 

RHOP 

PARTICLE  DENSITY  (KG/M»*3) 

TANT 

71 

TEMP 

AIR  TEMPERATURE  (DEG*  KELVIN) 

TANT 

72 

TPRINT 

OUTPUT  TIME  INTERVAL 

Tant 

73 

V 

AIR  SPEED  (M/SEC) 

TANT 

74 

VIS 

AIR  VISCOSITY  ( KG/ (M-SEC) ) 

TANT 

75 

VT 

GRAVITY  SETTLING  SPEEO  OF  PARTICLE 

TANT 

76 

XFINAL 

X COORDINATE  OF  THE  FINAL  PLANE 

TANT 

77 

XI3.VI3 

,ZI3  INITIAL  COORDINATES  =>ASS£D  TO  TRAJECT 

TANT 

76 

TANT 

79 

COMMON 

XI3  ,YI3*ZI3  *YI3P,EPSI  (3)  *HI *HMINI , VT *PT  ,COF*FNR»P  ACT  * 

TANT 

80 

1RF  * REO  * 

R,  XP  STAR*  YPST  AR»  ZFSTAR,P(6)  , TPRI  NT  , IT, ALP  HA  C*  BETA  0 * IREC  * 

TANT 

81 

2 IPLOT , I PLT » XPLOT ( 60)  ,YPLCT  < 60  ) , ZPIOT  (60  ) , ALPHAR,  BETAR,  YPST  ARF, 

TANT 

62 

3ZPSTARP 

,XI3P,ZI3F,XP,YP,ZP,XWP,  XP=>  ,ACC  ,OLfi,  JLIM 

TANT 

63 

DIMENSION  HOLL  (18) 

TANT 

84 

LOGICAL 

IPLOT 

TANT 

65 

DATA  SIGNAL/999999./*  KTLIM/  25/ 

TANT 

66 

JLI M=0 

TANT 

87 

NFI N=0 

TANT 

88 

REAO  ANO  WRITE  DATA 

TANT 

89 

REAO  (5 

,2600)  KASE 

TANT 

90 

CALL  SETFLOCKASE) 

TANT 

91 

REA0C5, 

100 0 ) HOLL  * IPLOT 

TANT 

92 

READC5, 

1190)  V,  ELL,  RHO,  TEMP,  XFINAL 

TANT 

93 

REAO ( 5* 

1100)  TPRINT,  HI,  HMINI , EPSI 

TANT 

94 

SET  DEFAULT  VALUES  FOR  NUMERICAL  INTEGRATION  ANO  PRINT  PARAMETERS 

TANT 

95 

IF  C TPRINT  .EQ.  3*0)  TPRIM=0.1 

TANT 

96 

IF (HI  . 

EQ.  0.0)  HI  = 0.1 

TANT 

97 

IF ( HM IN  I • EQ.  0. 0)  HHINI-0.OG5 

TANT 

98 

IF(EPSICI)  .EQ.  0.0  EPSICi  )-l.  OE-5 

TANT 

99 

IF(EPSI (25  .EQ.  0.0)  GPSI (2 ) *1. OE-5 

TANT 

100 

IFCEPSI  (3)  .EQ.  0.0  EPSI(3)-1.0E-5 

TANT 

101 

VIS  = 145.3 E-fl  * TEMP*M3. 0/2, (0/(110.4  ♦ TEMP) 

TANT 

102 

WRITE (6 

,1200)  HOLL 

TANT 

1C3 

WRITE  (6 

,1300)  V.  ELL,  RHC,  TEMP,  VIS 

TANT 

104 
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WRITE  <6  *14001  HI  *HHIN'I*  TPRINf  * XFI>I  AL 

TANT 

105 

WRI TE ( 6 *1500)  EPSI(l),  EPSI (21  * EPSI (3 ) 

TANT 

106 

INITIALIZE 

TANT 

107 

FN  = V**2/(9.8*ELL> 

TANT 

108 

FNR  = i.O/FN 

TANT 

109 

IF  (.NOT.  IPLOT)  GO  TO  5 

TANT 

110 

REWINO  10 

TANT 

111 

WRITE  (6*1800) 

TANT 

112 

ENTER  PARTICLE  L COP 

TANT 

113 

5 

CALL  PART  CL (V, ELL*RHO»VIS»TEMP*  OI AN 

• OLR, 

RHOP»VT,RF»PT 

, ACC, NFIN) 

TANT 

114 

IF ( NFIN  .EQ.  0)  GO  TC  6 

TANT 

115 

IF ( .NOT.  I PLOT)  RETURN 

TANT 

116 

ENOFILE  10 

TANT 

117 

REWINO  10 

TANT 

118 

RETURN 

TANT 

119 

6 

COF  = PT*YT*FN 

TANT 

120 

R = RF  * VT 

TANT 

121 

MFIN*0 

TANT 

122 

SET  INITIAL  COORDINATES 

TANT 

123 

19 

OFINE^SIGNAL 

TANT 

124 

IT=1 

TANT 

125 

KT  * 0 

TANT 

126 

20 

CALL  STRPNT (XI3*  YI3,  ZI3,  DEL,  OCORS,  OFINE,  NFIN) 

TANT 

127 

IF ( MFIN  .GT.  01  GO  TC  5 

TANT 

128 

K;T=KT  + 1 

TANT 

129 

IF  ( KT  .GT.  KTLIM)  GO  TO  60 

TANT 

130 

XPSTAR=XFI  NAL 

TANT 

131 

XPP  = XFINAL 

TANT 

132 

ALPHAR=0.0 

TANT 

133 

BET  AR=  0.0 

TANT 

134 

YP  = 0.0 

TANT 

135 

ZP  = 0.0 

TANT 

136 

WRI TE (6  *1600)  XI 3 » YI3,  ZI3,  KT 

TANT 

137 

CALL  TRAJECT 

TANT 

138 

PRINT  TRAJECTORY  OUTPUT 

TANT 

139 

REWINO  9 

TANT 

140 

WRITE  (6,8700) 

TANT 

1 41 

00  30  IWRITE  = 1* IREC 

TANT 

142 

READ  (9)NEVAL,KSTEP,  T,  P(l),  P(3), 

P(  5) 

, F (2)  , P(4) » 

P ( 6)  , Y X, 

YY,  TANT 

143 

2 YZ,  H*  R, AC 

TANT 

144 

WRITE  ( 6 ,8600)  KSTEP,  T,  P(l),  PC3)  , 

P(5) 

* FC2),  P ( 4)  * 

PC 6)  ,VX* 

V Y»  T ANT 

145 

2 V Z,  H*  R*  AC,  NEVAL 

TANT 

146 

30 

CONTINUE 

TANT 

14T 

CHECK  FOR  IMPACTION  AND  AOJUST  DEL 

IF  NECESSARY 

TANT 

148 

IF ( IT  . LE.  0)  GO  TO  40 

TANT 

149 

IF (DEL  .EQ.  -OFINE)  GO  TO  50 

TAhT 

150 

IF (DEL  .NE.  -OCORS)  GO  TO  20 

TANV 

151 

OEL=OFINE 

TANT 

152 

WRITE (6  ,3000) 

TANT 

153 

GO  TO  20 

TANT 

154 

IMPACTION  HAS  OCCURED 

TANT 

155 

40 

IT  si 

TANT 

156 

IF (DEL  .EQ.  -OCORS)  GO  TO  20 

TANT 

157 

IF ( DEL  .EQ.  OFINE)  W FITE ( 6,4000 ) 

TANT 

158 

KT=KT-2 

TANT 

159 

OELs-OEL 

TANT 

160 

GO  TO  20 

TANT 

iei 

53 

IFl  .NOT.  I PLOT)  GO  TO  10 

TANT 

162 

IF  (I PLOT)  WRITE  (10)  IFLT * (XPL3T( L> , YFLCT(L) , ZPLOT (L) ,L=1 ,1 FLT)  TANT 

163 

GO  TO  10 

TANT 

164 

6fl 


WRITE<6,2000)  ITLIM 
GO  TO  10 


1000 

1100 

1200 

1300 


TANT 

TANT 

TANT 

TANT 

TANT 

TANT 


1400 


1 500 
1600 


leoo 

2000 


FORMAT ( 18A4*  7X,L1> 

FORMAT ( 8F10 • 5) 

FORMAT C lHlt  5X,  32HT ANGENT  TRAJECTORY  COOE  RUN  ID  -/  8X,  18  A4> 

FORMAT  C 1H0 , 5X,  21HPHYSICAL  INPUT  DATA  -/7X.10HAIR  SPEEO-1PE 13. 6 » TANT 

1 3X » 37HCH ARACTERISTIC  CIMENSION  OF  THE  eG0Y=lPE13.6/  7X , 3 5HOENS ITTANT 

2 Y AND  TEMPERATURE  OF  AIR  ARE  1PE13.6,  5H  ANO  1PE13.6,2AH  AIR  VISTANT 

3C0SITY  IS  1PE13.6)  TANT 

FORMAT*  1H0,  5X,  2 9H NUMERICAL  INTEGRATOR  INPUTS  -/  7X,  10H TIME  STETANT 
1P=1PE11»4»  3X,  18HMINIMUM  TIME  STEP  = 1PE11.4,  3X,  2CHPRINT  TIME  IKTTANT 
2ERVAL  = J.FEli  ,4,  3X,  24HX  COORC.  OF  FINAL  FLANE=1PEU.  41  TANT 

FORMAT  * 1H0,  6X,  33HL0CAL  ERROR  TOLERANCES  FOR  OVOQ  3 ( 1PE14.4 ) ) TANT 
FORMAT  J//1H0,  38H-*  * * * INITIAL  COORDINATES  X=1PE12.5,  TANT 

1 3 X * 2HY=1PE12.5,  3X,  2HZ=1PE12.5,  3X,  21HFOR  TRAJECTORY  NUMBER  * TANT 

2 14)  TANT 

FORMAT*  ///6X,  51H  IRA JECTORY  OATA  ARE  WRITTEN  ON  UNIT  10  FOR  PLOT! TANT 

1ING//)  TANT 

FORMA  T ( ///5X»  14,  66H  TRAJECTORIES  HAVE  BEEN  COMPUTED,  GIVE  UP  ATANT 


2 603 

3 CO  0 


8 600 
8 700 
40  00 


1 NO  TRY  THE  NEXT  CASE.//) 

FORMAT  * A4) 

FORMAT*  //128HD*  ****♦**♦***♦♦♦**♦♦♦**** 

1 SWITCH  TO  FINE  STEPSIZE  **♦**♦♦  + **♦****♦♦** 

Z + * + * */) 

FORMAT ( 16,  10*1X,1PE11.4)/10X,  24H=iPE11.4t4H  R=1PE11.4,  5H 

11PE11.4,  8H  NEVAL-I6) 

FORMAT*  /6H  OKSTEP  , 7X , 1HT,  11X,  1HX,  11X,  1HY,  HX,  1HZ,  lOX, 

1 3HVPX,  9X , 3HVPY,  9X,  3HVPZ,  10X,  2HVX,  1UX,  2HVY,  10X,  2HVZ) 
FORMAT*  ///  129H  **♦♦*♦•♦*******♦*♦****♦ 

1 TANGENT  TRAJECTORY  IS  AS  FOLLOWS  ♦♦♦*♦♦******  * * ♦ 


TANT 

TANT 

* *TANT 

* * TANT 

TANT 

AC=TANT 

TANT 

TANT 

TANT 

* * TANT 
♦ TANT 


2#  * * * * # »/) 
ENO 


TANT 

TANT 


165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

1 77 

178 

179 

180 
181 
182 
ie3 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 


168 
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♦DECK, STRPNT 

SUBROUTINE  STRPNT ( X,  Y,  Z,  O,  OCDRS,  OFINE,  Ml 

e 

C|  H.  G.  NORMENT,  ATMCSFHERIC  SCIENCE  ASSOCIATES  - OECEMBER  197  « 


C 

C 

Ci 

Ci 

Ci 

c 

C! 


CALLEO  BY  TANTRA  TC  DEFINE  TRAJECTORY  STARTING  COORDINATES  FOR 
DETERMINATION  OF  TANGENT  TRAJECTORIES  OF  PARTICLES  TO  A THREE- 
DIMENSIONAL  BODY.  THIS  VERSION  STARTS  ALL  TRAJECTORIES  ON  A 
POINTS  ARE  STEPP EO  ALONG  THE  LINE  TOWARD  THE  BODY  USING 
FIRST  A COARSE  STEP  SIZE,  AND  AFTER  IMPACTION  AND  BACK-UP  A FINE 
STEP  SIZE  UNTIL  IMPACTION  REOCCURS* 


Cl 


Cl 

c 

Cl 

c 

c 

c 

c 

c 

c 

c 

c 

c 


GLOSSARY 

COS  A,  CO  SB,  COS  G DIRECTION  COSINES  OF  THE  STARTING  POINT  LINE 
D CURRENT  VALUE  OF  STEP  SIZE  USED  IN  INCREMENTING  INITIAL 

COORDINATES  TOKAFD  THE  BODY 

DCORS  COARSE  VALUE  OF  D USED  -OR  ROUGH  DETERMINATION  OF 
TANGENT  TRAJECTORY 

OFINE  FINE  VALUE  OF  0 USED  FOR  PRECISE  DETERMINATION  OF 
TANGENT  TRAJECTORY 

X ,  Y , Z STARTING  COORDINATES 

XI,  Y1«Z1  POINT  USED,  ALONG  WITH  FIRST  STARTING  POINT,  TO  DEFINE 

THE  STARTING  POINT  LINE 


DATA  SIGNAL/999999./ 

IF(OFINE  *LT.  SIGNAL)  GO  TO  200 

COPY  IN  STEP  SIZE  INCREMENTS  AND  INITIALIZE  FOR  A NEW  TANGENT  LOCATION 
REAO  ( 5,  1100 1 DCORS,  CFI  N£ 


STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 

STRP 


CHECK  IF  TRAJECTORIES  FOR  THIS  PARTICLE  SIZE  ARE  FINISHEO  STRP 

M=0  STRP 

IF ( ABS ( DCORS)  ♦ ABS(DFINE)  *NE.  0.0)  GO  TO  100  STRP 

M=1  STRP 

RETURN  STRP 

COPY  IN  A PAIR  OF  POINT  COORDINATES  TO  DEFINE  THE  STARTING  POINT  LINE.  STRP 
C THE  FIRST  COORDINATES  SPECIFY  THE  START  POINT  FOR  THE  FIRST  STRP 

C TRAJECTORY,  AND  THE  SECOND  COORDINATES  ARE  FOR  ANY  POINT  ON  THE  STRP 

C LINE  WHICH  IS  CLOSER  TOWARD  THE  BDDY.  STRP 

ICO  READ ( 5 , 1130 ) X,  Y,  Z,  XI,  Yl,  Z1  STRP 

COMPUTE  DIRECTION  COSINES  OF  THE  STARTING  POINT  LINE  STRP 

R = SQRT ( C Xl-X) **Z  * (Yl-Y) **2  ♦ (Zl-Z)*»2)  STRP 

COSA  = IXl-XI/R  STRP 

COSB  = (Yl-Y) /R  STRP 

COSG  = (Zl-ZI/R  - STRP 

0 = DCORS  STRP 

WRITEI6, 10001  X,  Y,  Z,  XI, , Yl,  Z1  STRP 

WRITEC6, 12001  COSA,  COSB,  COSG  STRP 

WRITE  (6, 1300)  DCORS,  OFINE  STRP 

RETURN  STRP 

COMPUTE  NEXT  SET  OF  STARTING  COORDINATES  STRP 

200  X - X * D*COSA  STRP 

Y = Y ♦ D*COSB  STRP 

Z - Z * 0»C0SG  STRP 

RETURN  STRP 

1000  FORMAT (/////5X.89HTRAJECT0RIES  ARE  TO  BEGIN  ALONG  A LINE  DEFINED  BSTRP 

1Y  THE  POINTS  (X1,Y1,Z1,)  ANO  (X2,Y2,Z2)  -/  9X,2H(  ,3(1P£15.5>,  STRP 

2 13 H ) ANO  < , 3(1PEJ5.5),  2H  ))  STRP 

1100  FORMAT (3F1C.0)  STRP 

1200  F0RMAT(5X,  60 H WITH  DIRECTION  COSINES  - (COS (ALPHA) ,C0S(8ETA) ,COS( GASTRP 
1MMA)  ) - 3(  1PE15.  5) / ) STRP 


1300  FORMAT  ( 5X , 49HSTA  RTING  POINT  INCREMENTS  ARE  - COARSE  INCREMENT*  1PSTRP 


1 

2 
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4 

5 

6 
7 

a 

9 

10 

11 
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13 

14 

15 

16 

17 

18 
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23 
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32 

33 

34 

35 

36 

37 

38 

39 
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44 

45 

46 

47 

48 
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50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
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1E12  *5  * 3X,  15HFINE  INCREMENT*1PE12. 5) 
END 


STRP 

STRP 


♦DECK, FALWAT 

SUBROUTINE 


FALWATCO,  RHO,  ETA,  T,  P,  V) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

G 

c 

G 

C 

c 

c 

c 
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H,  6,  NORMENT,  ATMOSPHERIC  SCIENCE  ASSOCIATES  - DECEMBER  1979 


COMPUTES  STILL-AIR,  TERMINAL  SETTLING  SPEEO 
ACCORDING  TO  THE  ECUATIONS  OF  BEARD  (JAS  33, 


OF  HATER  OROPS 
852  (1976)  ) 


GLOSSARY  (SI  UNITS) 


C 

CDRR 

D 

ETA 

P 

PN 

RHO 

RHOP 

SIG 

T 

V 


4.0*G/3.0  WHERE  S IS  ACCELERATION  OF  GRAVITY  (9,81 

DAVIES  NUMBER 

DROP  OIAMETER 

VISCOSITY 

PRESSURE 

PHYSICAL  PROFERTY  NUMBER  TO  1/6  POWER 

FLUID  DENSITY 

WATER  DENSITY 

WATER  SURFACE  TENSION 

TEMPERATURE 

SETTLING  SPEED 


DATA  C/13.066667/,  RHOP/iOOO./,  EX/0 . 1 6666666667/ 

C 

COMPUTE  DAVIES  NUMBER 

CDRR  = C*(RMOP-RHO)*RHO*C**3/ETA**2 
dHECK  DAVIES  NUMBER  VALUE  FOR  ROUTING 

IFtCDRR  .GT.  0,3261)  IF ( CORR-58 249 • I 100*100,200 
COMPUTE  VIA  STOKES-LAW  ECUATION 

V = CDRR*ETA/ (24.0*RHO*D) 

GO  TO  300 

COMPUTE  VIA  BEARDS  EQUATION  FOR  MEOIUM  SIZE  OROPS 
100  Y = ALOG(CDRR) 

V = ETA/(RH0*D)*EXP(-3.1  (657  ♦ Y*(0. 992696  ♦ Y*( -0, 153193E-2 
1+YM-0.997G59E-3  ♦ Y * (-0 • 57 8878E-3  ♦ V*  (0 .855176E-4 
2-Y*0.327815£-5)>  )))) 

GO  TO  3 00 

COMPETE  VIA  8EARDS  EQUATION  FOR  LARGE  DROPS 
200  SIG  = 7.570E-2  - 1.535E-4MT  - 273.0) 

PN  = (SIG**3  * RHO**2/( 9,8  * (RHOP- RHO)  * ETA**4))**EX 

V = ALOG(PN*C*(RHOP-  RHC)  * 0**2/SIGJ 

V = ET  A4PN/  (RHO*  C)  * E>P(-5. 09015  ♦ Y*«5,23778  ♦ Y*(-2. 04914  ♦ 
1 Y* (0 ,475294  ♦ Y*( -0 .0542819  ♦ Y*9 • 00 236449) )>> ) 

RETURN 

CORRECT  SETTLING  SPEEO  FOR  SLI  f 
300  V = V*C1.0  ♦ 54.088*ETA*SQRT(T)/P/D) 

RETURN  - * 

ENO 


FALW 

14 

FALW 

2 

FALW 

3 

FALW 

4 

FALW 

5 i 

FALW 

6 i 

FALW 

7 ! 

FALW 

8 ! 

FALW 

9 S 

FALW 

10  1 

FALW 

11  < 

FALW 

12 

FALW 

13  .j 

FALW 

j 

FALW 

15  j 

FALW 

16  ! 

FALW 

17  - 

FALW 

18  1 

FALW 

19  5 

FALW 

20  5 

FALW 

21 

FALW 

22 

FALW 

23 

FALW 

24 

FALW 

25 

FALW 

26 

FALW 

27 

FALW 

28 

FALW 

29 

FALW 

30 

FALW 

31 

FALW 

32 

FALW 

33 

FALW 

34 

FALW 

35 

FALWl 

36 

FALW 

37 

FALW 

38 

FALW 

39 

FALW 

40 

FALW 

41 

FALW 

42 

FALW 

43 

FALW 

44 

FALW 

45 

FALW 

46  j 

FALW 

47  3 

M 
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*DECK, WCDRR 

WCDR 

1 

FUNCTION  WCDRR 1 R ) 

WCDR 

2 

C 

WCDR 

3 

C 

GIVEN  THE  REYNOLDS  NUMBER,  R,  THi  PRODUCT  OF  THE  DRAG 

C OEFFICIENT  WCDR 

4 

C 

S AND  THE  THE  SQUARE  OF  THE  REYNOLDS  NUMBER  IS  RETURNEO 

FOR  A WATER 

WCDR 

5 1 

C 

OROP  IN  AIR.  THIS  FUNCTION  SHOULD  BE  USED  ONLY  FOR  R 

•GT.  200. 

WCOR 

6 

c 

( SEE  BEARO  AND  PRUPPAGHER,  JAS  25,  10  66(1969)  I • 

WCDR 

7 

c 

THE  DATA  OF  GUNN  ANO  KINZER,  J.  METEOR.  6,  24311949), 

ARE  USEO. 

WCOR 

8 1 

c 

WCDR 

9 '! 

IF ( R .GT.  200.  ) GO  TO  100 

WCDR 

10 

WCDRR  = -1.0E2C 

WCDR 

11 

RETURN 

WCDR 

12  1 

100  ALGR  = ALOGIO ( R ) 

WCOR 

13 

WCDRR  = 10. 0**1  21.38446  ♦ ALGR  * ! -26.81245  ♦ ALGR  * 

( 

WCDR 

14  ! 

1 15.83269  ♦ ALGR  * ( -4.152207  ♦ ALGR  * 0.3672735  )ll) 

WCOR 

15  j 

RETURN 

WCOR 

16 

ENO 

« 

WCDR 

17 

i 

*OECK.iCDRR 

CDRR 

1 ! 

FUNCTION  CORR(R) 

CORR 

2 j 

C 

CDRR 

3 j 

C 

GIVEN  THE  REYNOLOS  NUMBER,  R,  THE  PRODUCT  OF  THE  DRAG 

COEFFICIENT 

CDRR 

4 : 

C 

AND  THE  SQUARE  OF  R IS  RETURNED  FDR  A SPHERE.  SEE  NCRMENT , TO-B 

CORR 

5 

C 

64-102  (1  NOV.  1964). 

CORR 

6 

C 

CORR 

7 

IF ( R .GT.  0.05)  IF«R-3.)  100,100,200 

CORR 

8 

CDRR  = 24.  * R 

CORR 

9 

RETURN 

CDRR 

10 

ICO  CDRR  = R*l  24.167  + R*(  3.254  - R*Q  • 23  564)  ) 

CORR 

11 

RETURN 

CORR 

12 

200  IF(R  .GT.  330.)  GO  TO  300 

CORR 

13 

CORR  = -28.339  ♦ R* 1 38.969  ♦ R * CO. 73204  - R * 0.56084E-3)) 

CDRR 

14 

RETURN 

CORR 

15 

300  CORR  = R * ( 93.462  ♦ F * 0.37576) 

CORR 

16 

RETURN  V , 

CORR 

17 

END  'i 

CORR 

18 
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♦DECK*  OVDQ  OVDQ 

SUBROUTINE  OVDQ(NEQ,T,Y,F,KO, EPS, IFLAG, H,HMIN,  OVOQ 

* HMAX,TPRINT»TFI NAL,  MXSTEP, KSTEP, KEMAX , EMAX,  OVOQ 

¥ KQ»YN,OT, NEVAL*  NG »NGE, N STOP»G » GT>  OVOQ 

I OVOQ 

OVOQ 

VARIABLE  OROER  INTEGRATION  SUBROUTINE  OVOQ 

FOR  THE  SOLUTION  OF  ORDINARY  DIFFERENTIAL  EQUATIONS.  OVOQ 

OVOQ 

! ANALYSIS  AND  COOING  BY  FREO  T.  KRDGH,  JET  PROPULSION  OVOQ 

LABORATORY®  PASADENA*  CALIF.  APRIL  1*  1969.  OVOQ 

MODIFIED  BY  CLEVE  HOLER®  UNIV.  NEW  MEXICO,  OCT.  1972  OVOQ 

i OVOQ 

VARIABLES  IN  THE  CALLING  SEQUENCE  HAVE  THE  FOLLOWING  OVOQ 

DIMENSIONS  WHERE  N=NEQ  AND  K=KO (l)frKOf 2) ♦. • •♦KOCN)  OVDQ 

Y(K>,F(N),KD(N),£PS(N)y<Q(N)  ,YN(K)  , OVOQ 

S DT( 20®  N) ,G(NG) *GT (NG)  OVOQ 

OVOQ 

PARAMETERS  WHICH  MUST  BE  ASSIGNED  VALUES  BEFORE  THE  INITIAL  OVOQ 

ENTRY  ARE  IFLAG*  NG,  NEC,  T,  Y,  <0,  H,  HMIN*  HM AX,  OVOQ 

| TPRINT,  TfINAL,  MXSTSP,  AND  (USUALLY)  EPS.  OVOQ 

i OVOQ 

THE  USER  MUST  ALSO  PFOVIOE  CODE  WHICH  ASSIGNS  OVDQ 

VALUES  TO  F (ONCE  PER  STEP  INITIALLY,  AND  TWICE  PER  STEP  OVOQ 

AFTER.  GETTING  STARTEO)  AND  EPS  (EITHER  INITIALLY,  OR  DURING  OVOQ 

THE  INTEGRATION  IF  A RELATIVE  ERROR  TEST  IS  USED).  OVDQ 

OVOQ 

THE  FOLLOWING  PARAMETERS  GIVE  AOQITIONAL  INFORMATION  ABOUT  THE  OVOQ 
INTEGRATION  AND  ARE  USED  FOR  STORAGE.  THEY  SHOULD  NOT  BE  OVOQ 

' CHANGE 0 BY  THE  USER.  IFLAG , KST  EP, KEM A X,  EM  A X » K Q, YN , AND  OT.  OVOQ 

i OVDQ 

i : OVDQ 

! OVOQ 

THE  USAGE  OF  THE  VARIABLES  IS  GIVEN  BELOW.  DVOQ 

! OVOQ 

NEQ=NUMBER  OF  EQUATIONS  (INPUT*  DVOQ 

! OVOQ 

T=INOEPENDENT  VARIABLE  (INITIAL  VALUE  SUPPLIED  BY  THE  USER)  OVDQ 

OVOQ 

iY( J)=CURRENT  VALUE  OF  A CEPENOENT  VARIABLE  OR  DERIVATIVE.  OVDQ 

THE  INITIAL  VALUE  MUST  BE  SPECIFIED  BY  THE  USER  BEFORE  DVOQ 

THE  FIRST  ENTRY.  THE  DIMENSION  OF  Y MUST  BE  OVOQ 

AT  LEAST  AS  GREAT  AS  THE  SUM  OF  THE  ORDERS  OF  OVOQ 


1 

2 

3 

4 

5 

6 
7 

a 

9 

10 

11 

12 

13 

14 

15 
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23 
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THE  DIFFERENTIAL  EQUATIONS  WHICH  ARE  BEING 
INTEGRATED. 

THE  J-TH  DERIVATIVE  OF  THE  I-TH  DEPENDENT  VARIABLE  IS 
STORED  IN  Y(K+J*1)  WHERE  K=KD  C II  ♦ . • .♦KO  <1-1 ) , 

1*1* » NEQ*  J=3» ••• , KD(I)-1  . 

CFOR  EXAHPLE,  FOR  THE  SYSTEM  F(1)=UPP,  F(2)=VPP,  WHERE  P 
DENOTES  A PRIME*  Y(1)=U,  Yf  2)  =U»,  Y(3)*V,  Y(4)=VP.) 

FlIlsKD CD-TH  DERIVATIVE  OF  THE  I-TH  COMPONENT  WITH  RESPECT 
TO.  T*  1=1,2, ....  f^EQ.  THE  USER  MJST  PROVIOE 
THE  CODE  WHICH  CONFUTES  F GIVEN  Y AND  T. 

KD(I)=THE  ORDER  OF  THE  I-TH  DIFFERENTIAL  EQUATION  IN 
THE  SYSTEM.  KD(I)  MUST  BE  LESS  THAN  OR  EQUAL  TO  4. 

EPS  Cl)  IS  A PARAMETER  USED  TO  CONTROL  THE  LOCAL  ERROR. 

THE  ESTIMATED  LOCAL  ERROR  IS  KEPT  LESS  THAN  EPS  Cl)  IN 
THE  CKD  CI)-1) -ST  DERIVATIVE  OF  THE  I-TH  COMPONENT.  THUS 
FOR  EQUATIONS  WITH  ORDER  GREATER  THAN  ONE,  THE  ERROR 
IN  A DERIVATIVE  IS  ESTIMATEO.  IN  THIS  CASE  THE  VALUE  OF 
EPS <I)  REQUIREO  TC  OBTAIN  A GIVEN  ACCURACY  IN  THE  DEPENDENT 
VARIABLE  DEPENDS  ON  THE  SCALING. 

IF  ONE  WANTS  A RELATIVE  ERROR  TEST  THEN  ONE  SHOULD  SET  EPSCI) 
WHEN  IFLAG=1  • 

IF  EPSC I ) = 0 AND  HMAX. NE. 0 * I FLAG  IS  SET  EQUAL  8. 

IF  EFSCI)=0  AND  HMAX=C,  NO  ERROR  TESTS  ARE  PERFORMED 
AND  THE  OROERCS)  AND  STEPSIZE  ARE  NOT  CHANGED. 

THIS  OPTION  SHCULC  NOT  BE  USED  IF  KQCI)=1  FOR  ANY  I. 

IFLAG  IS  USEO  FOR  COMMUNICATION  BETWEEN  THE  INTEGRATOR 

AND  THE  CROGRAM  WHICH  CALLS  IT.  TO  BEGIN  THE  INTEGRATION  THE 
USER  SHOULD  SET  I FLAG  = 0 AND  CALL  DVDQ.  THIS  WILL  CAUSE 
INITIALIZATION  OF  INTERNAL  VARIABLES  AND  A RETURN  WITH 
IFLAG=1.  AFTER  THIS  INITIAL  EWTRY  THE  VALUE  OF  IFLAG 
SHOULD  NOT  BE  CHANGED  BY  THE  USER. 

THE  FOLLOWING  VALUES  OF  IFLAG  HAVE  THE  FOLLOWING  MEANINGS. 

*0  USED  TC  INITIALIZE  THE  INTEGRATOR. 

=1  THE  VALUE  OF  Y FOR  THE  CURRENT  STEP  HAS  BEEN 

PREDICTED.  THE  USER  SHOULD  COMPUTE  F ANO  CALL  DVDQ  AGAIN. 

IF  A RELATIVE  ERROR  TEST  IS  USED  THE  NEW  VALUE 
OF  EPS  SHOULO  ALSO  BE  COMPUTED  HERE. 

=2  THE  VALUE  OF  Y FOR  THE  CURRENT  STEP  HAS  BEEN 

CORRECTED.  THE  USER  SHOULD  COMPUTE  F AND  CALL  DVDQ. 

=3  AN  OUTPUT  POINT  HAS  BEEN  REACHED  C SEE  DESCRIPTION 
OF  T PR  I NT ) , PRINT  RESULTS  AND  CALL  DVDQ. 

=4  T=TFINAL  IF  DVDQ  IS  CALLED  WITH  T=TFI NAL  ANO 

IFLAG=4,  IFLAG  IS  SET  EQUAL  T3  8.  IF  THE  VALUE  OF 
TFINAL  IS  CHANGEC  THE  INTEGRATION  WILL  CONTINUE. 

=5  KSTEP=KSOUT  (SEE  THE  DESCRIPTION  OF  MXSTEP). 

=6  EMAX.GT •• x ANO  IT  APPEARS  TO  THE  SUBROUTINE  THAT 

REOUCING  H WILL  NOT  HELP  BECAJSE  OF  ROUND-  OFF  ERROR. 

IF  THIS  OCCURS  A LARGER  VALUE  OF  EPS (KEM AX ) SHOULO 
PROBABLY  BE  USEO.  IF  EPS(KEMAX)  IS  NOT  INCREASED,  TOO 
SMALL  A STEPSIZE  IS  LIABLE  TO  BE  USEO.  (WE  HAVE  FOUND  THAT 
REPLACING  EPS ( KE MAX)  WITH  3 2. *EMAX*EPS ( KEMAX ) WORKS  WELL.) 
INCREASING  EPS  IN  THIS  WAY  WILL  NOT  OEGRAOE  THE  ACCURACY, 
HOWEVER  IF  THE  NATURE  OF  THE  PROBLEM  CHANGES  IT  MAY  PAY  TO 
USE  A SMALLER  VALUE  OF  EPS  LATER  IN  THE  INTEGRATION. 

= 7 ABS(H).LT.HMIN.  TC  CONTINUE  WITH  THE  CURRENT 
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VALUE  OF  H,  SET  HNIN.LE.  ABS  (H)  AND  CALL  CVDQ. 

IF  THE  INTEGRATOR  HAS  JUST  HALVED  H ONE  MAY  CONTINUE 
HITH  TWICE  THE  STEPSIZE  BY  SIMPLY  CALLING  OVOQ.  (SUCH 
AN  ACTION  IS  RISKY  WITHOUT  A CAREFUL  ANALYSIS  OF  THE 
SITUATION.)  IF  THE  STEPSIZE  HAS  NOT  JUST  BEEN  HALVED 
(ABS(H)  .LT.HMIN  HAY  BE  DUE  TO  THE  USER  INCREASING  THE 
VALUE  OF  HNIN  OR  TO  HAVING  TOC  SMALL  AN  H AT  THE  END 
OF  THE  STARTING  PHASE.)  THE  INTEGRATION  WILL  CONTINUE 
WITH  THE  CURRENT  VALUE  OF  H AND  A RETURN  TO  THE  USER  WITH 
I FLAG* 7 WILL  BE  HADE  ON  EVERY  STEP  UNTIL  ABS (H).GE.HWIN. 

=8  ILLEGAL  PARAMETER  IN  THE  CALLING  SEQUENCE.  IF  DVOQ 
IS  CALLED  WITH  IFLAG*8  THE  PROGRAM  IS  STOPPED. 

HsCURRE NT  VALUE  OF  THE  STEPSIZE*  IN  SELECTING  THE  INITIAL 
VALUE  FOR  H,  THE  USER  SHOULD  RENEM3ER  THE  FOLLOWING— 

1.  THE  INTEGRATOR  IS  CAPABLE  OF  CHANGING  H QUITE  QUICKLY  ANG 
THUS  THE  INITIAL  CHOICE  IS  NOT  CRITICAL. 

2.  IF  IT  OOES  NOT  LEAD  TO  PROBLEMS  IN  COMPUTING  THE  DERIVATIVES 
CE.G.  BECAUSE  OF  OVERFLOW  OR  TRYING  TO  EXTRACT  THE  SQUARE. 
ROOT  OF  A NEGATIVE  NUMBER),  IT  IS  BETTER  TO  CHOOSE  H MUCH 
TOO  LARGE  THAN  MUCH  TOO  SMALL. 

3.  IF  H*TPRINT.LE.O  INITIALLY,  AN  IMMEDIATE  RETURN  IS  MAOE 
WITH  IFLAG=8.  THE  SIGN  OF  H IS  WHAT  DETERMINES  THE 
DIRECTION  OF  INTEGRATION. 

4.  IF  TPRI NT  = H* ( 2** K ) K A NCNNEGATIVE  INTEGER  THEN  OUTPUT 
VALUES  WILL  BE  OBTAINEO  WITHOUT  DOING  AN  INTERPOLATION. 

HMIN  AFTER  GETTING  STARTED,  AND  WHENEVER  H 

IS  HALVEO,  ABS(H)  IS  COMPARED  WITH  HMIN. 

IF  ABSCH).LT.HMIh  CONTROL  IS  RETURNED  TO 
THE  USER  WITH  IFLAG=7. 

HMAX  THE  STEPSIZE  IS  NCT  DOUBLED  IF 

001 NG  SO  WOULD  MAKE  ABS (H) .GT .HMAX 

TPRINT  ENABLES  THE  USER  TO  SPECIFY  THE  FCINTS  WHERE 

OUTPUT  IS  DESIREO.  LET  T0UT=TPRINT  ♦ THE  VALUE  OF  T THE  LAST 
TIME  CONTROL  WAS  RETURNED  TO  THE  USER  WITH  IFL AG-3  • (INITIALLY 
TOUT= THE  INITIAL  VALUE  OF  T.)  CONTROL  IS  RETURNED  TO  THE 
i USER  WITH  IFLAG=3  WHENEVER  T=TOUT.  IF  TOUT  OOES  NOT  FALL 
ON  AN  INTEGRATI  (N  STEP,  OUTPUT  VALUES  ARE  OBTAINED  BY 
INTERPOLATION  ON  THE  FIRST  STEP  THAT  (T-YOUT)* H.GT .0 . 
INTERPOLATED  VALUES  FOR  BOTH  Y AND  F ARE  COMPUTEO. 

(NOTE  THAT  A RETURN  WI 1H  IFLAG=3  IS  ALWAYS  MAOE 
BEFORE  TAKING  THE  FIRST  STEP.) 

TFINAL  CONTROL  IS  RETURNED  TO  THE  USER  WITH  IFLAG=4  WHEN 
T REACHES  TFINAL.  IF  TFINAL  OOES  NOT  FALL  CN  AN  INTEGRATION 
STEP  VALUES  AT  TFINAL  ARE  OBT AIMED  BY  EXTRAPOLATION. 

MXSTEP  ON  THE  INITIAL  ENTRY,  AND  ON  ENTRIES 
WITH  2.LT. IFLAG.LT, 6 KSOUT  IS  SET  EQUAL  TO 
KSTEP ♦MXSTEP.  AT  THE  ENO  OF  EACH  STEP  KSTEP  IS  INCREMENTED 
AND  COMP  A F*0  WITH  KSOUl.  IF  KSTEP.  GE. KSOUT  CONTROL  JS 
RETURNED  TO  THE  USER  WITH  IFLAG=5.  (THUS  IF  TPRINT  IS 
SUFFICIENTLY  LARGE,  CONTROL  HILL  BE  RETURNEO  TO  THE  USER 
WITH  IFL AG=5  EVERY  MXSTEP  STEPS.) 

KSTEPsNUMBER  OF  INTEGRATION  STEPS  TAKEN  (COMPUTED 
BY  THE  INTEGRATOR.) 
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KEMAX=INOEX  OF  COMPONENT  RESPONSIBLE  FOR  THE 
VALUE  OF  EMAX  ISEE  BELOW)  . 

ENAX=LARGEST  VALUE  IN  ANY  COMPONENT  OF  (ESTIMATED  ERROR) /EPS  (I I 
ORDINARILY  THE  STEFSIZE  IS  HALVED  IF  EKAX.GT..1.  WITH  A 
RECENT  HISTORY  OF  LOCAL  ROUNO-OFF  PROBLEMS  VALUES  OF  ENAX  AS 
LARGE  AS  1 ARE  PERMITTED.  THE  STEPSIZE  IS  NOT  HALVEO  ON  ANY 
STEP  THAT  ROUND  OFF  ERROR  APPEARS  TO  BE  LIMITING  THE  PRECISION. 

KQCI)  = HIGHEST  ORDER  DIFFERENCE  USED  IN  INTEGRATING 
THE  I-TH  EQUATION.  (COMPUTEO  BY  THE  INTEGRATOR) 

YN=A  VECTOR  WITH  THE  DIMENSION  OF  Y USED  TO  STORE 
THE  VALUE  OF  Y AT  THE  END  OF  EACH  INTEGRATION  STEP. 

DT= AN  ARRAY  WITH  DIMENSION  DTC20.NEQ)  USED  TO 
STORE  THE  DIFFERENCE  TABLE. 

NEVALsNUMBER  OF  TIMES  F IS  EVALUATED  (=  NUMBER  OF 

RETURNS  MADE  WITH  IFLA C=1  OR  2).  (COMPUTED  BY  OVOQ. ) 

NG  MUST  BE  SET  = 0 BY  THE  USER  IF  THE  GSTOP  FEATURE  IS 
NOT  USEO.  OTHERWISE  SEE  BELOW. 


A GSTOP  IS  OEFINED  AS  A RETURN  WHICH  IS  MADE  TO  THE  USER  WHEN  A I 
USER  SPECIFIED  FUNCTION  G PASSES  THROUGH  ZERC.  THE  USER  MAY 
SPECIFY  ANY  NUM8ER  OF  FUNCTIONS  G OF  TWO  TYPES.  ZEROS  OF  THE  FIRST i 
TYPE  ARE  LOCATEO  WITHOUT  REQUIRING  A DERIVATIVE  EVALUATION  I 

BEYOND  THE  ZERO.  THIS  TYPE  OF  GSTOP  REQUIRES  THAT  G BE  EVALUATED  I 
BEFORE  EACH  DERIVATIVE  EVALUATION.  ZEROS  OF  THE  SECONO  TYPE  ARE 
LOCATEO  USING  INTERPOLATION,  WHICH  IS  MORE  ACCURATE  THAN  THE  I 

EXTRAPOLATION  USEO  IN  THE  PRECEDING  CASE  ANO  ONLY  REQUIRES  ONE  I 

EVALUATION  OF  G PER  STEP.  THUS  ONE  SHOULO  USE  THE  SECONO  TYPE  OF  I 
GSTOP  IF  POSSIBLE.  USERS  NOT  USING  THE  GSTOP  FEATURE  NEEO  READ  i 
NO  FURTHER.  I 

I 

THE  GSTOP  FEATURE  IS  INVCKEO  BY  USING  A NONZERO  VALUE  OF  NG  . I 
IT  IS  TURNED  OFF  BY  SETTING  NG=0  . IT  IS  NOT  NECESSARY  TO  ! 

HAKE  SEPARATE  CALLS  TO  DVDQ  TO  00  THIS.  i 

■ 1 

NG=  THE  NUMBER  OF  COMPONENTS  IN  G TO  BE  EXAMINEO  FOR  A ZERO.  i 

NGE-THE  NUMBER  CF  CO^ONENTS  OF  G THAT  MUST  BE  EXAMINED  FOR 
A ZERO  BEFORE  COMPUTING  THE  DERIVATIVES  (FIRST  TYPE  OF 
GSTOP).  IF  NGE.LT.C  OR  NGE.3T.NG,  IFLAG  IS  SET 
EQUAL  8 ANO  AN  IMMEDIATE  RETURN  IS  MAOE.  IF  NGE.GT.O, 
G(1),G(2)«...,G  (NGE ) ARE  EXAMINEO  FOR  A ZERO  BEFORE  EACH 
DERIVATIVE  EVALUATION,  THE  REMAINING  COMPONENTS  (IF  AND 
ARE  EXAMINED  AT  THE  END  OF  EACH  STEP. 


NSTOP=  THE  COMPONENT  OF  G RESPONSIBLE  FOR  A GSTOP  (COMPUTED  EY 
THE  INTEGRATOR). 

I'.' 

G*  A VECTOR  CONTAINING  THE  CURRENT  VALUES  OF  THE  FUNCTIONS 
WHOSE  ZEROS  ARE  TO  BE  DETERMINED. 

GT=  A VECTOR  WITH  THE  SAME  OIMEMSION  AS  G USEO  BY  THE 
SUBROUTINE  FOR  TEMPORARY  STORAGE. 
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OVOQ 

RETURNS  FROM  CALLING  OVOQ  WITH  IFLAG.GT.8  SHOULD  BE  INTERPET £0  OVOQ 
AS  FOLLOWS*  OVOQ 

iIFLAG  OVOQ 

N 9 COMPUTE  GfNGE+2)  ••••  VG(NG)  (THE  COMPONENTS  OF  G WITH  OVOQ 

ZEROS  TO  BE  LOCATEO  USING  INTERPOLATION).  THEN  CALL  OVOQ.  OVOQ 

NO  RETURN  IS  MAOE  WITH  IFL AG=9  IF  NGE*NG,  OVOQ 

hiO  COMPUTE  G(1),G(2),...,G(NGEI  (THE  COMPONENTS  OF  G WITH  OVOQ 

ZEROS  TO  BE  LOCATED  USING  EXTRAPOLATION).  THEN  CALL  OVOQ.  OVOQ 

NO  RETURN  IS  MAOE  WITH  IFLAG=18  IF  NGE=0.  OVOQ 

1=11  A GSTOP  HAS  BEEN  FOUND.  G(NSTOP)  = 0.  FRINT  RESULTS.  IF  THEIR  OVOQ 
ARE  NO  DISCONTINUITIES  CALL  OVOQ  TO  CONTINUE  THE  INTEGRATION.  OVOQ 
-12  G (NSTOP ) CHANGES  SIGN,  BUT  THERE  IS  DIFFICULTY  IN  CONVERGING  OVOQ 
TO  A ZERO.  THE  USER  FAY  WISH  TO  MAKE  A SPECIAL  CHECK  TO  BE  OVOQ 
CERTAIN  THAT  EVERYTHING  IS  ALL  RIGHT.  TO  CONTINUE  THE  OVOQ 

INTEGRATION  CALL  OVOO.  OVOQ 

OVOQ 


SUBROUTINE  OVOQ ( NEQ, T ,Y , F, KD,EP S,I FL AG ,H ,HMIN, 

* HMAX ,TPRI NT, TFI NA  L, MXST EP , KSTEP, <EMAX , EMAX, 

* KQ,YN,DT,NEtfAL,NG,N€E,  NSTOP, G,  GT) 

INTEGER  NEQ,KD,IFL.AG,MXSTEP,  KSTEP,  KEMAX  ,KQ,  NE  VAL  , NG  ,NGE , NS  TOP 
REAL  T, Y* F, EPS, H,HMIN, HMAX, TPRINT, TFI NAL, EMAX, 

2 YN, OT , G,GT 

DIMENSION  Y(l),FCl!),YNfl),0T(2U,l)  ,K0(1)  ,KQ(i)  ,£PS  (1 ) , GUI  , GT(1) 
INTEGER  IB , IFL, IFLG, IFLS, I FLGS ,ISK* IGKM,K8IT2 ,KDMAX ,KDO, KOC, 

2 LD0UB,LFD,LGSS,LGSC,LGSE*NE,NSA,IM1,KK, JM2, KMAXO,KM, KMD *KM1 , 

3 KQMAX, KQM, KQQ , KQ1 ,KQQ2, LRNO ,J3*KS0UT,LSC,LSTC,NV,I,J,K,L 
REAL  FAC,  GAM,  GAS,  DO  ,E  IGHTH  ,GI,  HK»  EPSGS  ,ERRMX,  ERNO, 

2 TWO»FRNO, RG, ETA ,TG, 0 NEP1, RNO, RNOC, RQMAX,TL,E2HAVE, 

3 E2HMAX,E2HFAC,E2F,T0LT,PT,TP,PTS1,PTS2,PTS3,PTS4,PTS5,TPS1, 

4 TPO,TI301,TPS3,TPS5,TPS4,TPS2,TPS6,TP02,0,PB1,PC75,E,P1, 

5 P25, P5,P75,S,A3S, AMCC, AMIN1, AM AX1, SIGN 
DIMENSION  GAM(20,4),GAS(20)  ,ETA(13,18) 

DIMENSION  00(26) ,0 (25) ,PT421) ,FAC(3) ,GI(2),RG(3) 

EQUIVALENCE  (00(2)  ,0(1)) 

DATA  KBIT2  78/ 


CHECK  I FLAG 

I * 

! IF  (IFL AG)  1193,  10,  60 
CHECK  TO  INITIALIZE  CONSTANTS 
10  IF  (KBIT2)  50,12,50 

DETERMINE  MACHINE  PRECISION 
12  RND=1. 

14  RND=RN0/2.  i 

K9IT2=KBIT2+1 

IF ( 1. +RND  .GT.  1.)  GO  TO  14 
RN0*8.*RND 

KQM AX=0  .3*FL0AT(KB  TT2+1 ) 

IF4KQHAX.GT.19)  KQMAX=19 
KBlT2=2*KBIT2f2 

KQMAX  GIVES  THE  MAXIIUM  CRDER  OF  POLYNOMIAL  APPROXIMATION  USEO. 
THERE  IS  LITTLE  POINT  IN  HAVING  KQMAX  MUCH  BIGGER  THAN  THE  NUMBER 
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OF  OECIMAL  OIGITS  IN  THE  MANTISSA. 

RND  IS  APPROXIMATELY  2**(3-B>  WHERE  B IS 
THE  NUMBER  OF  BITS  IN  THE  MANTISSA. 

KBIT2  = 2#3'f2  WHERE  B IS  THE  NUMBER  OF  BITS  IN  THE  MANTISSA. 

IF  THE  DERIVATIVES  ARE  NCT  COMPUTEO  TO  THE  ACCURACY  EXPECTED 
FROM  THE  WORO  LENGTH  OF  THE  COMPUTER  (FOR  EXAMPLE  BECAUSE  OF 
CANCELLATION  PROBLEMS  OR  TABULAR  DATA!  , THEN  THESE  CONSTANTS 
CAN  BE  CHANGED  TO  REFLECT  THE  NUMBER  OF  BITS  WHICH  ARE 
SIGNIFICANT  IN  THE  COMPUTED  DERIVATIVES.  (THIS  IS  NOT  NECESSARY 
BUT  IS  WISE  IF  THE  ACCURACY  REQUESTED  IS  DIFFICULT  TO  OBTAIN 
BECAUSE  THE  DERIVATIVES  )AVE  SO  FEW  SIGNIFICANT  DIGITS.) 

ON  IBM360,  KQMAX  WILL  = 16.  RND  = 8. 880-16,  K3IT2  = 108 
ON  CDC6600 . KQMAX  WILL  * 14,  RNO  = 2.84E-1 4,  K8IT2  = 98 
ON  UNIVAC  11C8,  KQMAX  WILL  - 16.  RNO  = 6.940-18,  KBIT2  = 122 


kmaxo*4 

KMAXO  IS  THE  MAXIMUM  OROER  DIFFERENTIAL  EQUATION  THIS 
IMPLEMENTATION  WILL  INTEGRATE. 

F AC  ( 1 ) = 1 . 

FAC(2)=FAC(l)/2. 

FAC (3) = FAC (2)/ 3* 

TW0=2. 

Pl=.l 
P01=.01 
P25=. 25 
P5=  .5 
P75=.  75 
Pfl  75=.fl75 
ONE P 1=1.1 
PT( 1) =1 • 

KM=KQMAX*1 

00  16  1=1, KM 
PT(I*1)=2.*PT (I) 

16  CONTINUE 

COMPUTE  GAS  AND  GAM 

GAS ( I ) IS  THE  I-TH  AOAMS -MOULTON  CORRECTOR  COEFFICIENT  AND 
GAM ( I , J ) IS  THE  I-TH  ADAMS- FALK NER  PREDICTOR  COEFFICIENT 
FOR  INTEGRATING  J-TH  ORDER  DIFFERENTIAL  EQUATIONS* 

1 = 1,2,...  .KQMAX*  1,  J = 1,2,...,  KMAXO. 

KMD=KM*KMAXO 
00  20  K=1 , KMO 
S=K 

0(K)  = 1./S 
20  CONTINUE 

GAM ( 1, 1 ) =0 ( 1) 

DO  22  J=2, KMAXO 

GAM(1,J)=0(J)*FAC(J-1) 

22  CONTINUE 

00  26  I =2,  KM 
KK* KM 0*1 -I 
DO  24  K=1»KK 
S*I-i 

0(K)=0(K)  0«K*il /S 
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24 

CONTINUE 

OVDQ 

344 

GAM(I,1)=0(1) 

OVDQ 

345 

1 

00  26  J=2,KMAX0 

DVDQ 

346 

GAHCI,  J»=DCJI*FAC(J-1> 

OVDQ 

347 

26 

CONTINUE 

DVDQ 

348 

GAS  Cl)-1* 

OVOQ 

3 49 

00  28  1=2, KH 

OVOQ 

3 50 

GAS(I)=GAM(I,1  l-GAMI-  1,1 1 

DVOQ 

351  i 

28  j 

CONTINUE 

OVOQ 

352  ; 

I 

DVOQ 

353 

GENERATE  ETA 

OVOQ 

354 

1 ! 
i 

OVOQ 

355 

ETA(I,J),  1=1,2, ,..9 J IS  USEO  IN  THE  FIRST  MODIFICATION  OF  THE 

DVOQ 

356  * 

I*TH  DIFFERENCE  CF  A J-TH  OROER  METHOD  AFTER  THE  STEFSIZE  IS 

OVOQ 

357 

HALVED. 

DVOQ 

3 58 

ETA (I , J ) « J=l, 2, • • • , 1*1  IS  USED  IN  THE  SECONC  MODIFICATION  OF 

OVOQ 

359 

THE  (J+ll-ST  DIFFERENCE  OF  AN  I-TJ  OROER  METHOO 

DVDQ 

360 

DVOQ 

361  i 

K=KQMAX-1 

OVOQ 

362  j 

EIGHTH=FAC(2)*FAC(2lfFAC(2» 

OVOQ 

363  | 

ETA (1 , 1 )=E IGHTH 

OVDQ 

364  j 

ETA(2,1)=EIGHTH 

OVOQ 

365 

TP= FAC ( 2) *FAC ( 2) 

OVOQ 

3 66 

00  33  J=2,K 

OVOQ 

367 

TP=TP/2. 

OVOQ 

368 

ETA(J,J»=CTP+ETA(J-1,  J-1M/2, 

OVDQ 

369 

IF ( J • EQ. 2)  GO  TO  32 

OVOQ 

3 70 

JM2=J-2 

OVOQ 

371 

DO  30  18=1, JM2 

OVDQ 

372 

1 = J-I8 

OVOQ 

373 

ET  A (I, J)=(ET  A(I+1,J)  ♦ETA(I-l*J-l))/2. 

DVDQ 

3 74  j 

30 

CONTINUE 

OVDQ 

375  j 

32 

ETA  ( 1,  J)  = ET  A (2  « J) / 2. 

OVOQ 

3 76 

33 

CONTINUE 

DVDQ 

377  j 

00  34  1=1, K 

OVDQ 

378 

TP-C  • 

DVDQ 

379 

DO  34  J=i,I 

OVDQ 

380 

TP=TP+ETA  ( J,  I) 

OVDQ 

3 81 

ETA  (1  + 1, J) =TP 

DVDQ 

382 

34 

CONTINUE 

OVDQ 

383 

TP  = FAC ( 2 1 

OVDQ 

384 

00  36  J=l,  K 

OVDQ 

385 

TP=TP/2. 

OVDQ 

386 

D (J)  = ETA ( J+l, J) +TP 

OVDQ 

387 

36 

CONTINUE 

OVOQ 

388  • 

* ' 

00  38  J=l, K 

OVDQ 

3 89  ; 

DO  38  1=1, J 

OVDQ 

390  ; 

ETA  (I, J)=ETA (I, J)/D (J) 

OVDQ 

391  ] 

38 

CONTINUE 

OVOQ 

3 92  j 

KM1=K-1 

OVDQ 

393  1 

DO  43  J=l, KM1 

OlVDQ 

394 

0(J)=0(J+l)/0<  J> 

DVOQ 

395  ] 

40 

CONTINUE 

DV  DQ 

396  i 

00  42  1=2, KM1 

OVDQ 

397  1 

DO  42  J=i,I 

OVDQ 

398  : 

ETA (1*1, J) =-ETA( 1*2 , J)*ETA( 141, J|  *0(11 

OVDQ 

3 99  ; 

42 

CONTINUE 

DVDQ 

4u  0 j 

TP=  EIGHTH 

DVDQ 

40 1 j 

00  46  1=2, K Ml 

OVDQ 

402  1 

TP=TP/2, 

OVOQ 

40  3 1 
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S-TP 

00  44  J=i, I 

S=S  +ET  A (1  + 1,  J) 

44  CONTINUE 
IM1=I-1 
DO  46  J=1,IM1 

ETA  (I,  J)=ETA  (I+l  ,J)  /S 
46  CONTINUE 

INITIALIZE  VARIABLES 

50  PTS1=PT  Cl) 

PTS2=PT(2) 

PTS3=PT(3I 
PTS4=PT (4) 

PTS5=PT  (5) 

LGSS=0 
LGSO=0 
LGSE=0 
LFD  = 0 
E2HAVE=0. 

E2HMAX=0. 

00  52  I si*  KMD 
0D( II =0* 

52  CONTINUE 
KSTEP=-i 
NE*NEQ 

IF  (NE • LE, 0)  GO  TO  1190 
HH=H 
NV=C 
KDMAX=0 
DO  56  J=i*  NE 
KQC Jl =1 

DO  54  1= 1*  KQMA X 
OT(I,JI=0. 

54  CONTINUE 
KDD  = KO«.JI 

IF  HKDD.EQ.O)  .OR.  (KOO.GT  .KMAXOI  I HH=0, 

IF  (KOO.GT, KOMAX)  KOMAX=KOD 
NV=NV+KOD 
56  CONTINUE 

IF  ( <TPRINT*HHI .LE.O.I  GO  TO  1190 
ERRHX=P1 

erno=o • 

EMAX=ERNO 
RNDC=RNO*P25 
L00U3= 0 
E2HFAC=  P25 
LSC=8 
LSTC=4 

LSC  ANO  LSTC  ARE  USED  IN  COMBINATION  AS  FOLLOWS 


LSTC-4* 

LSC=4 

FIRST  TIME  THROUGH  THE  FIRST  STEP 

LSTC=  3* 

1 

LSC=4 

SECCNQ  TIME  THROUGH  THE  FIRST  STEP 
I NECESSARY  TD  CHECK  STABILITY) 

L STC=  2* 

LSC  = 4 

THIRD  TIME  THROUGH  THE  FIRST  STEP 
CCNLY  OCCURS  IF  INSTABILITY  POSSIBLE) 

LSTC=2, 

LSC=2 

SECCNO  STEP  (IF  KQ(I)*2  , 1=1*..., 

iNEQ) 

LSTC=1* 

LSC=0 

STARTING,  ONE  DERIVATIVE  EVAL.  PER 

STEP. 

LSTC-1. 

LSC .GT • 0 

SET  WHEN  STARTING  TWO  DERIV.  EVAL, 

PER  STEP 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ1 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 

OVOQ 


404 

405 

406 

407 
406 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 


424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 


442 

443 


444 


445 

446 

447 

448 
4h9 
450 


451 

452 


453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463  j 
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1 


60 


65 


70 

75 


\ LSTC= -1  LSC.LT.O  SET  WHEN 

HALVING 

THE 

STEPSIZE 

OVOQ 

464 

IN  THE  LAST  TWO  CASES  LSC 

IS 

SET  EQUAL 

TO 

LSTCMMAXIMUM  KQ(I) 

OVOQ 

465 

♦1).  AT  THE  ENO  OF  EACH  STEP 

IF  LSC. 

NE 

.0 

IT  IS 

! REPLACED  BY 

OVOQ 

466 

LSC-LSTC  UNTIL  LSC=0,  AT 

WHICH  TIME 

LSTC 

IS  SET  EQUAL  TO  0. 

OVOQ 

467 

WHEN  00U8LIN6  H,  LSTG  IS 

SET 

EQUAL 

TO 

-1 

AND 

LSC  TO  -3.  / 

IDVOQ 

466 

UNDER  CERTAIN  CONDITIONS 

WHEN 

KQC 1 1 a 

it 

LSTC  IS 

L SIT  s-i  AND  L30= 

*5 OVOQ 

469 

, OVOQ 

4 70 

KSOUTsMXSTEP 

V , 

i OVOQ 

4i?l 

TOUT^T 

OVOQ 

472 

IFL *13 

OVOQ 

473 

IFLAGsi 

y 

OVOQ 

474 

NGA-0 

OVOQ 

475 

neval*o 

OVOQ 

476 

IF(NG.NE.O)  GO  TO  1420 

0VOQ 

477 

CO  TO  315 

OVOQ 

478 

ENO  OF  INITIALIZATION 

OVOQ 

479 

OVOQ 

480 

OVOQ 

461 

ENTRY  WITH  IFLAG.GT.  0 

OVOQ 

462. 

OVOQ 

483 

CHECK  FOR  GSTOPS 

OVOQ 

464 

OVOQ 

465 

IF(NG.EQ.NGA)  GO  TO  65 

OVOQ 

486 

IF(NG.LT.O)  GO  TO  1190 

OVOQ 

487 

NGA*NG 

OVOQ 

488 

LGSS=-NGA 

OVOQ 

489 

LGSO-O 

OVOQ 

490 

LGSE=0 

OVOQ 

491 

IFLG=-20 

* 

OVOQ 

492 

OVOQ 

493 

OVOQ 

494 

IF  IIFL.LT.2)  GO  TO  320 

OVOQ 

495 

IF  (IFL.EQ.2)  GO  TO  60 

OVOQ 

496 

IF  CIFL.GT.5)  GO  TO  1180 

OVOQ 

497 

OVOQ 

498 

SET  STEP  STOP 

OVOQ 

499 

KSOUT  =KSTEP+MXSTEP 

OVOQ 

5t)0 

IF  (IFL.EQ.5)  GO  TO  210 

Q|VDQ 

501 

IF  (IFL.EQ.4)  GO  TO  1210 

OVOQ 

50  2 

dvoQ 

503 

SET  PRINT  STOP 

OVOQ 

504 

TOUT=T*TPRI  IT 

QVOQ 

50  5 

OVOQ 

506 

TPS1=ABSCAM00(IT0UT-TJ/HH, 

TWO) 

-PTS1) 

OVOQ 

507 

LFO=- 1 

1 

OVOQ 

5C8 

IF  CTPS1.GE.P5)  LFO-1 

OVOQ 

509 

OVOQ 

510 

LFO  IS  USED  TO  INOICATE  WHETHER  03UBLING  H 

IS  PERMITTEO. 

OVOQ 

511 

IF  LFO.  LT.  0 AT  THE  ENO  OF 

A STEP  THEN 

DOUBLING 

H IS 

OVOQ 

512 

NOT  PERMITTED.  THE  SIGN  OF 

LFO 

IS  CHANGEO 

JUST 

BEFORE  THE 

QVOQ 

513 

ENO  OF  EACH  STEP.  IF  TPRINT  = HM POWER 

OF 

2) 

THEN 

OVOQ 

514 

OUTPUT  VALUES  WILL  BE  OB1AINEO 

WITHOUT 

INTERPOLATION. 

0VOQ 

515 

OVOQ 

516 

GO  TO  200 

OVOQ 

517 

o;voq 

518 

OVOQ 

519 

ENTRY  WITH  IFL  AG=2 

OVOQ 

520 

OVOQ 

521 

UPDATE  DIFFERENCE  TABLE 

OVOQ 

522 

ANO  COMPUTE  KQH*NAXIHUM  VALUE 

OF  <Qt  I)  « 

1= 

1*2*. 

• • f NE  Q • 

OVOQ 

523 

180 
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80  KQM=3 

DO  93  1=1, NE 
KQQ=KQ(I) 

IF  (KQQ.ST.KQM)  KQM=KQQ 
D(i)=F(I) 

00  85  K=1  ,‘KQQ 

D(K+1)=0CK)-DT(K,I) 

DT (K*I )=D(KI 
85  CONTINUE 

DT(KQQ*i*,  I)=D(  KQQ+1) 

90  CONTINUE 

END  OF  UPDATING  DIFFERENCE  TABLE 

STORE  YIJ)  IN  YNIJ) 

DO  95  J=1,NV 
YN(J) =Y(  J ) 

95  CONTINUE 

LFD=-LFO 
TL  = T 

KSTEP=KSTEP+1 

IF  (LGSSi  1430  *110*1 510 
100  IFL AG=2 

110  IF  (LSC*EQ.0>  GO  TO  140 
LSC=LSC-LSTC 
IF  USC.EQ.OI  GO  TO  130 
IF  (LSTC.NE.(-i) ) GO  TO  140 
IF  (LD0U8.LT. 0)  RNCC=RN0*P1 
120  E2HA\/E=E2HM  IX 
TPS1=PTS1 
GO  TO  190 

130  IF  (ABS (HH) ,L. sHMI  M GO  TO  1003 
' ; LSTC=  0 

140  IF  (LOOUB.NE.il  GO  TC  150 

IF  ((LFD.GT  .0)  .AND.  (ABSCHH  + HH)  .LE.HHAX)  ) GO  TO  1030 
GO  TO  2 00 

150  RQKAX=PTSl/FLOAT  (KQM+3) 

IF  ((LSTC.NE.9).OR.(E2HAVE.EQ.0.)>  GO  TO  120 
TPS1=E2HMAX/E2HAVE 
IF  (TPS1-PTS1I  160.190,  170 
160  E2HFAC=AHIN1(P075,E2HFAC-RQMAX,E2HFAC*TPS1» 

GO  TO  180 

170  TPS1=TPS1*TPS1 

E2HFAC=AMIN1(PTS1,E2HFAC*TPS1) 

180  RNOC= ( O NEP1-E2HF AC ) *RND 
E2HAVE=P5* (E2HMAX+E2HAVE) 

19  C ERRMX=AMAXi(Pi,ERRMX-RQMAX*TPSl) 

E2HFAC  IS  A FACTOR  WHICH  IS  TAKEN  TIMES  AN  INITIAL  ESTIMATE  CF 
E2H  TO  GE'  \ FINAL  VALUE  Q-  E2H * (E2H=EST IMATE  OF  WHAT 
(ESTIMATE^  '•ROR I ✓ (REQUESTED  ERROR)  WOULD  BE  IF  H WERE 
DOUBLED.) 

E2HMAX  IS  THE  MAXIMt  I VALUE  OF  THE  INITIAL  ESTIMATE  OF  E2H  OVER 
ALL  COMPONENT.  WITH  KQ(I).3T.l. 

E2HAVE  IS  A WEIGHTED  AVERAGE  OF  PAST  VALUES  OF  E2HMAX. 

THE  VALUE  OF  E2HFAC  TENDS  TO  BE  SMALLER  WHEN  E2HMAX  IS 
CONSIST ANTLY  SMALLER  THAN  E2HAVE. 


OVDQ  524 
OVOQ  525 
OVOQ  526 
OVOQ  527 
OVDQ  528 
OVDQ  529 
OVOQ  530 
OVOQ  531 
OVDQ  532 
OVOQ  533 
OVOQ  534 
OVOQ  535 
OVOQ  536 
OVOQ  537 
OVOQ  538 
OVOQ  539 
OVOQ  540 
OVOQ  541 
OVOQ  542 
OVOQ  543 
OVOQ  544 
OVOQ  545 
OVOQ.  546 
OVOQ  547 
OVOQ  548 
OVOQ  549 
OVOQ  550 
OVDQ  551 
OVDQ  552 
OVOQ  553 
OVOQ  554 
OVOQ  555 
OVOQ  556 
OVOQ  557 
OVOQ  558 
OVOQ  559 
OVOQ  560 
OVDQ  561 
OVOQ  562 
OVOQ  563 
OVOQ  564 
OVOQ  565 
OVOQ  566 
OVOQ  567 
OVOQ  568 
OVOQ  569 
OVOQ  57fl 
OVOQ  571 
OVOQ  572 
OVOQ  573 
OVDQ  574 
OVDQ  575 
OVOQ  576 
OVOQ  577 
OVOQ  578 
OVOQ  579 
OVOQ  580 
OVOQ  581 
OVOQ  582 
OVOQ  563 
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C CHECK  FOR  PRINT  STOP  ANO  FOR  T REACHING  TFINAL 
203  TPD*  CTOUT-TLI/HH 

TP01= (TFINAL-TLI /HH 
C 

IF  CLGSE.LT.O)  GO  TO  178Q 
IF  CTP01.LT.FACC1) I GO  TO  1220 
IF  CTF'O.LE.O.)  GO  TO  1280 

CHECK  FOR  STEP  STOP 
IF  (KSOUT. GT.KSTEP)  GO  TO  210 

IFL  =5 
GO  TO  310 

CHECK  TO  SEE  IF  ROUND-OFF  ERROR  IS  PROMINENT 
210  IF  CEMAX.EQ.ERNO)  GO  TO  220 
IT  IS 
IFl=6 

IF  CEMAX.GE.P1)  GO  TO  310 

IF  CCLSTC.GE.OI.OR.ILOOUB.EQ.il)  ERRMX*PTS1 

220  IFL  =1 
230  T=TL+HH 

START  A NEW  STEP 

PREDICT 
240  J=0 

DO  290  1=1, NE 
KOD=KOCI) 

KOC=KOO 

250  KQQ=KOC  1 1 

TPD  = 0 . 

K = K0C 

260  TPD  = TPO+OT  CKQQ,I)*GAM  C KQQ.KOC I 

KQQ=KQQ-1 

IF  CKQQ.GT.O  ) GO  TC  2 60 
270  K=K-1 

IF  CK.LE.C)  GO  TO  28G 
L=J  + K 

TPO  = YNCL  + ll *FACCK>  *HH*TPO 
GO  TO  270 
280  J=J*i 

YCJ)  = YNC  JM-HH*TPD 
KOC=KOC-l 

IF  CKDC.GT.0)  GO  TO  250 
290  CONTINUE 

ENO  OF  PREOICT 

IF  CIFL)  1240,320,300 
300  IF  CLGSD.NE.G)  GO  TO  1520 

310  IFLAG=I FL 

315  IF  CIFL  AG.  LE.  2)  NEVAL*NEVALU 
RETURN 


ENTRY  WITH  IFL  AG=1 
320  ERND=0. 


000 Q 584  | 
OVOQ  585 
OVOQ  566  j 
OVOQ  587  1 
OVOQ  588  1 
OVOQ  569 
OVOQ  590 
OVOQ  591 
OVOQ  592  j 
OVOQ  593  j 
OVOQ  594  j 
OVOQ  595  1 

OVOQ  596  i 
OVOQ  597  i 
OVOQ  598  | 

OVOQ  599 
OVOQ  600 
OVOQ  601 
QVOQ  682 
tiVOQ  6C3 
OVOQ  604 
OVOQ  60  5 I 
OVOQ  606 
OVOQ  60 7 1 

OVOQ  608 
OVOQ  609 
OVOQ  610 
OVOQ  611 
OVOQ  612 
OVOQ  613 
OVOQ  614  j 
OVOQ  615  j 
OVOQ  616  * 

OVOQ  617  i 
OVOQ  618 
OVOQ  619  ! 

OVOQ  620  f 
OVOQ  621 
OVOQ  622 
OVOQ  623 
OVOQ  624 
OVOQ  625 
OVOQ  626 
OVOQ  627 
OVOQ  628 
OVOQ  629 
OVOQ  630 
OVOQ  631 
OVOQ  632 
OVOQ  633 
OVOQ  634 
OVOQ  635 
OVOQ  636 
OVOQ  637 
OVOQ  638 
OVOQ  639 
OVOQ  640 
OVOQ  641 
OVOQ  642 
OVOQ  643 
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EMA  X=0 . 

E2HMAX-0. 

J=0 

IF  (LOOUB.GE.O)  LOOU8=1 

LDOUB  IS  SET  IN  THE  LOOP  BELOW  AS  FOLLOWS 
L00U3-C  HALVE 
LOOU9=i  OOUBLE 
L00UB=2  00  NOT  DOUBLE 

LOOU3.LT.O  AT  THE  BEGINNING  OF  THE  LOOP  INOICATES  THE  FOLLOWING 
**3  STEPSI2E  HAS  JUST  BEEN  HALVEO.  IF  A OISCONTINUITV  IS 
NOT  INDICATED  HCOIFY  THE  DIFFERENCE  TABLE  AMO  REPEAT 
THE  STEP. 

=-2  STEP  AFTER  L0CUB*-3.  PROCEEO  AS  USUAL  COROER  IS  NOT 
CHANGEO) 

= -l  STEP  AFTER  LDCUB*-2.  MOOIFY  THE  DIFFERENCE  TABLE  ONCE 
AGAIN  ANO  REPEAT  THE  STEP. 

IF  L00U8  IS  SET  EQUAL  TO  -4  THE  ORDER  IN  AT  LEAST  ONE  COMPONENT 
HAS  BEEN  GREATLY  REDUCED  ANO  THE  STEP  IS  REPEATED. 


BEGINNING  OF  LOOP  FOR  CORRECTING,  ESTIMATE  , . tit  ERROR, 

AND  ADJUSTING  THE  NUMBER  OF  DIFFERENCES  USED 

DO  790  I-l.NE 
KO0=KOm 
KQQ=KQ(I) 

KQQ  GIVES  THE  ORDER  OF  THE  PREOICTOR  FORMULA  A.ND  KQQ+i  THE 
ORDER  OF  THE  CORRECTOR  FORMULA. 


330 


C 


350 


C 

360 


KQ1=KQQ+1 
D (1) =F(I) 

FORM  THE  DIFFERENCE  TABLE  FROM  PREOICTEO  DERIVATIVE  VALUES. 
00  330  K=l,KQi 

0 (Kn)=D(K)-GT  (K,I) 

CONTINUE 

O(K)  GIVES  THE  (K-i)-ST  DIFFERENCE  FORMED  FROM  PREOICTEO 
DERIVATIVE  VALUES 
TPS 3=  A3S  (OCKQQ+l) ) 

IF  (LDOUB. LT .0  ) GO  TO  720 

IF  (KQQ.NE.  1 ) GO  TO  520 

KQC I J =1  IS  TREATED  AS  A SPECIAL  CASE 

S2H=PTS2 

TPS5=DT (3,1) 

IF  (LSTC.LT.2I  GO  TO  3 70 
FIRST  STEP  OF  INTEGRATION 
IF  (LSTC.NE.4)  GO  TO  350 
TPS4=Q. 

IF  (KOD.GT.l)  TPS3  = AHAX1(TPS3  *A3S ( HH*0 (1) ) ) 

TPS3=TPS3*P1 
GO  TO  510 
DT  ( 2 , I)=D  (2) 

0(2) =0(1) -OT (5,1) 

TPS2=-D(2) 

T PS  3- PTS  5*ABSCTPS2) 

FIRST  STEP  THAT  KQtII*l 
OT (7, I)*PT(4) 


OVOQ  64 
OVOQ  64$ 
OVOQ  641 
OVOQ  643 
OVOQ  641 
OVOQ  64* 
OVOQ  6? 
OVOQ  65< 
DVDQ  65 
OVOQ  65; 
OVDQ  65^ 
OVOQ  65 i 
OVDQ  65i 
OVOQ  651 
OVDQ  651 
OVDQ  65* 
OVDQ  661 
OVDQ  66i 
OVDQ  66£ 
OVOQ  663] 
OVDQ  66*; 
DVDQ  665 
OVDQ  666 
OVDQ  66^ 
DVDQ  668 
OVOQ  669, 
OVDQ  670 
OVDQ  671a 
OVOQ  6721 
OVOQ.  67 3j 
OVDQ.  674 
DVDQ  675^ 
DVDQ  676; 
OVOQ  677j 
OVOQ  678 
OVOQ  67 93 
OVOQ  660 
VOQ  661 
OVOQ  682 
DVDQ  663 
OVOQ  664, 
OVDQ  685 
OVDQ  686 
OVDQ  667 
OVOQ  668 
OVOQ  669 
OVDQ  690- 
OVDQ  6 SI 
OVOQ  6S2 
OVOQ  693 
OVOQ  694 
OVOQ  655 
OVOQ  696 
OVOQ  697 
OVOQ  698 
OVOQ  699 
OVOQ  700 
OVOQ  701 
OVOQ  762 
OVOQ  703 
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$70 

I 

380 


390 

C 

400 

410 

420 

430 

440 

450 

C 

460 

470 

480 

490 


C 

500 


510 


520 


IF  (LSTC-2)  420,380,380 
IF  (TPS5.EQ.0.)  60  TO  360 
IF  (OT(6,I).EQ.O.)  GO  TO  490 
TPS2=DT(5,I)  -OT(  1,  It 
TPS4=0T(4,I) 

TPS1=A8S(TPS4) 

TPS4= TPS2*SIGN(PTS2,TPS4) -TPS5*TPS1 
IF  <TPS4,GT, I-TPS1I)  GO  TO  410 
TPS6=-PTS1 
GO  TO  450 

FIRST  STEP  AFTER  THE  STEPSI2E  HAS  BEEN  CHANGEO 
OT (6, I)=PT( 1) 

TPS6-0. 

GO  TO  450 

IF  (TPS4.LT.TPS1)  GO  TO  440 
IF  (TPS1.EQ.0.)  GO  TO  390 
TPS6=PTSi 
GO  TO  450 
KQ< I) =2 

IF  (2-LSTC)  510,510,520 

TPS6-TPS4/TPS1 

T PS 4= TPS 5 +T PS 6 

IF  (TPS4.LT. P25)  GO  TO  430 

INCREASE  E2H  IF  (-S).GT..25 

E2H=PTS4*TPS4 

IF  (2-LSTC)  460,470,  480 

L SC=  C 

GO  TO  510 

IF  (T PS5-P25)  430,  460,460 
IF  CTPS4.GT.PTS2)  GO  TO  490 
IF  (TPS4.GT.P5)  0 ( 2)=D  (2)  *GAM  (2, 1) 

GO  TO  510 

IF  ( TPS4.LT .PTS4)  GO  TO  500 

TPS4=PTS4 

0 (2 ) = D (2 ) /PT (3  ) 


OVOQ  704 
OVOQ  705 
OVOQ  706 
OVOQ  707 
OVOQ  708 
OVOQ  709 
OVOQ  710 
OVOQ  711 
OVOQ  712 
OVOQ  713 
OVOQ  714 
OVOQ  715 
OVOQ  716 
OVOQ  717 
OVOQ  718 
OVOQ  719 
OVOQ  720 
OVOQ  721 
OVOQ  722 
OVOQ  723 
OVOQ  724 
OVOQ  72 5 
OVOQ  726 
OVOQ  727 
OVOQ  728 
OVOQ  729 
OVOQ  730 
OVOQ  731 
OVOQ  732 
OVOQ  733 
OVOQ  734 
OVOQ  735 
OVOQ  736 
OVOQ  737 
OVOQ  738 


AND  0(2)=2¥( CORRECTEO  Y - 
ARE  USED  TO  COMPUTE  (-SI  ON 


THE  ESTIMATE  OF  E (AND  HENCE  OF  E2H)  IS  INCREASEO  IF  (-S).GE.S. 
TPS3=TPS3JM)7(7  ,1) 

GO  TO  510 

0(2)  = D(2)*CPTSiVMTFS4-PTSi)/(TPS4*TPS4>) 

IF  (TPS4.GE.3.)  E2H=E2H*OT  (7 , I) 

STORE  0(  l)=PREOICTED  OERIVATIVE 
PREDICTED  Y)/H  0(1)  ANO  0(2) 

THE  NEXT  STEP. 

OT (5,  I)  = 0(1) 

OT  (4,  I)  = 0 (2) 

0 (4)  = TPS4 

STORE  0(4)=  CURRENT  ESTIMATE  OF  (-S).  (-S).GT.3  IS  AN  INDICATION 

THAT  THE  STEPSIZE  SHOULD  BE  LIMITEO  BECAUSE  OF  STABILITY  PROBLEMS. 
$*H* (ESTIMATE  OF  EIGENVALUE  OF  F) =H* (DIFFERENCE  BETWEEN  PREOICTEO 
ANO  CORRECTED  OERIVATIVE  VALUES)/(  DIFFERENCE  BETWEEN  PREOICTEO 
AND  CORRECTED  INTEGRALS  OF  THE  OERIVATIVE  VALUES) 

THE  TREATHENT  OF  THE  CASE  KQ(I)=1  COULO  BE  IMPROVEO  BY  USING  A 
SPECIAL  METHOD  FOR  STIFF  EQUATIONS  WHEN  (-S).GT.3  (MAYBE). 

(THE  ENTIRE  TREATMENT  OF  THE  CASE  KQ(I)=i  IS  FAR  FROM  IDEAL.) 

0 T ( 3, I)=D (4) 


OVOQ  739 
OVOQ  740 
OVOQ  741 
OVOQ  742 
OVOQ  743 
OVOQ  744 
OVOQ  745 
OVOQ  746 
OVOQ  7 *+7 
OVOQ  746 
OVOQ  749 
OVOQ  7 50 
OVOQ  751 
OVOQ  752 
OVOQ  753 
OVOQ  754 
OVOQ  755 
OVOQ  756 
OVOQ  757 
OVOQ  758 
OVOQ  759 


CORRECT 
KOC  = 0 

TPD=0 (KQ1) 
J-JfK 00 


OVOQ  760 
OVOQ  761 
OVOQ  762 
OVOQ  763 
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530  TPD=HH*TP0 
K0C=K0C+1 

Y(K)  = Y(K)+GAM(KQQ+1,K0C)*TFD 
K=K-1 

IF  (KOC.LT.KOD)  GO  TO  530 
END  OF  CORRECT 

IF  (EPS (I ) » NE.  tt« ) GO  TO  560 
550  IF  CHMAX)  1190,760,1190 
560  TPS4=ABS  (DCKQQ  + 2M 

TPS2- ABSCO(KQQ)) 

TPS6=HH/EPS(I) 

E = ABS  (GAS  (KQQ«-i>  *TPS3*TPS6) 

E GIVES  ABS( (ESTIMATED  ERROR) /EPS (I ) I 

LRND=i 

LRND=  1 MEANS  NO  ROUND-OFF  ERR3R 
= 0 MEANS  SCME  RO INO-OFF  ERROR 
= -l  MEANS  EXTREME  ROUNO-OF-  ERROR 

FRND=RNDC*ABS (PT (KQQ+2 ) *0 (1) ) 

C CHECK  TO  SEE  IF  ROUND  OFF  ERROR  IS  DOMINANT 

IF  ((TPS3+TPS4  I.GT.FRNC)  GO  TO  570 
LRND=  0 

IF  ( (PTS4*TPS2)  .LT  .FRNC)  LRND=-1 
C 

570  IF  (E.LE.ERND)  GO  TO  5 <0 
IF  (E.LE.EMAXI  GO  TO  5(0 
EMAXsE 
KEM AX=I 

580  IF  iLRND.LE.O)  GO  TO  5 ?Q 
ERNO=  E 

IF  (ERND.GT.ERRMX)  LDOUB=0 
590  IF  (LDOUB.LE.O)  GO  TO  780 
TPSi=  ABS ( OO ( KQQ) ) 

TPS 5* TPS 1 

IF  (KQQ- 2)  600  ,610,620 
600  E2H=E*E2H 

IF  (E2H.LT* P01)  GO  TO  780 
IF  (O (4) .LT.3. ) GO  TO  770 
LSTC=-1 
LSC--5 
GO  TO  770 
610  TPS1=  TPS  2 

IF  (LSTC.NE.2)  GC  TO  620 

KQ( I ) =3 

TPS2=Q. 

TPS4=0. 

LRNC=  0 

620  E2H=TPS2«-TPS3*TPS4 

E 2H  = A BS(  GAS  ( KQQ-1)  *PT  ( KQQ+1) +E2H*TPS6) 

C E2H  IS  USED  AS  AN  ESTIMATE  OF  WMAT  THE  VALUE  OF  E WOULO  BE 

C IF  H HERE  DOUBLED.  THE  ESTIMATE  IS  CONSERVATIVELY  LARGE. 

IF  (E2H.GT .E2MMAX)  E2HMAX=E2H 
C 

IF  (LRNO)  630.  640,660 

C EXTREME  ROUND-OFF  ERROR— REDUCE  E2H 


DVOQ  764 
DVOQ  765 
OVDQ  766 
OVOQ  767 
OVOQ  766 
OVOQ  769 
DVOQ  77 0 
OVOQ  771 
DVOQ  772 
OVDQ  773 
DVOQ  774 
OVOQ  775 
OVOQ  776 
DVOQ  777 
OVDQ  778 
OVOQ  779 
OVOQ  7 60 
OVOQ  781 
OVDQ  782 
OVOQ  763 
OVOQ  784 
OVDQ  765 
OVOQ  766 
DVOQ  787 
OVOQ  788 
OVOQ  769 
OVDQ  790 
OVOQ  791 
OVOQ  792 
DVOQ  793 
OVOQ  794 
DVOQ  795 
OVOQ  796 
OVOQ  797 
OVOQ  798 
OVOQ  799 
OVOQ  80 0 
O'VQQ  601 
OVOQ  802 
OVDQ  603 
OVOQ  804 
OVOQ  605 
OVOQ  606 
OVOQ  8 67 
OVOQ  808 
OVOQ  6J9 
OVOQ  810 
OVDQ  811 
OVOQ  812 
OVDQ  613 
OVOQ  614 
OVOQ  815 
OVOO.  bl6 
OVOQ  817 
OVOQ  818 
OVDQ  819 
OVOQ  820 
OVOQ  821 
OVOQ  6 22 
OVOQ  823 
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630  K=(KBIT2/KQQ>-4 

IF  (K.LE.3)  GO  TO  640 
IF  CK.GT.KQMAX)  K=KQMA> 

E2H=E2H/PT(K+D 
GO  TO  650 

640  E2H=AMIN1(E2H,E2H*3.*E*HFAC> 

650  E2H=E2H*P1 
TPS6=PTS4 
GO  TO  670 

660  E2H=E2H*E2HFAC 
TPS6-KQQ+2 

TEST  TO  SEE  IF  DIFFERENCES  DECREASE  MORE  RAPIOLY  THAN  NECESSARY 

670  IF  (TPS5.LT. (TPS3*TPS6)>  GO  TO  680 
IF  (TPS2.LE.  fTPS4*TPS6>>  GO  TO  760 
THEY  OO  INCREASE  KQCI) 

IF  (KQQ.NE.KQMAX)  XQ(I)  = KQ1 
GO  TO  763 

TEST  TO  SEE  IF  DIFFERENCES  DECREASE  TOO  SLOWLY 
680  TPS6=TPS6*P25 

IF  C CTPSl.GT. CTPS3*TPS6») .OR. (T»S2.GT. (TPS4*TPS6>) J GO  TO  760 
THEY  DO  j 

IF  (LSTC.LE.0)  GO  TO  750 
IF  CE2H.LT. P01)  GO  TO  750 
IF  CLSC-LSTC)  690,753,173 
690  IF  (KSTEP-4)  750,730*713 

700  KQi=LSTC 
710  LSC=KQ1 

END  OF  ONE  DERIVATIVE  EVALUATION!  PER  STEP 
GO  TO  770 

AFTER  HALVING  H.  REDUCE  KQ(I)  IF  A DISCONTINUITY  HAS  OCCURRED. 
720  IF  CLB0UB.EQ.l-2>)  GO  TO  343 

DT(KQQ+i»I)=0  CKQQ+ 1 ) 

IF  CLDOUB.EQ.  <-l>>  DT  ( KQQ+1, 1 1 =3  CKQQ+  2) 

KsKQQ 

730  IF  (K.EQ.l)  GO  TO  740 

IF  1 1 ABS (OIK-1  >)  .GT.(PT(2)*ABSO  (K«D  >>>.OR. 

1 (ABS(DCK)) .GT . (PT  (2)*ABS(0( K+2  > ) I ) ) GO  TO  740 

K=K-1 
GO  TO  730 

740  IF  ( ( K+K) .GE.KQQ ) GO  TO  780 
LQ0UB=-4 
E2H=0. 

KQQ=K+1 


DIFFERENCES  DECREASE  TOO  SLOWLY  REOUCE  KQCI). 
750  KQ( II =KQQ-1 

IF  (KQQ.EQ.2)  DT(3,I>s0. 

76C  IF  (E2H.LT.  POD  GO  TO  780 
770  LD0U8=2 

78  C CONTINUE 


790  CONTINUE 

END  OF  LOOP  FOR  CORRECTING,  ESTIMATING  THE  ERROR,  ETC. 


OVOQ  824  1 

OVOQ  625 
OVOQ  826 
OVDQ  8 27 
OVOQ  628 
OVOQ  6 29 
OVOQ  830  : 

OVOQ  831 
OVOQ  832 
OVOQ  833 
OVOQ  834  j 
OVOQ  835 
OVOQ  836  ; 

OVOQ  837 
OVOQ  8 36 
OVOQ  839 
OVOQ  840 
OVOQ  841 
OVOQ  842 
OVOQ  843 
OVOQ  844 
OVOQ  845  1 

OVOQ  646 
OVOQ  847  j 
OVOQ  848 
OVDQ  849 
OVOQ  650 
OVDQ  851 
OVOQ  852  1 

OVOQ  853  I 
OVOQ  854  ] 

OVOQ  855  1 

OVOQ  856  ! 

OVDQ  657  ! 

OVOQ  658 
OVDQ  6 59  1 

OVOQ  860 
OVOQ  861 
OVDQ  862 
OVOQ  863 
OVOQ  864 
OVDQ  865 
OVOQ  866 
bvOQ  867 
OVOQ  868 
OVOQ  869 
OVDQ  670 
OVOQ  871 
OVOQ  872 
OVDQ  873 
OVOQ  874 
OVOQ  e75 
OVDQ  876 
OVOQ  877 
OVOQ  678 
OVOQ  879 
OVOQ  880 
OVOQ  881 
OVOQ  682  j 
OVOQ  883  | 
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IF  (IFL.LT.D)  GO  TO  1250 
TEST  FOR  HALVING  H 
IF  CLDOUBI  809,950,870 
800  LD0UB=L D0U8+1 

IF  (LDOU3+  i)  8 10,870,620 
810  IF  ILCOUB.EQ.  C-2>>  GC  TO  820 

ORDER  IN  AT  LEAST  ONE  COhPONENT  HAS  BEEN  GREATLY  REDUCED 
LDOU3=0 
GO  TO  229 
820  CO  860  1*1  » NE 
KQQ*KQ(III 
TP=DT (KQQ+1,11 
IF  fKQQ.LE.  3 ) GO  TO  €60 
IF  (LOOUB.NE.O)  GO  TO  840 
OO  830  K=3, KQQ 

SECOND  HODIFICATION  OF  DIFFERENCE  TABLE  AFTER  HALVING  H 
0T<K,I>=DT<K,I>+ETA<KQQ-l,K-2)  *TP 
830  CONTINUE 
GO  TO  860 

840  DO  650  K=2*  KQQ 

FIRST  HODIFICATION  OF  DIFFERENCE  TABLE  AFTER  HALVING  H 
OTIK,I)=DTIK,II>ETA  <K-i »KQQ-il  *TP 
350  CONTINUE 
860  CONTINUE 
IFL=0 
GO  TO  2 40 

870  IFL=2 

IF  <LSTC.LE.0l  GO  TO  300 
IF  C2-LSTC)  880,900,940 
880  LSTC=LSTC-1 

IF  CLSTG.EQ.3I  GO  TO  890 
IF  (LSCI  920,960,920 
890  IFL=1 

GO  TO  300 

900  IF  CLSC-2)  910,930,920 
910  LSTC=0 
920  LD0UB=2 
GO  TO  80 
930  LSTC-1 
LSC=0 
GO  TO  80 

940  IF  (LSC ) 300,80,300 


950 


960 


970 


HALVE  H 
HH=FAC(2>*HH 

IF  <LSTC.LT. 2)  GO  TO  990 
ERND=P25*ERND 

IN  LOOP  TO  FINO  A NEW  INITIAL  STEPSIZE 
IF  <ERND.GE.P1I  GO  TO  950 
LSTC*4 
LSC  *4 

DO  970  1=1, NE 
KQ<I) =1 


CONTINUE 
IF  CLSTC-3) 


8 90,890,1170 


OVDQ  684 
OVDQ  685 
OVOQ  666 
OVDQ  887  5 

OVOQ  888  f 
OVOQ  669 
OVDQ  890 
OVOQ  891 
OVDQ  692 
OVOQ  893 
OVOQ  894 
OVOQ  895 
OVOQ  896 
OVDQ  697  j 
OVOQ  698 
OVOQ.  899 
OVOQ  98’i 
OVOQ  981  " 
OVOQ  902 
OVOQ  933 
OVOQ  904 
OVOQ  905 
OVOQ  906 
OVOQ  90  7 
OVOQ  908 
OVOQ  909 
OVOQ  910 
OVOQ  911 
OVDQ  912 
OVOQ  913 
OVOQ  914  j 
OVOQ  915 
OVOQ  916 
OVOQ  917 
OVOQ  918 
OVOQ  919 
OVOQ  920 
OVOQ  921  i 
OVOQ  922  j 
OVOQ  923  I 
OVOQ  924  | 

OVOQ  925 
OVOQ  926  j 
OVOQ  927  4 
OVOQ  928  i 
OVOQ  929  j 
OVOQ  930  j 
OVOQ  931  I 
OVOQ  932  ! 

OVOQ  933  j 
OVDQ  934  j 
OVOQ  935  ; 
OVOQ  936 
OVOQ  937 
OVOQ  936 
OVOQ  939  j 
OVOQ  940  j 
OVOQ  941  I 
OVOQ  942  I 
OVOQ  943  1 


ENTRY  AFTER  IFLA G*7 
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980  IF  (LD0U3, EQ, 0 I GO  TO  990 
LSC=1 
LSTC=1 
GO  TO  140 

C TEST  TO  SEE  IF  M IS  TOO  SMALL  FOR  HALVING 
990  IF  (ABS (HH) .GE.HNI K)  GO  TO  1049 
IF  (IFL.EQ.7)  GO  TO  1010 
iCOO  IFL*7 

GO  TO  1020 
C 

1010  HH=HH+HH 
IFL=2 
10  20  H=HH 

GO  TO  310 


ERROR  CRITERIA  PERMIT  DOUBLING 
1030  HH=HH+HH 

IF  (LSTC.EQ.l)  GO  TO  1050 
LSC=-3 

10 A0  LST C=-l 


CHANGE  THE  STEPSIZE 
1050  OO  1160  1=1, NE 
KQQ=KQ(  I) 

IF  (KQQ.NE.l)  GO  TO  1070 
DT(6» I)=0  « 

DC3)=OT(3,I)*PT«2) 

IF  (0(3)  .GT.PT(3))  LS C=-6 
IF  (LOOUe.NE.Q)  GO  TO  1060 
KQM=8 

IF  ID (3) ,GE,PT (5  ))  OT  (7, 1 )=DT  (7, 1)  *PT  12) 
0(3)  = 0(3 )/PT (3  ) 

1060  DT(3, I)=0 (3) 

GO  TO  1160 


BEGINNING  OF  LOOP  FOR  CHANGING  DIFFERENCE  TABLE  TO 
CORRESPOND  TO  NEW  VALUE  OF  H 
1070  OO  1060  K=1,KQQ 

0(K)=0T(K*I)/PT(K) 

IF  CLDOUB.EQ.O)  0 (K ) =0  (K) /PT «) 

CONTINUE 
KQQ2=KQQ-2 

IF  (KQQ2)  1168,1140,1090 
1090  OO  1130  J=1 , KQQ2 

IF  (LOOUB • NE.O ) GO  TO  1110 


HALVE 
K=K  QQ 


1100 


01 


K-i)=D(K-i)+D(K) 


K=K-i 


IF  (*«• J-KQQ)  1130,1130*1100 


DOUBLE 

1110  DO  1120  K=  J*  KQQ2 

D (K+l )=Q (K*l  )-0  IK  + 2) 
1120  CONTINUE 

1130  CONTINUE 
C 

1140  OO  1150  K=2»  KQQ 


OVDQ  944 
DVOQ  945 
OVOQ  946 
' DVOQ  947 
DVDQ  946 
DVOQ  949 
DVOQ  950 
DVDQ  951 
DVOQ  952 
DVDQ  953 
DVOQ  954 
OVOQ  955 
OVDQ  956 
OVDQ  957 
DVDQ  958 
OVDQ  959 
OVDQ  960 
DVDQ  961 
DVOQ  962 
OVDQ  963 
OVDQ  964 
DVDQ  965 
OVOQ  966 
OVOQ  967 
OVOQ  968 
DVOQ  969 
OVOQ  970 
DVDQ  971 
OVOQ  972 
OVDQ  973 
OVDQ  974 
OVOQ  975 
OVDQ  976 
OVDQ  977 
OVOQ  978 
DVOQ  979 
OVDQ  960 
OVDQ  981 
DVDQ  962 
OVDQ  963 
DVDQ  984 
DVDQ  985 
OVOQ  966 
OVOQ  967 
OVOQ  988 
OVDQ  989 
OVDQ  990 
OVOQ  991 
DVOQ  992 
OVDQ  993 
DVDQ  994 
OVOQ  995 
OVOQ  996 
OVDQ  997 
OVDQ  998 
OVOQ  999 
DVOQIO DC 
bvDQlOOl 
OVDQ1002 
OVOQ 1003 
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1150 


1160 

1170 


1180 


1190 

1200 

4000 


IF  CLDOUB.NE.O)  DCK)=0(K)*PTC<> 

OT (Kfl 1=0  CKJ*PT (K) 

CONTINUE 

DIFFERENCE  TABLE  NOW  CORRESPONDS  TO  NEK  VALUE  OF  H 

CONTINUE 

H=HH 

IF  CLDOUB.NE.O)  GO  TO  75 
LFD=1 

IF  (LSTC.GE.0)  GO  TO  220 

LD0UB=-3 

LSC=LSTC-KQM 

GO  TO  2 20 

END  OF  CHANGING  STEPSIZE 


K=I FL-5 

GO  TO  (220,98  0,1200,1570,1578,1728,1720,80,148  0,1450,1638,1570), 


ILLEGAL  VALUE  OF  PARAMETER 
IFL  = 8 
GO  TO  310 
WRITE  (6,4000) 

FORMAT  (26H0IFLAG=8  IN  CALL  TO  OV3Q1.) 
STOP 


INTEGRATION  CAN  NOT  PROCEED 


1210  IF  (T-TFINAL)  200,1190,  200 
1220  IFL  = 4 

IF  (KSTEP.NE.O)  GO  TO  1270 
TPD2=TP0 

i ESTIMATE  ERROR  MHEN  EXTRAPOLATION  FROM  INITIAL  POINT  IS  REQUESTEO 

1230  HH=HH*TPD1*P75 

I 

IFLS= IF  L 
IFL=-i 
GO  TO  230 


DVOQ10Q4 
OVOCUOC5 
DVOQIO  0 6 
OVOQIO 07 
OVOQIO 08 
OVOQ1O09 
OVOQIO 10 
OVOQlOll 
OVOQIO 12 
OVOQIO 13 
OVOQIO 14 
OVOQIO 15 
OVDQlLib 
DVOQIO 17 
OVOQIO 18 
OVOQIO 19 
OV  OQ10  20 
KO VOQIO 21 
OVOQ1022 
OVOQIO  23 
OVOQIO 24 
OVOQIO  25 
OVOQIO  26 
OVOQIO 27 
OVOQIO  28 
OVOQ1029 
OVOQIO  30 
OVOQIO  31 
OVOQIO  32 
OVOQIO 33 
DVOQIO 34 
OVOQIO  35 
0V0Q1C36 
OVOQIO 37 
OVOQIO  38 
OVOQIO  39 
OVOQIO  40 
OVOQIO  41 
OVOQIO  42 
DVOQIO 43 


1240  IF  <(LGSD.EQ.O>.OR.tIFLS,NE.4l  ) G3  TO  60 
LGSE=-1 
TPD=FAC  (1) 

GO  TO  1820 
1250  HH=H 

IF  CEMAX.LT. P01)  GO  TO  1260 

C ERROR  IS  TOO  LARGE,  REOUCE  H ANO  REPEAT  THE  FIRST  STEP 

IF  CTPOl.LT .0.  ) GO  TO  1190 
LOOUB=l 

ERN0=FAC(1)/TPD1 
ERND=ERNQ*ERND*P25 
GO  TC  9 50 
C 

1260  IFL=IFLS 

IF  (IFL.NE.4)  GO  TO  1790 

TPO=TPD2 

IFLAG=3 

1270  IF  CTPOi.GT.TPO)  GC  TO  1280 
T=TFINAL 

tpo-tpdi 


OVOQIO  44 
OVOQ1045 
OVOQIO 46 
OVOQIO 47 
OVOQIO  4 8 
OVOQIO 49 
OVOQIO  50 
OVOQIO 51 
OVOQIO  52 
OVOQIO  53 
OVOQIO  54 
OVOQIO  5 5 
OVOQIO  56 
OVOQIO  57 
OVOQIO  58 
OVOQIO  59 
OVOQIO 60 
DVOQIO 61 
OV0Q1062 
OVOQlQ  63 
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GO  TO  1290 
1280  T=T0UT 
IFL=3 

1290  IF  ((TPD.EQ.O.I.ANC.  ( IFLAG.LE.2I)  GO  TO  310 

INTERPOLATE  FOR  OUTPUT 
1300  TP=TP0 
OI2MTP 
KQQ 2=0 
KOC=Q 

OlllaPTCli 
DOC  1)=PT(  1) 

OO  1310  K=  2*KQM 
00(1 ) =0011! +PT (1) 

TP=TP+PT(1> 

D(K+1I=(D(K) *TP)/00 (1) 

1310  CONTINUE 
i GO  TO  1350 

COMPUTE  THE  INTERPOLATING  INTEGRATION  COEFFICIENTS 
1320  KQQ2=1 

L=KQM-KOC 

KOC=KOC+1 

1330  IF  (L.LE.OI  GO  TO  1350 
TP=  0. 

K=L 

J=L*KDC 
1 340  JS=J-K 

TP=TP+GAS(KI*D( JS*i) 

IF  (K.GT.O  I GO  TO  134(1 
0( J)=TP 

O(J)  IS  THE  INTEGRATION  COEFFICIENT  FOR  THE  INTERPOLATION  WHICH 
CORRESPONDS  TO  6AH( J-KDC.KDC) • 


L=L-1 
GO  TO  1330 

ENO  OF  COMPUTING  INTEGRATION  COEFFICIENTS 

PERFORM  THE  PARTIAL  STEP  INTEGRATION 
1350  J-0 

OO  1415  1=1, NE 
KDD=KD ( II 

IF  (KDC.GT.KDO)  GO  TO  1410 
TP=  0 • 

KQQ=KQ( I)  + KQQ2 
1360  L=KQQ-KOC 

IF  (L.LE.0I  GO  TO  1370 
TP=TP*0(KQQ)*OTCL,I> 

KQQ=KQQ-1 

IF  (KQQ)  1390,1390,1360 
1370  K=J+K00 
L=KDC 
1380  L=L-1 

IF  (L.EQ.0)  GO  TO  1400 

TP=TP*HH+YN(KI*FAC(LI*TPO 

K=K»1 

GO  TO  1380 
1390  Fill -TP 


OVOQlO  (4 
00001065  \ 

0*001066  I 

OVOQlO €7  f 
0*001066  1 
0*0010  69 
0*001070 
DVDQ1071 
0*0010  72 
OVDQ1073 
0*001074  I 
0*001075  { 

OVOQlO  76  \ 

0*001077 
0*001076 
0*001079 
0*001060 
0*001081 
0*001082  ‘ 
DVOQ106  3 
0*001084 
6*001085 
0/001086 
6*001087  I 
0*001068 
0*001089  1 

0*001090  ; 

OVDQ1C91 
0*001092 
0*001053 
0*001094 
0*001095 
OVOQlO  96 
0*001097 
0*001098 
0*001099 
OVOOllOO 
0*001101 
0VOQ1102 
0*001103 
OVDQ1104 
0*001105 
0*001106 
0*001107 
0VDQ11Q8 
0* OQ 1109 
0*001110 
0*001111 
0*001112 
0*001113 
0*001114 
0*001115 
0*001116 
0V0Q1117 
0*001118 
0*001119 
OVOQll 20 
0*001121 
0*001122 
0*001123 


190 


o o o o o o o o o o 


1400 

1410 

1415 

Cl 

1420 

1425 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 
1 510 

1520 

1530 

1540 
1 550 
1560 

1570 

1580 

1590 

C 

1600 


GO  TO  1415 

0V0Q1124 

YCKI=YN(K»+HH*TP 

OVDQ1125 

J=J*KOO 

OVOQH26 

CONTINUE 

DV0Q1127 

IF  (KOC.NE.KDHAX)  GO  TO  1320 

0V0Q1128 

ENO  OF  PARTIAL  STEP  INTEGRATION 

OVDQ1129 

IF  <LGSE>  1800 •310*1810 

DVDQ1130 

0V0Q1131 

INITIALIZE  FOR  GSTOPS 

0VDQ1132 

NGA*IABS(NG1 

0VDQ1133 

LGSSs-NGA 

DVDQli 34 

LGS0=0 

OVOQll 35 

LGSE-0 

OVDQll 36 

IFLG=-20 

OVDQll 37 

IF  (NG)  1425,315*315 

OVOQ1138 

IFLG=-IFL 

OVOQll 39 

IFLG=-IFL 

OVOO1140 

LGSD=NGE 

0VDQ1141 

IF  (LGSO)  1190*1450*1440 

OVDQll 42 

IFL=15 

OVDQ11 43 

GO  TO  1470 

OVDQll 44 

ENTRY  WITH  IFL=15 

OVOQ1145 

LGSS=0 

OVOQll 46 

IF  ( LGSO-NGA)  1460*148  0*1190 

DVD01147 

LGSS=LGSD«-1 

OVOQll 48 

IFL=14 

OVOQ1149 

IFLAG=IFL-5 

OVOQ1150 

GO  TO  315 

OVDQll 51 

ENTRY  WITH  IFL‘14 

OVOQll 52 

OO  1490  I=1*NGA 

DVDQUS3 

GT ( I ) =G  (I? 

OVOQll 54 

CONTINUE 

OVOQll 55 

GO  TO  1730 

OVOQll 56 

ENO  OF  INITIALIZATION  FOR  GSTOPS 

OVOQll £7 

OVOQll 58 

ENTRY  TO  EVALUATE  G AT  THE  END  OF  THE 

STEP 

OVDQll 59 

LGS  E=  1 

OVOQU60 

IGK=LGSS 

ovoQiiei 

IFLG=0 

OVOQ1162 

IFL  = 9 

OVDQll 63 

GO  TO  310 

OVDQll £4 

ENTRY  TO  EVALUATE  G BEFORE  EVALUATING 

THE  DERIVATIVES 

OVOQll £5 

IFLG=IFL 

OVOQll 66 

IFL=1C 

OVDQll 67 

IFLAG=1 0 

OVOQll 68 

IGKM=LGSO 

OVDQll 69 

IGK  = 1 

OVOQll 70 

GO  TO  315 

* 

OVOQll 71 

IGK=IGK  +1 

OVOQll 72 

IF  (IGK.GT.IGKMI  GO  TO  1650 

OVOQll 73 

ENTRY  WITH  IFL=9,10»  ANO  17 

i 

OVOQ1174 

TEST  FOR  G CHANGING  SIGN 

bVDQli 75 

IF  (G  ( I GK)*GT  (IGK)  ) 160  6*1580*1593 

GjVDQll  76 

IF  (GT  ( IGIO  »NE*0  • ) GO  TO  1660 

OVDQll 77 

IF  (TL.EQ.TG)  GO  TO  1560 

0jVDQ1178 

IF  (LGSE.GT.O)  GT  ( IG  K)  = G ( IG  K) 

OVDQll 79 

GO  TO  1560 

OvoQiieo 

G CHANGES  SIGN  --  PREPARE  FOR  ITERATION  TO  FIND  ZERO 

OVOQll 61 

NSTOPsIGK 

OVOQll 82 

IFLGSsIFL 

OVOQll 63 
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COMPUTE  INITIAL  VALUE  FOR  RG  C*RATIO  OF  PARTIAL  STEPSIZE  WHERE 
G IS  KNOWN/THE  INTEGRATION  STEPSIZE) 

IF  (IFLG.EQ.0)  GO  TO  1616 
RG(3>=FAC< 1) 

RGC2)=0. 

IF  ( (IFLG.EQ.2)  .ANO.  (IGK.LT.LGSS)  > RG(2)=FAC(1) 

GO  TO  1620 
1610  RG  ( 3 ) - 0 • 

RG(2)=-FAC 111 

1620  IF  (LGSE.LT.O)  RG(3)*TPO 
LGSE=-3 
GI  (2)=GTCIGK) 

EPSGS=RNO 
IFL=16 
K-l 

GO  TO  1640 

ENO  OF  PREPARATION  TC  BEGIN  THE  ITERATIC) 

ENTRY  WITH  IFL=16 
ITERATE  TO  FIND  GSTOP 
1630  K=1 

IF  ( ( GI  ( 2 ) + G ( I GK ) ) • GT.  0 « ) K=2 
IF  (A9S (GI(KI ) .GT.ABSIG(IGK)))  GO  TO  1640 
CONVERGENCE  PROBLEMS 
LGSE=LGSE-1 

IF  (LGSE.EQ.f-5) > £PSGS=PTS1 
EPSGS=EPSGS*PTS4 
1640  GI  (K)  = G (IGK) 

RGCK) =RGf 3) 

SECANT  ITERATION  (GIVES  NEW  PARTIAL  STEPSIZE/H) 

TP  D=RG ( 1 ) - ( GI (1)*(RG(2) -RG(1) ) ) /( SI ( 2) -GI ( 1 ) I 
T=TL+TPD*HH 

TEST  FOR  CONVERGENCE  CF  ITERATION 
IF  (ABSCTPO-RGC3I)  .LE.EPSGS)  GO  T3  1560 
RG ( 3 ) =TPD 
GO  TO  1300 

1650  IF  (10-IFL)  1660, 1700,100 
1660  IF  (IGKM.NE.NGA)  GO  TO  1710 
IF  (LGSE.GT.C-3) ) GO  TO  1690 
IF  (LSTC.NE.4)  GO  TO  1670 

ESTIMATE  ERROR  --  GSTOP  IS  THE  RESULT  OF  EXTRAPOLATING  FROM 
THE  INITIAL  POINT 
TPQ1=TPD 
RG ( 3) =TPD 
GO  TO  1230 
1670  IFL  = 11 

IF  (LGSE.LT.C-4)>  IFL=12 
1680  IFL AG=I FL 

C TEST  TO  SEE  IF  GSTOP  IS  PRECEDEO  3Y  ANOTHER  STOP 

IF  ((HHMT-TOUT*  .LE.O.).ANO.(HHMT-TFINAL)  *LE.0.;>  GO  TO  1300 
C IT  IS 

RG( 3)=TPO 
IFLS=IFL 
GO  TO  200 
1690  LGSE=1 

IFL=IFLG 

IF  (IFL.LT.O)  GO  TO  60 
1700  IGKM=NGA 
IFL=IFLG 
GO  TO  310 


OVOQ11 84 
OVOQ1185 
OVOQ1186 
0V0Q1187 

ovooiiee 

OVOQ118  9 
OVOQ1190 
0V0Q1191 
OVGQ11 92 
OVOQ1193 
0V0Q1194 
OVOQ1195 
OVOQ.ll  96 
0V0Q1197 
DV0Q1198 
0V0Q1199 
OVDQ1200 
OVOQ1201 
DVDQ120  2 
DVDQ1203 
0V0Q12C4 
0V0Q12C5 
OVOQ1206 
OVOQ1207 
OVDQ1208 
OVOQ1209 
OVOQ1210 
OVOQ1211 
0VDQ1212 
0V0Q1213 
0V0Q1214 
0V0Q1215 
0V0Q1216 
OVDQ1217 
OVDQ1218 
0V0Q1219 
OVOCU220 
OVDQ1221 
G V DQ 1 2 2 2 
OVOQi 2 23 
0V0Q1224 
OVOQ12  25 
0V0Q1226 
OVOQ1227 
0VDQ1228 
OVOQ1229 
0V0Q123C 
0V0Q1231 
0V0Q1222 
0VDQ1233 
OVOQ1234 
OVDQ1235 
0V0Q1236 
OVOQ1237 
0V0Q12  38 
OVOQ1239 
OV0Q1240 
0V0Q1241 
0V0Q1242 
OVOQ1243 
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1710  IFL=17 
IFL AG=  9 
IGKM=NGA 
GO  TO  315 

ENTRY  WITH  IFL*11  ANC  12 

SET  PARAMETERS  TO  INCICATE  A GSTO*  HAS  BEEN  FOUNO 
1720  GT  ( NSTOP)  *0  • 

1730  LGSE=1 

IGKMsNGA 

TG-TL 

IF  (IFLG)  1740*1760.1770 
1740  IF  CIFL.LT.13)  GO  TO  1750 

IF  (IFLG.EQ.(-20»  GO  TO  100 
IFL.S-IFLG 
GO  TG  310 
1750  HH*H 

GO  TO  200 
1760  TPO=0. 

T=TL 
LGSE=-2 
GO  TO  1300 

1770  IF  CIFLG-3)  220,200,  200 
1 780  IF  (LGSE.EQ.  (-11)  GO  TO  1790 
LGSE=-i 
GO  TO  1220 
1790  TPO-RG (3) 

T=TL+TPO*HH 

IF  (LGSE.NE.I-1) ) GO  TO  1670 

IFL=IFLS 

LGSE=-3 

GO  TO  1680 

1800  IF  (LGSE+2 ) 1550*1500,310 
1810  IF  (TPD.LE.C.I  GO  TO  310 
LGS  E=-2 
1820  IFLG=IFL 
. IFL=17 
IFLAG=9 

IF  (LGSO  .GT.  0)  GO  TO  1530 

GO  TO  1 540 
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EXAMPLE  PROBLEM  PRINTOUT 


PBOXC 


PROGRAM  PBOXC 
BODY  ID.  TEST 

PAR 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD.  MASSACHUSETTS 

TEST  BOO  Y 

AMETRIC  INFORMATION 


NO  SYMMETRY  SPECIFIED 
PLOTS  ARE  PREPAREO 
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PROGRAM  PBOXC 


BOOY  10.  TEST 


AT fOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD*  MASSACHUSETTS 

TEST  BOO  Y 
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M 

X 

X 

X 

X 

NX 

NPX 

Y 

Y 

Y 

Y 

NY 

NPY 

Z 

2 

z 

Z 

. NZ 

NPZ  . 

1 

2.000000 

2.000000 

1.500000 

1.  500000 

.958086 

1.  591395 

0. 000000 

0.000000 

1.678000 

1.  732000 

.276584 

1.389794 

0. 000000 

0.009000 

•229700 

0. 000900 

.074655 

. 094899 

2 

2. 000000 

2.000000 

1.500900 

1. 500000 

.941794 

1.  598349 

0.000000 

0.00  0090 

1.460000 

1.679000 

•251249 

1.254020 

0.000000 

0.000000 

•465900 

.229700 

.223380 

.292927 

3 

2.000000 

2.000000 

1.  500000 

1.50030Q 

.915363  ’ 

1.  60  5113 

0.000800 

c. oooooo 

1.148090 

1.460060 

.202414 

1.  019539 

0.000000 

0.000900 

• 652300 

.465900 

.348052 

• 4456i2 

4 

2.000000 

2.800000 

1.500000 

1. 568000 

.851771 

1.  609275 

8.000000 

0.000080 

• 600000 

1.140  000 

.146221 

.750320 

8.000000 

8.000000 

.768100 

.652000 

.428  210 

.55  7494 

5 

2.000000 

2.000008 

1.500009 

1. 500000 

.874522 

1.  620269 

0. 000000 

0.000000 

.400000 

. 800080 

.088602 

.447901 

0. 000000 

G. 000800 

• 642600 

.768100 

.476787 

.613081 

6 

2.003000 

2.000000 

1.500000 

1.500000 

.865649 

1.  62  4811 

0. 000800 

0.008000 

0.800000 

•400008 

. 029238 

. 1470  89 

0.000000 

0.000000 

.866800 

•842600 

.499797 

.641222 

7 

2. 000900 

2.000000 

1.500900 

1. 590909 

.863087 

1.  62  60  41 

0.000000 

0.000000 

-.400000 

0. OOOOOO  - 

-.082222 

-.  148316 

0. 000000 

0. oooooo 

•808000 

. 866000 

.498318 

. 623224 

8 

2.900000 

2.000000 

1.509000 

1. 508000 

.872872 

1.  627233 

0. 090000 

0.000000 

-.800000 

-.400990 

-.218218 

-.442846 

0.900000 

0.000800 

•600900 

.800000 

. 436436 

.524111 

9 

2.000000  . 

2. OOOOOO 

1.580000 

1. 500000 

.872872 

1.618821 

0.390000 

0.000000 

-1.200003 

-.6  fiCOOO 

-.218218 

-.  751160 

0.909000 

0.000000 

.400000 

.600060 

.436436 

• 38  6778 

10 

2.980  890 

2.000000 

1.5  00000 

1. 500900 

.872872 

1.  €0  7148 

0.300090 

0.000000 

- 1.600000 

-1. 200000 

-.218218 

-1.  08  5976 

0.090000 

Q.0C0000 

•280000 

• 400000 

.436436 

. 242716 

11 

2.300000 

2.000000 

1.500000 

1. 500000 

.945063 

1.  589795 

0.000000 

8.000000 

- 1.732000 

-1.600000 

-.272824 

-1.365206 

0.000000 

0.000000 

0.000000 

. 200000 

.180064 

• 09  44  64 

12 

2. 900000 

- 2.000000 

1.503000 

1.  590  CO 0 

.958086 

1.  591395 

0.900000 

0.000000 

-1.670000 

-1.732000 

-.276584 

-1.389794 

0. 900000 

0.000000 

-.229700 

0.000000 

-.074655 

-.094899 

;ic  scie 

NCE  ASSOCIATES 

RD,  MASSACHUSETTS 

X 

X 

Y 

Y 

Z 

Z 

>*0000 

1. 500000 

►7000  0 

1.  732000 

>29700 

> ■ 

0. OQOUOO 

i 00 300 

1.500000 

^60 00  0 

1.670000 

465900 

i «. : 

.229700 

500000 

1.500000 

148000 

1.4600 CO 

652(300 

[' 

booooo 

.465900 

1. 500000 

BOO  00  0 

1. 140300 

768100 

f- 

.652000 

503003 

1. 500000 

pOOOOO 
B4260  9 

r 

. 800000 

.768100 

jsoooco 

1.500000 

ifltiiooo 

. 400000 

©6600  0 

•642600 

feaoooo 

1. 509009 

400000 

0. 000000 

*00  00  0 

. 866000 

[5  0000  0 

1. 500000 

*00  88  0 

-.409000 

16000.0  0 

. 600000 

[500000 

1. 500000 

‘200  00  3 

-.6  Cl  GUO 

[4  00  900 

.600000 

5 00003 

1.  5 3300  0 

600  30  0 

-1. 200000 

200000 

. 400000 

500000 

1. 500000 

73200  0 

-1.600000 

*00900 

. 200000 

500000 

1. 500000 

670000 

-1. 732000 

22970  0 

0.000080 
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NX 

N?  X 

NY 

NPY 

NZ 

N=Z 

.956086 

1.  591395 

.276584 

1.389794 

.074655 

• 094899 

.941794 

1. 598349 

.251249 

1.25  4920 

.223380 

. 292927 

• 915363  ’ 

1.  60  5113 

.202414 

1.  019539 

•348052 

.445612 

.691771 

1.  609275 

.146221 

.750320 

. 428  210 

. 55  7494 

.874522 

1.  620269 

.08680  2 

.447901 

.476787 

. 613081 

.865649 

1.  624811 

.029238 

. 1470  89 

.499797 

.641222 

.863087 

1.  62  60  41 

-.082222 

-.  148316 

.498318 

. 623224 

.872872 

1.  627233 

- .218218 

- • 442  8 46 

. 43643  6 

.524111 

.872872 

1.  618821 

-.218218 

-• 751160 

. 43643  6 

.386778 

.872872 

1.  €0  7148 

-.218218 

-1.  08  5976 

.436436 

. 242716 

.945063 

1. 589795 

-.272824 

-1.365206 

.180064 

• 09  4464 

.958086 

1.  591395 

-.276584 

-1. 389794 

-.074655 

-.094899 

0 

T 

A 

0. 

• 18  C3E+G1 

• 2076E+00 

•8882E-15 
• 1758E+01 

• 23  50 £+00 

• 2665E-14 
•1612E+01 
•2299E+00 

.2665E- 1 A 
•1405E+01 

• 1 9 6 5 E+  0 0 

• 999  2 £-15 
•1217E+01 

• 2 0 9 7 E+  0 0 

• 2220E- 15 

• 10  58  £+01 

• 20UE+C0 

•2220E-15 
• 1025E+01 
•20C7E+00 

•8882E-15 
• 1118E+01 

• 229 1E+  00 

.17 J6E-14 
•136CE+01 
•2291E+00 

• 888  2 E- 15 
•1688E+01 
•2291E+00 

0. 

• 18C3E+Q1 

• 1833E+00 

0 . 

• 18C3E+01 
.20  76E  + 00 
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PROGRAM  PBOXC 
BODY  10.  TEST 


ATMOSPHERIC  SCIENCE-  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


TEST  BODY 


M 

X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

Z 

z 

z 

Z 

NZ 

13 

2.000000 

2.  800000 

1.500000 

1. 500000 

.941 794 

0.000000 

0.800800 

- 1.460000 

-1.670000 

-.251249 

0. 030000 

0.000000 

-.465900 

-.229700 

-.223383 

14 

2.000000 

2.  000000 

1.590000 

1.500000 

‘ .915363 

0. 000000 

0 . 00  COO  0 

- 1.  140000 

-1.4  69  000 

-.202414 

0.30000  0 

0.000000 

-.652000 

-.465900 

-.348052 

15 

2.300000 

2. 000000 

1.500000 

1. 500000 

.891771 

0.000000 

0. 000000 

-.8  0000  0 

-1.  140000 

-.146221 

0.000000 

0.000000 

-.76810(1 

-.652000 

-.428  210 

16 

2.000000 

2.  000000 

1.500000 

1. 590000 

.874522 

Q. 000000 

Q. 00  0000 

-.400090 

-.800000 

-.088802 

0. 000000 

0. 000000 

-.842600 

-.768100 

-.476787 

17  

2. 000000 

2. 000000 

1.500000 

1. 500000 

. 865649 

o rouiv 84  a _ 

O.OCGOOO 

13.000000 

-.400000 

-.029238 

0. 003000 

r.  013  0300- 

“• 866000 

-.842600 

-.499797 

18 

2.000000 

2.000000 

1.500000 

1. 500000 

.865649 

0.000030 

0.000000 

• 4 00  QUO 

0.000000 

.029238 

0. 000000 

0. 000000 

-.842600 

-.866000 

-.499797 

19 

2.300000 

2. 000000 

1.500000 

1. 500000 

.874522 

0.000000 

0.090000 

• 8 00008 

• 400000 

.088802 

0.000000 

0. 000000 

-.768100 

-.  8426(30 

-.476787 

20 

2.030000 

2. 090000 

1.5  00000 

1.500000 

.891771 

0.000000 

0.  000000 

1.140000 

•800000 

.146221 

C. 000000 

0.090000 

-. 652000 

-.768100 

-.428210 

21 

2.000000 

2.000000 

1.500000 

1. 500000 

.915363 

0. 300000 

0. 090000 

1.460000 

1.140000 

.202414 

0. 000000 

0.000000 

-.465900 

-. 652000 

-.348052 

22 

2.000000 

2. 000000 

1.500000 

1. 500000 

.941794 

0.003000 

0.090000 

1.670000 

1. 460000 

.251249 

C. 30000  0 

0 . 08  Q 000 

-.229700 

-.465900 

-.223389 

23 

2.  000000 

2. ooooao 

1.500000 

1. 500000 

.958986 

0.000000 

C. CflOOOO 

1.732000 

1.670000 

.276584 

0.000000 

0 .000090 

0.300000 

-.229700 

-.074655 

1 

1.5G000  0 

1.  50  0000 

1.000000 

1.000000 

.435365 

1.732000 

1.670000 

1.870000 

2. 800000 

.655263 

0. 03000Q 

.229700 

.354600 

9.000000 

.281038 

PAGE 


NPX 

NPY 

NPZ 


1.  59  83  49, 
■1.25  4020' 
-. 282927 


1.  €0  5113 
■1.019539 
-. 4456121 


1.609275 
-.750320 
-.  557494 


1.  62  0~2  69 
-.447901 
-.613081 


1.  62  4811 
-.147089 
-. 641222 


1.  62  4311 
. 147089 
-.641222 


1.  62G  269 
.447901 
-.613081 


1. 609275 
. 750320 
-.557494 


1.  605113 
1.019539  i 
-.*♦45612  J 

n 


1.  59  83  49 
1.  25  40  20  jj 
-.26  2927  1 

i 

1 

1.  591395  i 
1.389794  1 
-.094899  ! 


1.  220560  j 
1.831729  | 
. 14  9900  -i 


Fouxxir  fmn  I 
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X 

NX 

NPX 

0 

V 

NY 

NPY 

T 

z 

NZ 

NPZ 

A 

10  0 

1. 500000 

.941 794 

1.598349 

• 8882E-15 

too 

*1.670000 

-.251249 

-1.25  4020 

. 17  58E+01 

>0  0 

f 

-.229700 

-.223380 

-.282927 

• 23  50 E+ 00 

10  0 

1. 500000 

• .915363 

1.  60  5113 

•2665E- 14 

too 

-1.460000 

-.202414 

-1.019539 

• 1612E+01 

10  0 

-.465900 

-.348052 

-.44  5612 

•2299E+O0 

10  0 

1. 500000 

.891771 

1.60  9275 

• 266  5E- 14 

loo 

-1.  14QQC0 

-.146221 

-.750320 

•1405E+Q1 

Loo 

-.652000 

* ,428  210 

-.  55  7494 

.19856*00 

10  0 

1.  500000 

.874522 

1.  62IT269 

. 9992E-15 

loo 

-.800000 

-.088802 

-.447901 

•12176+01 

>0  0 

-.768100 

-.476787 

-.613081 

•2097E+00 

r 

loo 

1. 500000 

.865649 

1.  62  4811 

•2220E-15 

30  3 

-• 400000 

-.029238 

-.147089 

.10586*01 

BOO 

L 

-.842600 

-.499797 

• -.641222 

•2001E+00 

loo 

1.  500000 

.865649 

1.  62  4811 

•22206-15 

Koo 

0. 000000 

.029238 

. 147089 

.1056E+01 

loo 

1:. 

-.866000 

-.499797 

-.641222 

.20016*00 

boo 

1. 500000 

.874522 

1.  620  269 

•9992E-15 

00  0 

. 400000 

.088802 

.447901 

•12176*01 

koo 

1 

-. 842600 

-.476787 

-.613081 

• 20  97E+00 

•GO 

1. 500000 

.891771 

1.609275 

.26656-14 

BOO 

•800000 

.146221 

.750320 

• 140  5E+ 01 

BOO 

[ 

-.766100 

-.428  210 

-.557494 

•19856*00 

BOO 

1. 5QGQG0 

.915363 

1.  60  5113 

. 2665  E- 14 

loo 

1.  140000 

• 2C2414 

1.019539 

•1612E*01 

90  0 

l 

-.  652000 

-.348052 

-.*♦45612 

.22996+00 

boo 

1. 500000 

.941794 

1.  59  83  49 

• 88  82E- 15 

BOO 

1. 460000 

.251249 

1.  25  40  20 

•1758E+01 

jjroo 

-.465900 

-.223  38  0 

-.26  2927 

•23506+00 

BOO 

1. 500000 

• 958086 

1.  591395 

0. 

BOO 

1.67(1000 

.276584 

1.389794 

.18036+01 

boo 

j 

-.229700 

-.074655 

-. 094899 

•2076E+00 

poo 

1.000000 

.435365 

1.  220560 

.57646-02 

00  0 

2. 000000 

.655263 

1.831729 

. 64 16E+0  0 

boa 

1 

0. 000000 

.281038 

. 14  9900 

•17G8E+Q0 

*n  onur  tm,-, 
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BODY  ID 

. TEST 

TEST 

BODY 

N M 

X 

X 

X 

X 

NX 

f 

Y 

Y 

Y 

Y 

NY 

Vl 

Z 

Z 

Z 

Z 

NZ 

/ 

2 2 

1.500900 

1.500000 

1.000006 

1.009000 

• 350089 

1.670000 

1.460000 

1.600000 

1.870060 

• 652179 

.229700 

•465900 

•609000 

•354600 

•650004 

3 

1.500000 

1.  500000 

1.009000 

1.090000 

.324553 

1. 46000  Q 

1.140000 

1.206000 

1. 600000 

.447006 

.465900 

. 652000 

•800000 

.600000 

.833577 

4 

1.500000 

1.500000 

1.000000 

1.060000 

.288009 

1.140000 

.800000 

•809000 

1. 200000 

.287154 

•652000 

.768100 

.916500 

.600090 

.913561 

5 

1.500000 

1.500000 

1.000300 

1.000000 

.270929 

.809000 

.400000 

•400000 

.600000 

.163  401 

.768100 

•842600 

.979800 

.916500 

.948625 

« 

6 

1.509000 

1. 500000 

1. 000000 

1. 000000 

.261384 

.400000 

0 • 00 000  9 

0.000900 

. 409000 

.052527 

.842600 

• 666000 

1.000000 

. 979800 

.963805 

7 

1.500000 

1.500000 

1.  900000 

1.U9CG00 

.126140 

cn 

0.090000 

-.460000 

-.400000 

0.000000 

-.312996 

.866000 

•800000 

.8  00000 

1.000000 

.941341 

{ 

8 

1.500000 

1.500000 

1.000000 

1.000000 

0.009000 

V 

-.400000 

-•SO  0000 

-.800000 

-.400000 

-.447214 

.809000 

.600000 

.600000 

•600000 

.894427 

c 

9 

1.500000 

1. 500000 

1.000000 

1.000000 

0 • OGOOOO 

-.800000 

-1.200000 

-1.200000 

-.800000 

-.447214 

( 

•600090 

•400Q0C 

.400900 

• 606  OC  0 

.894427 

10 

1.500000 

1. 50 G 000 

1.000000 

1.600000 

0.000000 

C 

-1.200000 

-1. 600000 

-1.600000 

-1. 200000 

-.447214 

.400000 

•200000 

.200000 

.400000 

.894427 

c 

11 

1.500000 

1.500000 

1.000000 

1.000000 

.159008 

-1.600000 

-1.732000 

-£.000000 

-1.  609000 

-.59331 5 

. 200000 

0.  000  coo 

0.000000 

. 200000 

.789109 

f 

12 

1.500000 

1.  500000 

1.009000 

1.090000 

.435365 

-1.732000 

-1. 670000 

- 3.870000 

-2.  000000 

-.855263 

c 

0.000000 

-.229700 

-.354600 

0.000900 

-.281038 

13 

1.500000 

1. 500000 

1.000000 

1.900000 

.390089 

t~ 

- 1.670000 

-1.460000 

- 3.600900 

-1.870000 

-.652179 

\ 

-.229700 

-.465900 

-.600000 

-.354600 

-.650004 

Fotoour 
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I 

i • 
: 

l 

f 

F 

f 

1 

i 

l 


NX 

NY 

NZ 

• 398089 

• 652 17  U 
.65000  A 

.324553 

.447006 

.833577 

.268009 
. 287154 
.913561 

.270929 
.163  401 
.948625 

.261384 

.052527 

.963805 

• 126140 
-.312996 

.941341 

0.000000 

-.447214 

.894427 

O.OGOCOO 

-.447214 

.894427 

0.000000 

-.447214 

.894427 

.159008 
-.59331 5 
.789109 

.435365 

-.855263 

-.281038 

.390089 

-.652170 

-.650004 


NPX 

NPY 

NPZ 

1. 241719 

1.  652830 
. 414680 

1. 241630 

1.351646 
. 6318  51 

1.242990 
. 985715 
. 76  6135 

1.  250160 
• 600086 
.876683 

i.  25  0 ,117 
. 200426 
.922054 

1.246098 

-.  199566 
.867167 

1.  25  00  00 

-.600000 

.700000 

1. 250000 
-1.  00  0000 
. 50  0000 

1. 250000 
-1.  400000 
. 3DOOCO 

1.  216789 
-1.739216 
. 10  20 18 

1.  220560 
-1.831729 

-.149900 

1.241719 
-1.  652830 

-.414660 


0 

T 

A 

•8288 E- 02 
•6561E+00 
•1846E+C0 

• 6043E-02 
.6814E+C0 
. 21 59E+  GO 

• 4216 E- 02 
•6600E+00 
.20  25E+  00 

•2656E-02 
» 6744E+00 
•21G8E+00 

•77 10E-G3 
• 65S4E+00 
.2075E+C0 

•3153E-01 
.67  C8E+00 
•2125E+GD 

•3553E-14 
.67C8E+00 
.2 236E+G0 

•3553 E- 14 
•67C8E+00 
.2236E+00 

. 66  61E- 14 
.67C8E+C0 
. 2236E+00 

•3975E- 01 

• 67  C8E+  00 
•1685E+0Q 

•5764E-02 
•6416E+0 0 
.1708E+00 

• 82  8 8E-02 
•656 1E+00 
•1846E+00 
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17 


18 
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20 


21 
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TEST 

BODY 

< 

i 

4 

X 

X 

X 

X 

NX 

NPX  | 

Y 

Y 

Y 

Y 

NY 

NPY  i 

Z 

Z 

Z 

Z 

NZ 

NP  Z 

1.500000 

1.500090 

1.000000 

1.  000.000 

’ >*“  ' *,  'V''  *.  ! • •'  » -* 

.324553 

i ??  , * m - .*  t * »f* 1 

1. 24  1 6 30  \ 

1.460000 

-1.  140080 

- S.  200000 

-1. 600000 

-.447006 

-1.351646 

-.465900 

-• 652000 

-.800000 

-.600000 

-.833577 

-.631851 

1.500000 

1.500009 

1.000000 

1.000000 

.288009 

1.242990 

1.140000 

-.800000 

-.800000 

-1.200000 

-.287154 

-.985715 

-.652090 

-.768100 

-.916500 

-.800000 

-.913561 

-.786135 

1.  500000 

1. 500000 

1.000000 

1.000000 

.270929 

1.250180 

-.800090 

-.40  0000 

-.400090 

-.880000 

-.163401 

-.600088 

-.768100 

-.842600 

-.979300 

-.916500 

-.948629 

-.  876683 

1.500000 

1.500000 

1.390000 

1.000000 

.261384 

1.250017 

-.400000  . 

0.000500 

0.000990 

-.408000 

-.052527 

-.200026 

-.842600 

-.866000 

-1.000003 

-.979800 

-.963805 

-. 922094 

1.500000 

1.509000 

1.000009 

1. 080000 

•261384 

1.250017 

0.000900 

• 400000 

.400000 

0.000000 

.052527 

. 200026 

-.866000 

-.842600 

-.979800 

-1.000000 

-.963805 

-.922094 

1.500003 

1. 500000 

1.000000 

1.080000 

.270929 

1.  250180 

•400000 

.890000 

.800008 

.400000 

.163401 

.600088 

-.842600 

-.768100 

-.916500 

-• 979800 

-.948629 

-.876683 

1.500000 

1.500000 

1. 005000 

1.000000 

.288009 

1.  242990 

•800000 

1.140000 

1.200000 

.690000 

.287154 

. 985715 

-.768100 

-.65  2000 

-.800000 

-.916500 

-.913561 

-.78  6135 

1.500000 

1. 500000 

i. aooooo 

1.  080000 

.324553 

1.  2416  30 

1. 140000 

1. 460030 

1.600000 

1. 200000 

.447006 

1.  351646 

652000 

-.465900 

-.600000 

-.800000 

-.833577 

-.631851 

1.500000 

1.500000 

1.000000 

1. 090000 

.390089 

1.241719 

1.463500 

1 . 670  000 

1.870000 

1.600000 

.652170 

1.  652830 

-.465900 

-.229700 

-.354600 

-.630000 

-.650004 

-.414680 

1.500000 

1.500000 

1.030000 

1.  8 00  09  0 

.435365 

1.220560 

1.670000 

1.732000 

2.000000 

1.870090 

.855263 

1.  831729 

-.229700 

0. OfiOOOO 

0.000000 

-.354609 

-.281038 

-.  149900 

1.000000 

1.000000 

0.000000 

0.090000 

0.008000 

. 500000 

2. aooooo 

1.870000 

1.870000 

2. 090000 

.938893 

1.  93  5000 

0.000000 

.354600 

.354600 

8.000000 

.344208 

. 177300 

1. 000000 

1.000900 

0. 000000 

0.009090 

0.000800 

.500000 

1.870000 

1.  60  0 000 

1.600000 

1.870000 

.672591 

1.  735000 

.354600 

•600000 

.600900 

.354600 

.748014 

.477300 

* 

j 


PAGE 


5 


ENCE  ASSOCIATES 
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X 

NX 

NPX 

0 

Y 

NY 

NPY 

T 

2 

N2 

NPZ 

A 

1.  0 0 0,000 

'’'.3'2'45'53'  ' 

■ "i.  &i63<r 

1*  690  90  0 

-.447006 

-1.351646 

•6814E+00 

..  609909 

-.833577 

-• 6318  51 

.2159E+00 

1.909000 

.286009 

1.242990 

. 4216E-02 

1.290000 

-.287154 

-.985715 

• 6600E+Q0 

-.800000 

-.913561 

-.78  6135 

• 20  25E+00 

1.000009 

•270929 

1.250180 

•2656E-02 

-.800090 

-.163401 

-.600088 

• 6744E+00 

-.916500 

-.948629 

-.876683 

•2108E400 

1.0  00000 

.261384 

1. 250017 

. 77 10 E- 03 

-.400090 

-.052527 

-.200026 

• 6594E+  00 

-.979800 

-.963805 

-. 922094 

.20  75E+00 

1.090000 

•261384 

1.  25  0017 

•77 10E-03 

0. 000000 

.052527 

.200026 

•6594E+00 

l.COOOOO 

-.963805 

-.922094 

.20  75E+00 

1.000000 

.270929 

1.250160 

•2656E-02 

• 409  00  0 

.163401 

.600088 

. 6744E+  00 

-.979800 

-.948629 

-.876683 

• 21 08  E*  00 

1.000990 

.288009 

1.  242990 

•4216E-02 

.800000 

.287154 

. 985715 

• 6600  E+ CO 

-.916500 

-.913561 

-.78  6135 

• 20  25E+90 

1.  009  00  0 

.324553 

1.  241630 

.6043E-02 

1. 200003 

.447006 

1. 351646 

• 681 4E+00 

-.800000 

-.833577 

-.631851 

•2159E4Q0 

1.  (JOOCOQ 

.390089 

1.241719 

.8288E-02 

1.609000 

. 6 52 170 

1.  652630 

.65  61E+QQ 

-.639000 

-.650004 

-.414680 

•1846E+ 00 

1.  900000 

.435365 

1.220560 

•5764E-02 

1.870090 

.855263 

1.8317  29 

. 6416E+  00 

-.354600 

-.281038 

-.149900 

• 17 06 E4 00 

C.G0GQ00 

0 . G 09  GOO 

. 500000 

0. 

2. 0QG000 

.938893 

1.  935000 

« 10  6 9E+ 01 

0.800000 

.344208 

. 17  7300 

•3777E+C0 

0.900900 

0 .0  '0  900 

.500090 

•4885E-14 

1.870000 

.672591 

1.  73  50  00 

.1064E«-01 

.354600 

.740014 

.477300 

•3649E+0O 
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TEST  BODY 


M 

X 

X 

X 

X 

NX 

NPX ' I 

Y 

Y 

Y 

Y 

NY 

NPY  I 

* Z 

Z 

Z 

Z 

NZ 

NPZ  8 

3 

1.000009 

1.000000 

0.000900 

0.090000 

0.000600 

. 5000001 

1.600000 

1.209000 

1.200000 

1.600000 

.447214 

1.4000001 

•600000 

•800000 

.800900 

. 600900° 

.894427 

•rfiooool 

4 

1.000000 

1.000000 

0.090000 

0.080000 

0.060603 

.5000061 

1.200000 

•800000 

•800000 

1.  200000 

.279631 

1. 900000  j 

.800000 

.916500 

.916500 

•800000 

•966107 

' .3582501 

5 

1.000090 

1.000000 

0.0  00  00  0 

0.000060 

.6*900000 

.50  0000  1 

•800000 

• 400000 

•400000 

•800000 

.156305 

. 69 00 00 J 

.916590 

.979800 

.979800 

•916500 

.967799 

. 948150  1 

6 

1.300000 

1.000000 

0.000000 

0.060000 

0.000800 

. 56  0006  | 

.400000 

0.000060 

0.000060 

• 400000 

.850436 

.,  20  0 000  1 

.979800 

1.009000 

1.000900 

.979800 

.998727 

. 98  99  00  I 

7 

1. 009000 

1.000000 

0.000000 

6.608660 

0.000000 

. 500000  j 

0.090000 

-.400000 

-.400900 

0.690000 

-.447214 

-.200030  1 

1.009000 

.8609SO 

.830000 

1.600060 

.894427 

. 90  00  00  | 

6 

1.300000 

1.800000 

0.000000 

0.090000 

0 .006  000 

.500000  j 

-• 430000 

-.80  0000 

-.8  0000  0 

-.430080 

-.447214 

-.63  0000  j 

.300000 

.60  0000 

.600000 

.890000 

.894427 

.700300  1 

9 

1. 000000 

1. 000090 

0.030000 

6.606000 

0.000003 

. 50  03  00  J 

>.809000 

-1. 200600 

-1.290069 

-.830909 

-.447214 

-1.  000300  ] 

.600000 

• 40  0060 

.400009 

. 636800 

.894427 

. 500300  | 

■A 

10 

1.000000 

1.000006 

0.000000 

0.009900 

9.008  900 

.590000  j 

-1.200000 

-1.600000 

-1.600000 

-1. 230000 

. -.447214 

-1.400000  i 

.409000 

. 209000 

•200060 

.466000 

.894427 

•300000 

11 

1.930000 

1.  000000 

0.000000 

3.000000 

€.000000 

.500090 

-1.609000 

-2.  00  6000 

-2.006900 

-1.630000 

-.447214 

-1.  800000 

•200000 

0.000000 

0.000  000 

. 230000 

.894427 

. 10  03  00 

12 

1.003000 

1.000000 

0.000060 

6.606060 

6 .000000 

• 50  0000 

-2.900000 

-1.870000 

- 1.870000 

-2.  030000 

-.938893 

-1.  935000 

0. 003090 

-.354600 

-.354600 

0.630000 

-.344208 

-.177300 

13 

1.390000 

1.000006 

0.000000 

6.  03000  0 

0.060009 

• 50  0008 

-1.870000 

-1.60  0000 

-1.600060 

-1.870000 

-.672591 

-1.  73  5000 

-.354600 

-.600000 

-.600360 

-.354600 

-.740014 

-.477300 

14 

1.900000 

1. 000000 

0.000000 

6.000000 

0.000000 

. 500000 

-1.600009 

-1.200060 

-1.200000 

-1.600000 

-.447214 

-1.  40  0300 

-.603000 

-.800000 

-.869900 

-. 606000 

-.894427 

-.  700000 

FOtOOlir  fRftfci 


PAGE 


6-. 


NP  X ' D 

NPY  T 

NP  Z A 


NX 

NY 

NZ 

0.900000 

.447214 

.894427 

0.0 GO  00  0 
.279631 
.960107 

fl.OCOOOO 

.156305 

.967709 

0.000000 

.050436 

.998727 

0.066000 

-.447214 

.894427 

0.000000 

-.447214 

.894427 

0.000000 

-.447214 

.894427 

0.0  00  000 
-.447214 
.894427 

0.000000 

-.447214 

.894427 

0.000000 

-.938893 

-.344208 

0.000000 

-.672591 

-.740014 

0.000000 

-.447214 

-.894427 


.500000 

1.400000 

.700000 

• 500000 
1.  00 0 000 

.858250 

.500000 

• 60  00  00 
.948150 

. 500000 
. 200000 

• 98  9900 

.500060 
-.200030 
. 90  0 0 0 0 

• 506000 
-.60  0000 

.700000 

. 56  00  00 
-1.  000060 
. 500000 

.500000 

-1.460060 

.300000 

.50  0000 
-1.  800060 
. 10  0000 

.50  0060 
-1.  93  5000 
-.  177300 

• 500000, 
-1.73  5000 

-.477300 

.50  00  00 
-1.  40  0000 
-.70  0000 


.666 IE- 14 
.10  95E+01 

• 4472E+O0 

• 2442E-14 
•1Q63E+Q 1 
.4i€6E+0fl 

•2442E-14 

• 1Q79E+01 

• 40  50E*-00 

« 5551E-16 
•1077E+01 
• 40G5E+00 

•31C9E-14 
. 1095E*0i 

• 4472E0-O3 

•35S3E-14 
. 10  95 01 
•4472E+00 

• 35  5 3 E- 14 
*10 9 5 E> 01 
•4472E+00 

.66 6 IE- 14 

• 10  95E+01 

• 44  72E+Q0 

•4441E-15 

• 10  95E+01 
•4472E+00 

0. 

• 1069E+01 
•3777E+00 

• 4885E-14 

• 10  64E-J-01 
•3649E+00 

.66  6 IE- 14 
• 1095E+01 
•4472E+00 


1 
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3 15 


CO 


16 


17 


18 


19 


20 


21 


22 


23 
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ATMOSPHERIC  SGIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


PAGE 


TEST 

BODY 

1 

X 

X 

X 

X 

NX 

NP  X 

j 

Y 

Y , 

Y 

Y 

NY 

NPY 

1 

Z 

Z 

Z 

Z 

NZ 

NPZ 

: 

1.30990  0 

1.00  0000 

0.0  03000 

0.090080 

0.003000 

.50  0000 

-1.200000 

-.809000 

-.  800900 

-1. 200000 

-.279631 

-1.008000 

*.899030 

-.916500 

-.916500 

-.830800 

-.960107 

-.858250 

1. 003090 

1.  960000 

0.080900 

0. 000000 

0.009000 

• 500000 

-.800090 

-.40  0060 

-.400000 

-.890000 

-.156305 

-.600000 

-.916500 

-.97  980  0 

-.979800 

• -.916  500 

-.987703 

-.948150 

3 

1.9  0309  0 

1.090090 

0.000900 

3.803000 

0.000000 

. 503080 

4 

-.409090 

9.000000 

0.000900 

-.400000 

-.050436 

-.200000 

-.979890 

-1.  9C 0 990 

-1 .003000 

-.973800 

-.998727 

-.989900 

I 

1. 309000 

1.060300 

0.000 90  0 

Q.COCQQO 

0 .000 000 

. 50  0000 

| 

0.003090 

.403008 

•400900 

0.0 00000 

.050436 

. 200000 

-l. oaoooo 

-.979800 

-.979800 

-1.000000 

-.998727 

-.969900 

; 

1.009000 

1.009000 

0.000900 

0.000000 

0.300000 

. 500000 

j 

.400000 

.800000 

.800000 

.490000 

.156305 

• 600900 

-.979800 

-.  916500 

-.916500 

-. 979800 

- .987709 

-.948150 

J 

1.093993 

1.  00  9000 

0. 900000 

0. 60C0Q0 

0.008003 

.500003 

;i 

•300000 

1. 200000 

1.200000 

.600000 

.279631 

i«  asoooo 

i 

-.916590 

-.809000 

-.800000 

-.916500 

-.960137 

—a  858  2 50 

1 

1.000900 

1. OCOCOO 

0.060000 

0.600000 

0 . 0 COCO  Q 

.500000 

| 

1.  230030 

1.609000 

1.603900 

1. 200000 

.447214 

1. 400000 

1 

-.800000 

-.600090 

-.600000 

-.630080 

-.894427 

-.700000 

A 

1.000090 

1.000000 

8.000000 

8.008000 

0.00080® 

. 508000 

| 

1.  600000 

1.870000 

1.870000 

1.600000 

.672  591 

1.  73  5080 

1 

-.603099 

-.354600 

-. 35460 0 

-.600000 

-.740014 

-.477300 

1 

1. 009000 

1.060000 

0.  000000 

0.000000 

0. OCOCOO 

. 50  3000 

■I 

1.870000 

2.003000 

2.000000 

1.670000 

.938893 

1.93  5000 

t ; 

-.354690 

9.000000 

0.000000 

-.  354600 

-.344208 

-.177300 

9.000000 

0.309000 

-.500000 

-.500000/  ’ 

-.049532 

-.  246068 

2. 909000 

1.870000 

1.850aOG 

1.972000 

.939127 

1.9233  92 

0.900000 

• 354600 

.341500 

0. 000030 

.339988 

.17  40  52 

C. 909009 

0.009000 

-.500900 

-.500000 

-.043145 

-.249477 

. A 

1 

;< 

1.870009 

. 1.  609000 

1.585000 

1.  650000 

.675158 

1.  72  62  69 

.354690 

* .660000 

.586600 

• 341509 

.736411 

.470688 

0.000090 

0.000000 

-.500000 

-.500000 

-.034875 

-.24  9169 

1.690009 

1. 200000 

1.195000 

1.585000 

.449471 

1.39  5016 

i 

.609000 

•800000 

.784403 

.586600 

.892614 

. 63  2 774 

;vj 

mt 
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9. 

L. 

»• 

b. 

r. 

r;' 

* • 


0. 


r* 

c. 

b 


X 

NX 

NPX 

Y 

NY 

NPY 

Z 

NZ 

NPZ 

000000 

0.003000 

.50  0000 

200000 

-.279631 

-1. 00  0000 

800000 

-.960107 

-.858250 

000000 

0.009000 

. 500000 

800000 

-.156305 

-.600000 

9165C0 

-.98770  5 

-.948150 

093000 

3.000000 

. 500000 

400000 

-.050436 

-.200000 

979800 

-.998727 

-.989900 

C 00  Q 00 

0.000900 

• 500000 

0 00000 

.050436 

. 200000 

000000 

-.998727 

-.989900 

000000 

0 • 0 CO  00  9 

. 500000 

490000 

.156305 

• 600000 

979800 

-;967709 

-.948150 

Li  9000  0 

0.000000 

.500000 

800000 

.279631 

1.  Ob 000 8 

916500 

-.960107 

-.856250 

000000 

o.ceoeoo 

.500000 

200000 

.447214 

1.  400000 

890000 

-.894427 

-.700000 

000000 

0 .000000 

. 500000 

600000 

.672591 

i.  73  50  00 

600000 

-.740014 

-.477300 

000000 

0.0  OOCOO 

. 50  0000 

870000 

.938893 

1.935000 

354600 

-.344206 

-.17  73  00 

500000 

-.049532 

-. 246068 

972000 

.939127 

1.92  3092 

090000 

.339980 

.174052 

500000 

-.043145 

-.249477 

659000 

.675158 

1.  72  6269 

341500 

.736411 

.470686 

590000 

- .034875 

-.  249169 

585000 

.449471 

1.395016 

586600 

.892614 

. 632774 

yaw*. 


0 

T 

A 

• 2442E-14 
•1063E+Q1 
.4166E+00 

.2442E-14 

• 10  79E+0 1 
.40  5GE+00 

• 5551 E- 16 
•1077E+01 
•4005E+00 

•3553E-14 

•1077E+01 

.4G35E+G0 

• 2220E- 14 

• 10  79E+01 
• 405QE+G0 

•31G9E-14 

.1083E+G1 

• 41 66E*-Q0 

•6661E-14 

• 10  95E+01 
.447  2E+00 

•6217E-14 

• 10  64E+G1 

• 3649E+  00 

• 6217E- 14 
•10E9E+01 

• 3777E«-00 

•7646E-03 

.6238E+00 

•1853E+00 

.7867E-Q3 

•62C5E+00 

• 1816E«-00 

• 6327E-B3 
• 66S3E+00 
•2213E+C0 


rt,OOUT  «**" 


PROGRAM  PBOXC 


BODY  ID.  TEST 


AT  hOS  FHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 

TEST  EODY 


PAGE- 


m 


4 

0. 000030 
1.230000 
.800000 

C.  000000 
•800800 
•916500 

-.500003 

•800000 

•901200 

-.5SOOOO 

l.rysooo 

.784400 

-.031043 

•281449 

.959074 

-.249537 

.998756 

.850538 

5 

0.080000 

.830000 

•916500 

0. 8C0080 
.400000 
.97  9800 

-.500009 

.400000 

•965500 

-.500000 
.890000 
. 991200 

-.0  29  218 
.157442 
.987096 

250016 
. 6000G1 
.940749 

6 

0.000000 

•400000 

.979800 

0.000000 

0.003000 

1.008000 

-.500000 

0.000000 

.986000 

-.  50  0000 
• 430000 
. 965500 

-.028252 

.050785 

.998310 

-.250302 
• 20  0000 
.982825 

7 

0.008000 

3.000000 

1.800000 

0.008000 

-.400000 

.809000 

-.580000 

-.400000 

.800890 

-.5  30  00  0 
0.000300 
.986000 

-.012698 

-.434526 

.908571 

-.249496 

-.199997 

.696589 

3 

0.030000 

-.400003 

•800000 

0.000000 

-.800000 

.600000 

-.500000 

-.800000 

.600000 

-.500000 

-.400000 

.800000 

0.080000 

-.447214 

.894427 

-.  25  00  GO 
-.600000 
• 708000 

9 

0. 000000 
-.800000 
•600000 

3.000000 

-1.200000 

•403000 

-.500000 
- 1.200000 
•403000 

-. 500000 
-.800000 
. 600000 

0.900000 

-.447214 

.894427 

-.  258000 

-1.000080 

. 50  0 0 GO 

13 

0.030000 
-1. 200000 
.400000 

0.000000 
-1.600000 
• 20  Q C 00 

".500000 
- 1.600300 
.200300 

-.500000 
-1. 200800 
. 400000 

0.000G03 

-.447214 

.894427 

-.250000 
-1 • 40  0000 
.300380 

11 

0. 000000 
-1.60000G 
. 200000 

0.000000 
-2. 000800 
8.000000 

-.500000 
- 3.972000 
0.000008 

-. 500000 
-1.600000 
. 200000 

-.012880 

-.460013 

.867820 

-.247831 
-1.  79  3015 
. 10  8 8 24 

12 

0.00000  0 
-2.000000 
Q. 039000 

3 • 00  0000 
-1.670000 
-.354600 

-.500-300 
-1.850  000 
-.341500 

-.500800 
-1. 972000 
0.030800 

-.049532 

-.939127 

-.339988 

-.248068 
-1.923892 
-.17  4052 

13 

0.300000 

-1.870000 

-.354600 

C. 000000 
-1.6BGC0Q  ' 
-.600000 

-.500000 
- 1.585900 
-.586600 

-.500000 
-1. 850000 
-. 341500 

-.043145 

-.675158 

-.736411 

-.249477 

-1.726269 

-.470688 

14 

0. 300000 
-1.600000 
-.600000 

0. 000000 
-1.200000 
-.800000 

-.500300 

-1.195000 

-.784400 

-. 500300 
-1. 585000 
-. 586600 

- .034875 
-.449471 
-.892614 

-.249169 
-1.  39  5016 
-.  692774 

15 

0. 303000 
-1.203000 
-.300200 

0.000009 

-.800000 

-.916500 

-.500000 

-.800900 

-.901200 

-.500300 

-1.195000 

-.784400 

-.031043 

-.281449 

-.959074 

-.249537 

-.998756 

-.850538 

FOtOOUr 


PAGE 


8 


NX 

NY 

NZ 

NPX 

NPY 

NPZ 

D 

T 

A 

-.031043 

.281449 

.959074 

-.249537 
• 998756 
. 850538 

.4237E-03 
.65C7E+00 
,20  72E+QQ 

-.0*9  218 
.157442 
.987096 

-.  250016 
. 600001 
.940749 

.2468E-03 
• 64  E1E+00 
• 2026E+00 

-.02825  2 
.050789 
,998310 

-.250002 
• 20  0000 
.982825 

.7487E-04 
•6412E+00 
• 200  3E+  00 

-.012608 
- . 434  52  6 
.900571 

-.249496 

-.199997 

.896509 

.3152E-02 
• 6708E+00 
•2221E+G0 

O.OOGUQQ 

-.447214 

.894427 

-.  250000 
-.  60  00  00 
• 70  U 00  0 

.3553E-14 
, 67  C8E+0  0 
• 2236E+00 

O.CGOGOO 

-.447214 

.894427 

-.  250000 
-1.  00 0 000 
. 50  0 000 

.3553E-14 

• 670  8E+00 

• 223  6E+  00 

0.000000 
- ,447214 
.894427 

- • 25  G 0 6 0 
-1.400000 
.300300 

.6661E-14 
• 670  8E+00 
• 2236E+00 

-.012880 

-.460010 

.867820 

-.247831 
-1.  <9  3015 
. 10  00  24 

• 3220E-02 
. 67  08E+  CO 
.2174E+0O 

-.049532 

-.939127 

-.339980 

-. 248068 
-1.923092 
-.17  40  52 

•7648E-03 
•6238E+00 
.18  53E*-00 

- • 0 43x4  5 
-.675158 
-.736411 

-o  249477 
-1.726269 
-.  47  0688 

.7887E-03 
,620  5E+  0 0 
.1816E+00 

-.034875 

-.449471 

-.892614 

-.249169 
-1.  395016 
-,  692774 

.6327E-03 

.6693E+C0 

.2213E+00 

-.081043 

-.281449 

-.959074 

-.249537 

-.998756 

-.850538 

• 4237E- 03 
• 6507E+  CO 
.20  72E+C0 

rmonur  w, 
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ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


PAGE 


TEST  BODY 


M 

X 

X 

X 

X 

, NX 

NPX 

Y 

Y 

Y 

Y 

NY 

NPY 

Z 

2 

Z 

Z 

NZ 

NPZ 

16 

0.  00000  0 

D. 000000 

-.  500000 

-. 500000 

-.029218 

-.250016 

-.800000 

-.469000 

-.400000 

-.800000 

-.157  442 

-.600001 

-•  9 1.650  0 

-.979800 

-.965500 

-.901200 

-.987096 

-.940749 

17 

0.00000 8 

0.000090 

-.500000 

-.500000 

-.028252 

-.250002 

-.400000 

0. 000000 

0.006000 

-.400300 

-.050789 

**•26  0000 

-.979800 

-1.060000 

-.986060 

-.9655,00 

-.998  310 

-.98  2825 

18 

0.000000 

o.ooGOca 

-.500000 

-.500000 

-.028252 

-.250002 

0.  000000 

. 40  0 0 0 0 

•400000 

8.000000 

.050789 

. 20  0000 

-1.000000 

-.979800 

-.965500 

-.986000 

-.998  310 

-.982825 

19 

0. 000000 

0. 000000 

- • 5 00  OS  0 

-.500000 

-.029218 

-.250016 

.400000 

.800000 

•800000 

.403000 

.157442 

• 600001 

-.979800 

-.916500 

-.981200 

-.965500 

-.987096 

-.940749 

20 

0.000000 

0.000000 

-.500000 

-.500000 

-.031043 

-.  249537 

•800000 

1. 200000 

1.195000 

.800000 

.281449 

.998756 

-.916500 

-.800000 

-.784400 

-. 901200 

-.959074 

-.850538 

21 

0.000000 

0.000000 

-.500000 

-.500000 

-.034875 

-.249169 

1.200000 

1. 600000 

1.585000 

1. 19  5000 

• 449  47 1 

1.  39  5016 

-.800000 

-.600006 

-.586600 

764400 

-.892614 

692774 

22 

0.  003000 

9.000000 

-.580000 

-.500000 

-.043145 

-.249477 

1.  60000  0 

1.670000 

1.850000 

1.565000 

.675158 

1.  72  62  69 

-.600000 

-.354600 

-.341500 

-.586600 

-.736411 

-.  470668 

23 

0.330000 

0.000000 

-.503900 

-.500000 

-.049532 

-. 248068 

1.870000 

2.000630 

1.972336 

1. 853000 

.939127 

1.923092 

-.354600 

0.000000 

0.030000 

-.341500 

-.339980 

-.17  4052 

1 

-. 500000 

-.500000 

-1.300000 

-1.  <100000 

-.153  543 

-.743334 

1.972000 

1.850000 

1.785000 

1. 885600 

.934141 

1.  87  4150 

G. 900000 

.341500 

.303900 

0.000000 

.322188 

• 161626 

2 

-.500000 

-.500000 

- 2.000000 

-1.000000 

-.132740 

-. 747369 

1.350000 

1 . 58  5 COO 

1.543000 

1. 785000 

.683173 

1.  69  02  81 

.341500 

.586600 

.544000 

. 303900 

,718091 

.444215 

3 

-.  50000  0 

-.503000 

-1.  00000  3 

-1.000000 

-.108809 

-a  7477  52 

1.585000 

1.19  50C0 

1.175000 

1. 540000 

.457325 

1.373892 

.586600 

.784400 

.737400 

. 544000 

.882618 

.663304 

A 

-.500000 

-.50  OQOS 

-1.  000000 

-1.  000000 

-.095703 

-.747958 

1.195000 

.800000 

.300300 

1.  17  5000 

.288525 

. 992572 

.784400 

.901200 

•853800 

. 737400 

.952677. 

. 819363 

FOU 
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PAGE 


9 


X 

. NX 

NPX 

D 

Y 

NY 

NP  Y 

T 

• Z 

NZ 

NPZ 

A • 

,500000 

-.029216 

-.250016 

•2468E-03 

,800000 

-.157  442 

-.600001 

• 64  51E+00 

,901200 

-.987096 

-.940749 

.2026E+00 

[500  000 

-.028252 

-.250002 

•7487E-04 

[400000 

-.050789 

-.200000 

•6412E+60 

[9655.0  0 

-.996  310 

-.98  2825 

•20G3E+0Q 

[50  0000 

-.028252 

-.250002 

• 74 87 E- 04 

roooooo 

.050789 

• 200000 

• 6412E+  00 

,98600  0 

f 

-.998310 

-.982825 

.200  2E+CQ 

1.500  000 

-.029218 

-.25U016 

•2468E- 03 

[400000 

.157442 

• 600001 

. 645 iE+60 

^965500 

-.987096 

-.940749 

.20  26E+C0 

,5  0 0000 

-.031043 

-.  249537 

• 42 3 7 E- 03 

! 8 O 0 0 0 0 

.281449 

.998756 

. 6507E+00 

I9012GO 

[ 

-.959074 

-.850538 

.20  72E+00 

1500000 

-.034675 

-.249169 

. 63  2 7 E-  03 

|l9  51100 

.449471 

1.  39  5016 

•6693E+Q0 

|784400 

-.892  614 

-.692774 

• 2213E+  00 

I5OOOCO 

-.043145 

-.249477 

.78 87E-C3 

1585000 

.675158 

1.  72  62  69 

•62C5E+00 

1586600 

-.736411 

-.  470668 

• 18 16E  + 0 0 

150  0000 

-.049532 

-.  248068 

. 7648E-03 

1850000 

.939127 

1.92  3092 

. 6238E+  00 

|341500 

-.339960 

-.1740  52 

.18  53E+G0 

POO  000 

-.153543 

-.743334 

• 1969E-02 

§B356G0 

.934141 

1.  87  4150 

•6143E+S0 

Idqqooo 

.322188 

. 161626 

.1727E+GQ 

[000000 

-.132740 

-.747369 

9 2518E- 02 

1785000 

.683173 

i.  690281 

• 6222E+00 

|3t33900 

.718091 

• 444215 

. 17  76E*  SO 

[OOOOOO 

-.108809 

-.747752 

•1887E- 02 

|54CC00 

.457325 

1.373892 

• 6640E+00 

B544000 

.882618 

.663304 

.2139E+00 

IjJOoOOO 

-.095703 

-.747958 

•1347E- 02 

i.75000 

.288525 

. 992572 

• 64  61E+00 

&3740  0 

.952677. 

. 819363 

•2G21E+0Q 

mmurmt* 


PROGRAM 

PBOXC 

ATMOSPHERIC  SCIE 

NCE  ASSOCIATES 

•V 

/ 

BEDFORD,  MASSACHUSETTS 

pm 

800 Y ID.  TEST 

i 

TEST 

BOO  Y 

J 

N M 

X 

X 

X 

X 

NX 

NPX  1 

Y 

Y 

Y 

Y 

NY 

NPYf 

Z 

Z 

Z 

Z 

NZ 

NPZ  j 

5 5 

500000 

-.500000 

-1.  000003 

-1.  GOO 90 0 

-.089915 

-.75001 

• 8 3 9 0 0 0 

• 400 C00 

.400000 

.800000 

.162020 

. 60  00 

.901200 

.965500 

.921400 

.853800 

.982682 

.9134 

6 

-.500000 

-.500000 

— 1.000000 

-1.000000 

-.066851 

-.750® 

.400000 

0. 000000 

0.300000 

• 400000 

.05210  e 

.20  06; 

.965500 

.986000 

•942800 

.921400 

.994858 

.953^ 

7 

-.500000 

'-•50  0000 

- 1.  000000 

-1. ocooco 

-.039925 

-,  7485< 

0.000000 

-.400000 

-.400000 

0. 000000 

-.379842 

-.1993 

.986000 

.800000 

.800000 

• 942800 

.924189 

. 88  22| 

8 

-.500000  . 

-.500000 

- 1.0  0000  0 

-1. 000000 

0.0  CO  00  0 

-.  75001 

-.400000 

-.80  0000 

-.800000 

-•  400  GOO 

-.447214 

-.60  091 

.830000 

• 6C  GOOD 

.603000 

. 800000 

.894427 

• 70  Ofl| 

9 

-.503000 

-.568000 

- 1.003000 

-1.  030800 

0.0  40000 

-.  75  061 

-.800000 

-1.  200000 

-1.  200000 

-. 800000 

-.447214 

-1.  00  0 01 

•600000 

. 40  0000 

•400000 

• 690000 

.894427 

' . 50  00| 

10 

-.530003 

-.500000 

-1.6  08  00  0 

-1.  000000 

O.QGUCOQ 

-.75001 

-1.200300 

-1.600000 

- 1.600300 

-1.  200000 

-.447214 

-1.40  001 

.400000 

.200000 

.200000 

. 430000 

.894427 

.30  001 

11 

-.503000 

-.500000 

- 1. 0 0000  0 

-1.000000 

-.044855 

-.74131 

-1.600000 

-1.972000 

-1.885600 

-1. 600  Q00 

-.519160 

-1.  7647| 

.200000 

0.016  0 GOO 

0.003830 

• 200030 

.853499 

. 10  0 2| 

12 

-.500000 

-.  50  0000 

- 1.  000060 

-1.  000000 

-.153543 

-.74335 

-1.972000 

-1.850000 

-1.  785000 

-1.885600 

-.934141 

-1.  87  411 

0.030000 

-.341500 

-.303900 

0. 000000 

-.322188 

-.  1616J 

13 

-.530000 

-.50  0000 

- 1.000000 

-1.000000 

-.132  740  ' 

-.  74731 

-1.850000 

-1.58  5000 

- 1.540000 

-1. 785000 

-.683173 

-1.  63  0 Z\ 

-. 341500 

-.586600 

544000 

-.303900 

-.718091 

-.44421 

14 

-.500000 

-.560000 

- 1.  000000 

-1.  00006  0 

- » 1 08  809 

| 

-.7477! 

-1.585000 

-1.19 5000 

-1.175000 

-1.  540  000 

-.457325 

-1.  3738< 

-.586600 

-.  784400 

-.737400 

-.544000 

-.662618 

-.  66  33j 

15 

-.500000 

-.500000 

-1.  000000 

-1. 000000 

-.095703 

-.7479! 

-1.  195300 

-.803030 

-.8  00000 

-1.  175000 

-.288525 

-.99251 

-.784400 

-.901200 

-.853800 

-.737400 

-.952677 

-.81931 

16 

-.503000 

-.56  0000 

- 1.  000000 

-1. 000000 

-.089915 

75001 

-.800000 

-•40GCQ0 

-.400000 

-.890000 

-.162020 

-.  60  001 

-.901230 

-.965500 

-.921400 

-.853800 

-.982682 

-.9104! 

■i 

FOLOOUPT  CFftfo 

1 

ASSOCIATES 

JSETTS 


X 

Y 

: 2 

8SC000 
BOO  000 
B 53800 

OOQOOO 

1400000 

<921400 

800000 

eooooo 

I942B0G 


000 000 
400  00  0 
800000 

t 

800000 

800000 

booooo 

fc)  4)0000 
200000 
|+OOOflO 

000 000 
800000 
jpoccoo 

800000 

£35600 

-flCOOO 


loo  000 

'85000 

103900 

10  COCO 
><40  GOO 
>44000 

180  000 
.75000 
|37  40  0 

IOC  000 
NIC  000 
'53800 


PAGE 

IQ 

NX 

NPX 

0 

NY 

NPY 

T 

NZ 

NPZ 

A 

-.089915 

-.750055 

. 8107E-03 

.162020 

. 60  0009 

.65006+00 

.982682 

•910468 

• 2035E+  00 

-.0  86851 

-.750005 

• 22386-0  3 

.05210  f 

•200003 

. 64366+00 

.994858 

.953924 

•20 1QE+00 

-.039925 

746551 

•9981E-02 

-.379842 

-.199961 

•6668E+Q0 

.924189 

• 882279 

• 2164E+00 

0.0  COOOO 

-.750000 

•3553E-14 

-.447214 

-.60  0000 

•67086+00 

.894427 

.700000 

.22366+00 

0.0  00  03  0 

-.  750000 

.35536-14 

-.447214 

-1.  QG0000 

•67086+00 

.894427 

• .500000 

.2236E+B0 

0.0C0Q00 

-.750000 

•6661E-14 

-.447214 

-1.400000 

• 67  08E+D0 

.894427 

.300000 

•2236E+00 

-.044855 

-.741375 

. 11216-01 

-.519160 

-1.  764760 

.65456+00 

.853499 

.10  0 234 

.19266+00 

-.153543 

-.7 43334 

• 19  69  E- 0 2 

-.934141 

-1.  874150 

.61436+00 

-.322188 

-. 161626 

.17276+00 

-.132  740  ' 

-. 747389 

.25 16E-02 

-.683173 

-1.  63  0281 

•62226+00 

-.718091 

-.444215 

.17766+00 

-.108809 

-.747752 

• 1887E- 02 

-.457325 

-1.373892 

•66406+00 

-.862618 

-•  66  330  4 

.21396+00 

-.095703 

-.747958 

.13476-02 

-.288  525 

-.992572 

.64616+00 

-.952677 

-.819383 

.20216+00 

-.089915 

-.750055 

•8107E-03 

-.162020 

-.600009 

•65006+00 

-.982682 

-.910468 

.20356+00 

mmrrtmt* 


PROGRAM  PBOXC 
BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


N M 


5 17 


18 


19 


20 


21 


22 


ro 


23 


6 1 


2 


3 


A 


5 


TEST  BODY 


X 

Y 

Z 

-.500000 

-.400000 

-.965500 

-.503000 
G. 000000 
-.986000 

-.500000 

.400000 

-.965500 

-.500000 

.830003 

-.901200 

-.500000 

1.195000 

-.784400 

-.500000 

1.585000 

-.586600 

-.500000 

1.850000 

-.341500 

-1.000000 

1.885600 

0.300000, 

-1.000000 

1.785000 

.303900 

-1. 008000 

1.540000 
.544000 

-1.008000 

1.175000 

.737400 

-1.000000 
• 8 00  00  C 
.853800 


X 

Y 

Z 

-. 500000 
0.000000 
-.986000 

-.50  0000 
.400000 
-.965500 

-.50  0000 
.800000 
-.901200 

-.500000 
1.19  5000 
-.78  4400 

-.500000 
1. 585000 
-.58  6600 

-.560000 
1.850000 
-.  3415  00 

-.500000 

1.972000 

0. GO000S 

-1.000000 

1.785000 
.30  3900 

-1.  000000 

1.  540003 

• 544000 

-1.00 0000 

1.175000 
. 73  7400 

-1.000000 

.800000 

.853800 

-1. 00  0000 
. 40  0000 

• 921400 


X 

Y 

Z 

-1.300000 

0.060000 

-.942800 

-1.  000300 
•400000 
-.921400 

- 1.303000 

•808000 

-.853800 

-1.000000 

1.175000 

-.737400 

- 1.  000000 

1.540000 
-.544000 

-1.300000 
1.78500  0 
-.303900 

-1.  000000 
1.885600 
0.000300 

-1.500000 

1.670000 

•229700 

-1.500000 

1.460300 

.465900 

- 1.50000  0 
1.140000 

.652000 

- 1.509000 

• 800000 
.768100 

- 1.50000  0 

.400000 

.842603 


X 

Y 

Z 

-1.  000000 
-.430000 
-.921400 

-1. 000000 
0. 000000 
-.942800 

-1.0  SO  00  0 
•400000 
-.921400 

-1.000300 

.800000 

-.653800 

-1.000000 

1.175000 
-. 737400 

-1.  000000 

1.540000 
-. 544000 

-1.000000 

1.785000 

-.303900 

-1. 500000 

1. 732000 

0.000000 

-1.  500000 
1.670000 

.229700 

-1.  500000 
U 460000 
.465900 

-1.  500000 
1.140000 
. 652000 

-1. 500000 
.600000 
. 768100 


NX 

NY 

NZ 

-.086851 

-.052106 

-.994858 

-.086851 

.052106 

-.994858 

-.089915 

.162020 

-.982682 

-.6 9570 3 
.288525 
-.952677 

-.108809 

.457325 

-.882618 

-.132740 

.683173 

-.718091 

-.153543 

.934141 

-.322188 

-.268347 

.921489 

.280799 

-.239065 
.702123 
.670  724 

-.194936 

.475316 

.857948 

-.170981 

.304683 

.936981 

-.159881 
.172638 
.97192  3 


PAGE 


NPX 

NPY 

NPZ 

-.750005 

-.200003 

-.953924 

-. 750005 
• 200003 
-.953924 

-.750055 
. 600009 
-.910468 

-.747958 

.992572 

-.819383 

-.747752 

1.373892 

-.663304 

-.747389 
1.  690281 
-.444215 

-.743334 
1.874150 
-. 161626 

-1. 229655 
1.773614 
. 13  4912 

-1.24  5329 
1.  6146  91 
.38  6555 

-1.245068 
1.  32  9324 
.600627 

-1.245783 
. 97  9004 
.753512 

-1.  250120 
. 600034 
. 846449 


Fotoour  f iwk 


!PH£RIC  SCIENCE  ASSOCIATES 
IEOFORO*  MASSACHUSETTS 


PAGE 


ii 


>DY 


X 

X 

. NX 

NPX 

G 

Y 

Y 

NY 

NPY 

T 

Z 

Z 

NZ 

NPZ 

A 

- 1*000000 

-1.000000 

-.086851 

-.750005 

. 2238  E- 03 

0.000000 

-.430000 

-.052106 

-.200003 

• 64366+00 

-.942300 

>*• 

-.921400 

-.994858 

-.95  3924 

« 20 1QE+QO 

- 1.00000  0 

-1. 000000 

-.066851 

-.750005 

• 223 6 E- 03 

• 400900 

I).  0 0 0 0 0 0 

•052106 

• 200003 

• 6436E+  00 

-.921400 

-.942800 

-.954858 

-.953924 

. 20 10E+00 

- 1.000000 

-1.000000 

-.069915 

-.750055 

• 810  7E-03 

• 80000  0 

.400000 

.162020 

.600009 

.65C0E+00 

-.853800 

-.921400 

-.982682 

-.910468 

•2035E+00 

-1.000000 

-1.000000 

-.095703 

-.747958 

.1347E-02 

1.175000 

•800000 

.288525 

.992572 

•6461E+00 

-.737400 

-.653800 

-.952677 

-.819383 

• 20  21E+00 

- 1.  000  00  0 

-i.eooooo 

-.108609 

-.747752 

•1887E-G2 

1.540000 

1.175000 

.457325 

1.373892 

. 66  4QE+  GO 

-.54400  0 

-. 737400 

-.882618 

-.663304 

•2139E+0Q 

-1.00000  0 

-1. 000000 

-.132740 

-.747389 

«25l8E-02 

[ 1.785000 

1. 540000 

.683173 

1. 690281 

.6222 E+ GO 

[ -.303900 

544000 

-.718091 

-.444215 

• 17  7&E+GQ 

|—  1.  000  00  0 

-1.000000 

-.153543 

-.743334 

• 1969E-  02 

jt  1.885608 

1. 785000 

.934141 

1.874150 

•6143E+00 

| 0.0  0000  9 

-.303900 

-.322188 

161626 

• 17  2 7E+0Q 

f-  1. 50900  0 

-1. 500000 

-.268347 

-1.  229655 

•3684E-02 

| 1.670000 

1. 732000 

.921489 

1.773614 

• 5910E+00 

I .229709 

U. 000000 

.280799 

. 13  4912 

• 1448E+  00 

1—1.  5 0000  0 

-1. 500000 

-.239065 

-1.24  5329 

•5490E-02 

I 1.460309 

1.670000 

.702123 

1.  €146  91 

•61 80E+00 

I .465900 

.229700 

.670724 

. 38  6555 

• 1696E+  00 

I-  2.  50000  0 

-1. 50  C 00  0 

-.194936 

-1.245068 

•3782E-02 

I 1.  140  00  0 

1 . 460000 

.475316 

1.329324 

• 64  94E+00 

I .652008 

• 465900 

.857948 

.600627 

• 199  6E+00 

|-  1.  500000 

-1. 500000 

-.170981 

-1.245783 

•2596E-02 

I .600000 

1.140000 

.304683 

. 97  9004 

. 63  7 4E+  00 

I .76810  0 

. 652000 

.936981 

.753512 

• 19C  8E  + 00 

► 2.500000 

-1. 500000 

-.159881 

-1.  250120 

• 16  77  E-02 

I .406000 

.600000 

.172638 

. 600034 

•6584E+0Q 

I .842600 

. 768100 

.971923 

. 846449 

.2058E+00 

monuf 


PROGRAM  PBOXC 
BODY  10.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
EEOFORO,  MASSACHUSETTS 

TEST  BODY 


M 

X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

Z 

Z 

Z 

Z 

NZ 

6 

-1.009000 

-1. 000000 

- 1.508990 

-1.530000 

-.153515 

-1. 

.400000 

0.000000 

0.000000 

. 43Q0Q0 

.055250 

.921400 

.942800 

• 8 66000 

.642600 

•986601 

7 

-1.900000 

-1.000000 

-1.500000 

-1.508000 

-.074106 

-1. 

0. 900090 

-.400000 

-.400008 

s.ooooco 

-.251846 

.942600 

.800000 

.800000 

.866000 

.964926 

8 

-1.390000 

-1. SO  0 000 

- 1.500900 

-1.500000 

O.OCOOQO 

-1. 

-.403008 

-.800000 

-.800000 

-. 400000 

-.447214 

.830000 

.600000 

.600800 

•800000 

.894427 

9 

-1. 000000 

-1.000000 

-1.500000 

-1.  503000 

0 • 0 GO  000 

-1. 

-.8  0000 0 

-1. 20  00  CO 

- 1.  208000 

-.600000 

-.447214 

-1. 

.600000 

.400000 

.400000 

.600000 

.894427 

13 

-1.090000 

-1. 000000 

- 1.  500080 

-1. 500000 

0.0GC000 

-1. 

-1.200000 

-1.600000 

-1.600003 

-1.  200000 

-.447214 

-1. 

•400080 

• 209000 

.209000 

.400000 

.894427 

11 

-1. 000000 

-1. 000000 

-1.509000 

-1.500000 

-.105654 

-1. 

-1.600000 

-1.885600 

- 1.73290  0 

-1. 600000 

-.687853 

-1. 

•200090 

0.080000 

0.000900 

. 2000Q0 

.718119 

12 

-1.090000 

-1.000000 

-1.500000 

-1. 530000 

-.268347 

-1. 

-1.885600 

-1. 78500  0 

-1.670000 

-1. 732000 

-.921489 

-1. 

0.000000 

-.303900 

-.229700 

0.00G000 

-.280799 

- . 

13 

-1.  Q0QOQQ 

-1.080000 

- 1.  500  00  0 

-1.  508000 

-.239065 

-1. 

-1.785G00 

-1.540000 

— 1.  ■460  000 

-1.670000 

-.702123 

-1. 

-.303906 

-.544000 

-.465900 

-.229700 

-.670724 

- • 

14 

-1.000090 

-1.  00  0000 

- 1.500000 

-1.  500000 

-.194936 

-1  • 

-1.  540000 

-1.175000 

-1.149000 

-1.460000 

-.475316 

-1. 

-.544000 

-.737400 

-.652000 

-.465900 

-.857948 

— . 

15 

-1.000000 

"1.003000 

- 1.509000 

-1.  500000 

-.170981 

-1. 

-1.175000 

-.803000 

-.800000 

-1.  140  000 

-.304683 

-.737400 

-.853800 

-.768100 

-.652000 

-.936981 

- . 

16 

-1. 000000 

-1.000000 

-1.500000 

-1.500000 

-.159881 

-1. 

-.800000 

-.40  0000 

-.400000 

-.800000 

-.172638 

mm  ^ 

-.853800 

-.921400 

-.842600 

-. 768100 

-.971923 

17 

-1.30Q000 

-1.000000 

-1.500900 

-1. 500000 

-.153515 

-1. 

-.400000 

0.000000 

0.003000 

-.490000 

-.055250 

- # 

-.921400 

-.942800 

-.866000 

-.842600 

-.986601 

-• 

«ur<fW"  1 


PAGE 


NPX 

NPY 

NPZ 

25  SO  12 
200010 
893198 

248100 

199835 

852389 

250000 

6Q0000 

700000 

25  0000 

900000 

500000 

250000 

400000 

300000 

225923 
70  7 4 4 5 
100626 

229655 
773614 
13  4912 

245329 

614691 

386555 

245068 

329324 

600627 

245783 

979004 

753512 

250120 
60  0 0 34 
846449 

250012 

200010 

893198 


ATMOSPHERIC  SCIENCE  ASSOCIATES 

EEOFOROt  MASSACHUSETTS  PAGE  12 

‘ST  BODY 


100 

IDO 

90 

190 
190 
19  0 

100 

100 

100 

190 

ICO 

190 


100 

too 

100 

[ 

too 

loo 

|00 


X 

X 

NX 

NPX 

Y 

Y 

NY 

NPY 

Z 

Z 

NZ 

NPZ 

U 5 cooao 

-1.500000 

-.153515 

-1.  259012 

0.000000 

.400000 

.055250 

. 200010 

• 8 66000 

•842600 

•986601 

. 893198 

1.900008 

-1. 500000 

-.074106 

-1.  248100 

-.400000 

u.ooooco 

-.251846 

-.199835 

.800000 

•866000 

•964926 

.852389 

2.500000 

-1.500000 

G.GGOGQO 

-1.250000 

-.800000 

-. 400000 

-.447214 

-.600030 

•600300 

.800000 

.894427 

. 700000 

1.500000 

-1.  500000 

0 • 0 GO  009 

-1.25  0000 

2.  200000 

-.600000 

-.447214 

-1.000000 

•4Q0900 

•600000 

.894427 

. 500090 

1.500300 

-1.500000 

O.OGOOOO 

-1.250000 

2.600000 

-1.200000 

-.447214 

-1.  400000 

.200000 

.400000 

.894427 

.303000 

1.509000 

-1.500000 

-.105654 

-1.225923 

2.732000 

-1.600000 

-.687853 

-1.  70  7445 

0.000000 

.200060 

.718119 

. 100626 

2.500000 

-1. 530000 

-.268347 

-1. 229655 

1.670000 

-1. 732000 

-.921489 

-1.  77  3 6 14 

-.229700 

0.00G000 

-.280799 

-.134912 

2.500000 

-If.  £0000  0 

-.239065 

-1.245329 

1.4*60000 

-1.670000 

-.702123 

-1.  614691 

-.465900 

-.229700 

-.679724 

-.386555 

2.500000 

-1.  500000 

-.194936 

-1.245060 

1.140000 

-1. 460000 

-.475316 

-1.329324 

-.652000 

-.465900 

-.857948 

-.600627 

2.500000 

-1.  50000  0 

-.170981 

-1.245783 

-.800000 

-1. 140000 

-.304683 

-.979004 

-.76810  0 

-.652000 

-.936981 

-.753512 

1.500000 

-1.500000 

-.159881 

-1.  250120 

-.400000 

-.690000 

-.172638 

- . 60  0 0 34 

-.842600 

-.  768100 

-.971923 

-.846449 

1.500000 

-1. 59C000 

-.153515 

-1.  250012 

0.003090 

-.430000 

-.055250 

-.200010 

-.866000 

-.842600 

-.986601 

-.893198 

moo urcFWfc*  -2-— 


0 
T 
A 

•4933E-03 
•6481E+B0 
.20 27E+C0 

•1853E-01 

•6560E+GD 

• 20  73E+  CO 

.35S3E-14 

.67Q8E+00 

2236E+G0 

3553E-14 

•6704E*00 

2236E+00 

• 66  61E-14 
.6708E+00 
.2236E+C0 

• 26  4 IE-  01 
.60  S6E+3D 
•1454E+G0 

.3684E-02 

.5910E+G0 

•1448E+G0 

•5490E-C2 
61 8GE+0Q 
•1696E+00 

376  2£-  02 
6464E+G0 
•1996E+  00 

.2596E-G2 
» 6374E+00 
•19C8E+G0 

• 1677E-02 
•6584E+00 
. 20  58E+CQ 

.4933E-03 

• 646 IE* 00 
•2827E+00 


PROGRAM  PBOXC 


BODY  ID.  TEST 


N M 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD.  MASSACHUSETTS 
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6 18 


7 1 


TEST 

BODY 

X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

Z 

Z 

Z 

Z 

NZ 

- 1.  000000 

-1.  000000 

- U 500  00  0 

-1.500000 

-.153515 

0.090000 

• 400000 

.400000 

0. 600000 

.055250 

-.942800 

-.921400 

-.842600 

-.866000 

-.986601 

-1.000000 

-1.  00  0000 

-1.500000 

-1. 530000 

-.159881 

.400000 

.800030 

.880009 

. 400000 

.172638 

-.921400. 

-.853800 

-.768100 

-.642600 

-.971923 

-1. 000000 

-i. oooooo 

-1.5  0006  0 

-1. 500000 

-.170981 

.800000 

1.175000 

1.140000 

.880000 

.3  0 4 68  3 

-.853800 

-.737400 

-.652000 

-.766100 

-.936981 

-1.000000 

-1. oooooo 

-1.500000 

-1. 500000 

-.194936 

1.175000 

1.  540000 

1.460000 

1.  140000 

.475316 

-.737400 

- . 544000 

-.465900 

-. 6520CC 

-.857948 

-1.000000 

-1.  OOOOOO 

-1.500000 

-1.  500000 

-.239065 

1.5400Q0 

1.785000 

1.670000 

1.460000 

.702123 

-.544000 

-.30  3900 

-.229700 

-.465900 

-.670724 

-1.  000  60  0 

-1.000000 

-1.500000 

-1.  500000 

-.268347 

1.785000 

1.885600 

1.732000 

1.670300 

.921489 

-.303900 

0.000000 

0.000003 

-.229700 

-.280799 

-1.500000 

-1  • 50  0000 

-2.0  00900 

-2.  oaoooo 

-.414479 

1.732000 

1.670  000 

1.465000 

1.490700 

.865202 

0.000000 

.22  9700 

.137800 

0.00GQ00 

.211244 

-1.  *0000 

-1.500000 

-2.008900 

-2. OOOOOO 

-.372374 

1.6;  000 

1.460000 

1. 322000 

1. 465000 

.725701 

.229700 

.465900 

.3  4440  0 

.137800 

.578529 

-1.500000 

-1.  50  00  00 

-2.000000 

-2.000300 

-.310024 

1.463000 

1.140006 

1.072000 

1. 322000 

.507279 

.465900 

• 65  2000 

.517900 

•344400 

.86408  5 

-1.500000 

-1 • 50  0000 

-2.063000 

-2.000000 

-.269527 

1.140000 

.800000 

.800000 

1.072000 

.335023 

.652000 

.766100 

•626900 

.517900 

.902837 

-1.530000 

-1. 500000 

-2.000000 

-2.  033000 

-.250229 

.800000 

.40  0000 

•430000 

.880000 

.193980 

.763100 

. 842600 

.718003 

.628900 

.948555 

-1.500000 

-1.  500000 

- 2.600000 

-2.000000 

-.2  3 7 69  4 

.400000 

o. oooooo 

0.000000 

.400000 

.061556 

.842600 

.866000 

.745400 

.718000 

.969388 

*1.250012 
.280010 
-. 893198 

*1.  250120 
.600034 
84  6449 

■1.245783 

.979004 

-.753512 

■1.  245068 
1. 329324 
-.600627 

*1.24  5329 
1.  614691 
386555 

*1.229655 
1.  77  3614 
-.134912 

■1.  699678 
1.6118  65 
.096576 

•1.  73  3 772 
1.  4S  47  52 
.297994 


•1.  73  8266 
.954054 
. 644837 


•1.  7500  25 
.208030 
.792992 


FOCOOUT  CRA 


h I 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD*  MASSACHUSETTS 
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PEST  80 OY 


2000 
2000 
L400 

2000 
2000 
(80  Q 

k 

2000 
2000 
7400 

I 

2000 
1000 

iSOO 

' 

2000 
5000 

2900 

r 

|Q00 

5600 


100  0 
2000 
2700 

poo 
1 0 0 0 
2900 

|oQ0 

pou 

1900 


X 

X 

NX 

NPX 

D 

Y . 

Y 

NY 

NPY- 

T 

Z 

Z 

>:Z 

N?Z 

A 

- 1.500000 

-1. 500000 

-.153515 

-1.250012 

. 4933E-03 

• 400000 

0. 000000 

.055250 

.200910 

•6481E+C0 

-.842600 

-.866000 

-.986601 

893198 

. 20  27E+D0 

-1.500000 

-1. 500000 

-.159881 

-1.  25  0120 

• 1677E- 02 

.880000 

. 400000 

.172638 

.600034 

.6584E+00 

-.768100 

-.642600 

-.971923 

846449 

. 20  5 6E+00 

-1.500000 

-1. 500000 

-.170981 

-1.245783 

• 25S6E-8  2 

1.140000 

•800000 

.304683 

.979004 

•6374E+00 

-.652000 

-.766100 

-.936981 

-.753512 

. 190  8E+0Q 

-1.500000 

-1. 500000 

-.194936 

-1.245068 

• 378  2E- 02 

1.460000 

1.140000 

.475316 

1. 329324 

. 64S4E+Q  0 

-.465900 

-• 652000 

-.857948 

-.600627 

•1996E+0Q 

-1.580000 

-1.  500000 

-.239065 

-1.24  5329 

•54S0E-02 

1.670000 

1.460000 

.702123 

1.  614691 

.6180E+00 

-.229700 

-.465900 

-.670724 

-.  386555 

• 16S6E+  00 

-1.500000 

-1.  503000 

-.268347 

-1.229655 

•3684E-02 

1.732000 

1.670000 

.921489 

1.  77  3614 

.59106+00 

0.000000 

-.229700 

-.280799 

-.134912 

. 1448E+00 

-2.000000 

-2.  03000  0 

-.414479 

-1.  699678 

•3180E-02 

1.465000 

1.490700 

.885202 

1.6118  65 

. 5833E+C0 

.137800 

Q.OOGQOO 

.211244 

.096576 

.1038E+0Q 

-2.000000 

-2. OOCOOO 

-.372374 

-1.  73  3772 

• 78 7 4 E- 02 

1.322000 

1.465000 

.725701 

1.  43  47  52 

.6199E+00 

• 3 4440  0 

.137800 

.578529 

.257994 

. 1525E+G0 

-2.000000 

-2.000900 

-.310024 

-1.  738932 

. 6345E- 02 

1.072000 

1. 322000 

.507279 

1. 250739 

• 6350E+00 

.517900 

•344403 

.80408  5 

. 497910 

•1772E+00 

-2.000000 

-2.000000 

-.269527 

-1.  738266 

.4544E-02 

.800000 

1.072000 

.335023 

.954054 

•62186+00 

•626900 

.517900 

.902837 

. 64  4837 

• 16S5E+00 

-2.060000 

-2.  0 80  000 

-.250229 

-1.  750276 

. 34  62E-3  2 

•400000 

• 830000 

.193980 

. 600104 

• 67  E0E+00 

•718000 

•626900 

.948555 

. 739306 

. 2108E+00 

- 2.6  00000 

-2.000000 

-.237  69  4 

-1.  750025 

• 96 9 4 E- 03 

0.000000 

.400800 

.061556 

.200930 

•6572E+00 

.745400 

•716000 

.969388 

.792992 

• 20  € 3E+  00 

mvcur 


c 

€ 

€ 

C' 

i 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


TEST  BODY 


M 

X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

Z 

z 

Z 

Z 

NZ 

7 

-1.500000 

-1.  500000 

-2.000000 

-2.  000000 

-.197278 

0.008000 

-.490000 

-.490000 

0.000000 

-.113683 

.866000 

•800000 

.718000 

. 745400 

.973734 

8 

-1.500000 

-1.500000 

-2.  003000 

-2.000000 

-.075980 

-.400000 

-.800000 

- .8000  0 0 

-.400000 

-.368319 

.800000 

.600000 

• 600009 

.718800 

.926589 

9 

-1.508000 

-1.500000 

-2.000000 

. -2.000000 

0.000000 

-.830000 

-1.200000 

-1.200000 

-.800000 

-.447214 

.600000 

.400000 

.400000 

.600000 

.894427 

10 

-1.500000 

-1.500000 

- ..  0 00900 

-2.  030000 

-.050829 

-1.200000 

-1.600000 

-3.400000 

-1. 200000 

-.496741 

.400000 

• 200000 

•256800 

.400000 

.866409 

11 

-1.500000 

-1. 50BQG0 

- 4.900000 

-2.  030000 

-.348626 

-1.600090 

-1.732000 

-1.490700 

-1.400800 

-.842191 

.200000 

0. 000000 

0.000000 

.256000 

• 4il3G  7 

12 

-1.500000 

-1.500000 

- «.  0 00  00  0 

-2.000000 

-.414479 

-1.732000 

-1 » 67  0000 

-1.46500  0 

-1. 490700 

-.885202 

0.0  00C i)  0 

-.229700 

-.137800 

0.000000 

-.2112  44 

13 

-1.  500000 

-1.500000 

-2.000000 

-2.  030000 

-.372374 

-1.670000 

-1. 460  000 

- 1.32200  0 

-1. 465000 

-.725701 

-.229700 

-.465900 

-.344400 

-.137800 

-.578529 

14 

-1.500030 

-1.500000 

-2.000000 

-2.000000 

-.313024 

-1.460000 

-1. 140000 

-1.07230  0 

-1.  322000 

-.507279 

-.465900 

-.65  2000 

-.517900 

-.344400 

-.804085 

15 

-1.500000 

-1.500000 

- 2.,  00000  0 

-2. 000000 

-.269527 

-1.140000 

-.800000 

-.800000 

-1.072000 

-.335023 

-.652000 

-.768100 

-.628900 

-.517900 

-.9028.3  7 

16 

-1.500000 

-1.500000 

-2.000060 

-2.000000 

-.250229 

-.800000 

-.400000 

' -.400000 

-.800000 

-.193980 

-.768100 

-.842600 

-.718000 

-.628900 

-• 948555 

17 

-1.500003 

-1. 500000 

-2.000000 

-2. 000000 

-.237694 

-.  40000  0 

0.000060 

0.000000 

-. 400000 

-.061556 

-.842600 

-.866000 

-.745400 

-.718000 

-.969338 

18 

-1.500000 

-1.500000 

—2. 00000 0 

-2.600000 

-.237694 

0.000000 

.400000 

.400000 

0. 000000 

.061556 

-.866000 

-.842600 

-.718000 

-.745400 

-.969388 

PROGRAM  PBOXC 
BODY  ID.  TEST 


1.7495| 
-.  1997f 
.78  2^ 


-1.  7473 
-.  59  98 
• 6797j 

-i.  750 a] 

-i.ooooi 

. 50  001 

-1.72  041 
-1.35  281 
.3141; 

-1.76  251 
-1.  5505: 

. 1139| 

-1. e99&! 
— 1. 61 18 1 
-.0965^ 

-1.  733 7| 
-1.  46475 
-.29799: 

-1.  73  893f 
-1.  25  073; 
-•4979l| 

-1.73625 
- . 95  40  5; 
-.64483; 

-1.  75027 
-.60  010; 
-. 73930 

-1.  75002 
-.2G003 
-.79299 

-1.  75002 
•20603 
-. 79299 


i;  _ 


t 


FGtoour  | 
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IC  SCIENCE  ASSOCIATES 
RO,  MASSACHUSETTS 


X 

Y 

Z 


80000 
00000 
IS  00  3 

80  000 
180000 
90  00  0 

C :c; 

90000 
88000 
80  000 

boooo 

fooooo 

5600  0 

K 

ioooo 

&Q7G0 

90000 


143  00  0 
>500  0 
17800 


8000  0 

2200  0 
|44G  0 

I'flOOO 

1200  0 

i7900 

|0  00  0 

locoo 

|890  0 

{900  0 
{900  0 

Isooo 


8000 
800  0 
540  0 


X 

NX 

Y 

NY 

Z 

NZ 

-2.  OOGOOO 

-.197278 

0.000000 

-.113683 

. 745400 

.973734 

“2.000000 

-.075980 

-.400000 

-.368319 

.718000 

.926589 

-2.0QOQC0 

0.0  00  00  0 

-.800000 

-.447214 

.600000 

.894427 

-2.0  DO  000 

-.050629 

-1. 200000 

-.496741 

• 400000 

.866409 

-2.  000008 

-.348626 

-1. 400900 

-.842191 

.256000 

.41130  7 

-2.  00000  0 

-.414479 

-1. 490700 

-.885202 

9. u 09000 

-.211244 

-2.  uilOUO  Q 

-.372374 

-1.465000 

-.725701 

-.137800 

-.578529 

-2.000000 

-.310024 

-1.  322000 

-.507279 

-.344400 

-.804085 

-2.  oacoou 

-.269527 

f 1. 072000 

-.335023 

-.5x7900 

-.902837 

-2.000000 

-.250229 

-.800000 

-.193980 

-.628900 

-.948555 

-2.  000000 

-.237694 

-. 40C080 

-.061556 

-.716000 

-.969388 

-2. 009000 

-.237694 

0. oooooo 

.0  61556 

-. 745400 

-.969388 

N3  X 

0 

NPY 

T 

NPZ 

A 

-1. 749550 

•9397E-G2 

-.  199759 

• 65  72E+0Q 

. 782469 

• 20  54E+0O 

-1.  747311 

. 1900E-01 

-.  599857 

•6708E+00 

. 679777 

.21 58E+00 

-1.  7500 00 

. 3553E- 14 

-1.300000 

•67Q8E+C0 

. 530000 

. 2236E+  GO 

-1. 720409 

.1271E-01 

-1. 352829 

. 670  8E+QQ 

.314114 

.17316+00 

-1.762537 

•1445E-01 

-1. 550513 

•6525E+00 

. 113943 

• 13  54E+0  0 

-1. 699678 

®318  0E-G2 

-1.  611865 

. 5D33E+  00 

-.396576 

.10386+00 

-1.  733772 

• 7874E-02 

-1.  464752 

• 61SSE+  30 

-.297994 

• 1525E+  OJ 

-1.  738932 

• 6345E-02 

-1. 250733 

.6350E+0Q 

-.457910 

•1772E+00 

-1. 736266 

•4544E-02 

- • 95  43  54 

•62186+00 

-.644837 

•16S5E+00 

-1. 750276 

•3462 E- 02 

-.  600104 

• 67  5SE  + 00 

-.  739306 

.210  8E+G0 

-1.  750025 

•S6S4E-03 

-.2000  30 

.6572E+00 

-.792992 

. 20  63E+00 

-1.  750025 

. 9694E- 03 

.200030 

•6572E+00 

-. 792992 

•2063E+00 

rf*ac*jr 


PROGRAM  PBOXC 
BODY  ID.  TEST 


N M X 

Y 
Z 

7 19  -1.500000 

• 40900  G 
-.942600 

20  -1.500000 

.800000 

-.768100 

21  -1.500000 

1.140000 

-.652000 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BECFORO*  MASSACHUSETTS 

TEST  BODY 


X 

Y 

Z 

-1.500000 
•600000 
-.76  8100 

-1. 500000 
1.140000 
-.652000 

% 

rl.SSOOSO 

1.460000 

-.465900 


X 

Y 

Z 

-2.000000 

•830000 

-.628900 

- .'.0  00000 
1.072000 
-.517900 

- <.000000 
1.322000 
-.344400 


X 

Y 

Z 

-2.000000 

.490000 

-.7ieooo 

-2.  030000 
.600000 
-.628900 

-2.000000 

1.072GOO 

-.517900 


NX 

NPI 

NY 

NPfj 

NZ 

NP-| 

250229 

-1.  751 

193980 

.601 

948555 

-.73< 

\ 

269527 

-1.731 

335023 

• 954 

902837 

-.644 

.310024 

.507279 

.604085 


1 


•1.7381 

1.251 


22 


23 


8 1 


2 


3 


4 


5 


6 


-1.500000 

-1.500000 

-2.000900 

-2. 000000 

-.372374 

-1.  73  3j 

1.460000 

1.670000 

1.465900 

1.322000 

.725701 

Is  48  4 

-.465900 

-.229700 

-.137800 

"• 344400 

-.578529 

-.  297| 

-1.500000 

-1.500000 

-2.000009 

-2.  000000 

-.414479 

-1.  6991 

1.670000 

1.732000 

1.490700 

1.465300 

.885202 

1.6111 

-.229700 

0.  000000 

0. 00000 Q 

-.137800 

-.211244 

-.  03  61 

************ 

************ 

-2.000000 

-2.003000 

-2.500000 

-2.500000 

-.597981 

-2.2181 

1.490700 

1. 322000 

1.800000 

1.  05  6000 

.747834 

1. 2401 

0. 000000 

•344400 

.235700 

0, 000000 

.268  38  2 

. 1496 

1 

-2.  000000 

-2. 000000 

-2.500000 

-2.500000 

-.425912 

-2.  214^ 

1.322000 

.800000 

.8  3000  8 

i.QQGOCO 

•463200 

• 9902 

. 344400 

.62  890 G 

.361500 

.236700 

.777203 

.4112 

■i 

-2.000000 

-2.000000 

-2.500009 

-2.500000 

-.397801 

-2.2509 

•800000 

.400000 

.400000 

.800000 

.246251 

• 60  03 

.628900 

.718000 

.515300 

.381500 

•863607 

. 5603 

-2.000000 

-2.000000 

- 2.  500000 

-2.500080 

-.366609 

-2.  250D 

.408000 

0. 009000 

0.000000 

.400000 

.075569 

. 2001 

.718000 

. 745700 

.552800 

•515306 

.927222 

. 63  29 

-2.000000 

-2.  OCOOOO 

-2.500000 

-2. 580000 

-.366809 

-2.  250C 

0.090090 

-.400000 

-.400000 

0.000000 

-.075569 

20  01 

.745700 

.716000 

.515303 

•552800 

.927222 

. 63  29 

-2.000000 

-2.  000000 

-2.500000 

-2.500000 

-.372805 

-2. 2502 

-.400000 

-.800000 

-.800000 

-•  400000 

-.2  78  58  6 

6001 

.718000 

• 60  GOOD 

.381500 

.515300 

.885102 

. 553< 

ATMOSPHERIC  SCIENCE  ASSOCIATES 
BECFORO,  MASSACHUSETTS 
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TEST  BODY 


X 

X 

X 

NX 

NPX 

0 

Y 

Y 

Y 

NY 

NPY 

T 

Z 

Z 

Z 

NZ 

NPZ 

A 

• 5C0Q01 

-2.000000 

-2.000000 

-.2  50  229 

-1.  750276 

• 34  62E-C2 

• 8OCC0Q 

.820900 

•490000 

•193980 

. 600104 

.67506+00 

.76  8100 

-.626900 

-. 7ieooo 

-.946555 

-.739306 

. 2108E+OO 

. 5GOOOO 

- (.  000000 

-2.  030000 

-.269527 

-1.738266 

•4544E-02 

• 140000 

1.072000 

.800000 

.335023 

• 9543  54 

.62166+00 

. 652000 

-.517900 

-.628900 

-.902837 

-.644837 

• 16956+  00 

..50  0000 

- <.  000000 

-2.  090300 

-.310024 

-1.738932 

• 63  45 E- 02 

. 460000 

1.322000 

1.U72GOO 

.507279 

1.250730 

. €3  EGE+QO 

.46  5900 

-.344400 

-.517900 

-.604085 

-.497910 

•1772E+00 

• 50  0000 

-2.000000 

-2. 000000 

-.372374 

-1.  73  3 772 

.7874E-02 

.670000 

1,465000 

1. 322000 

.725701 

1.  46  4752 

•6199E+0Q 

.229700 

-.137800 

-. 344400 

-.578529 

-.  297994 

.15256+00 

.50  GGOO 

-2.000000 

-2.  00  0 00  0 

-.414479 

-1.  69  9678 

.3180E-02 

.73  2000 

1.490700 

1.465000 

.885202 

1.611865 

. 5833E+00 

f.  00  G 000 

3.000000 

-.137800 

-.211244 

-.  096576 

•1G38E+00 

1, 

»*♦  * 

************ 

************ 

Loo  0 000 

- 2.5  00  000 

-2.500000 

-.597981 

-2.2180  24 

•1342 E- 01 

1.  32  2 000 
| 344400 

1.000900 

1*0  5 ECO  0 

.747834 

1.24G723 

•7391E+0Q 

.235700 

0. 000000 

. 268  38  2 

. 149617 

•193SE+00 

lot)  00  00 

F.80  0300 

-2.500000 

-2. 500000 

-.425912 

-2.  214445 

.10346-01 

.800300 

1. 000000 

• 463200 

.990269 

.72386+00 

| 62  8900 

.361500 

.235700 

.777203 

.411267 

• 2322E+00 

l ot)  0000 

-2.500003 

-2.500000 

-.397801 

-2.250969 

•9877E-G2 

£400000 

.400000 

• 800000 

.246251 

.600392 

. 7233E+Q0 

§71  80  00 

.515300 

. 381500 

•683607 

. 560379 

.22  636+00 

io 0 30 00 

- 2*500000 

-2.500000 

-.366609 

-2.250072 

• 22  72E-02 

1000030 

0.003000 

. 400000 

.075569 

• 2G  GlGl 

.68056+03 

|745700 

.552800 

•515300 

.927222 

.632913 

•2157E+0U 

iOG  0000 

-2. 500000 

-2. 530000 

-.366839 

-2.25u072 

• 2272E- 02 

f40  GOOD 

-.403000 

0. 000000 

-.075569 

-•  200101 

.68  G5E+O0 

jzifiGOO 

.515333 

• 552800 

.927222 

.632913 

•21 57E+00 

Isooooo 

-2.500000 

-2. 500000 

-.372805 

-2. 250  363 

•349 6 6- C 2 

|S0  UGOG 

-.800000 

-.  43030  0 

-.2  78  58  6 

-,  600126 

.72336+00 

1600000 

.381503 

.515300 

.885102 

.553499 

.22606+00 

r'»onwrfFStf. 


PROGRAM  PBOXC 
BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


page  ie: 


TEST  BODY 


M 

X 

X 

X 

X 

NX 

NPX 

Y 

Y 

Y 

Y 

NY 

NPY 

Z 

z 

Z 

z 

NZ 

NPZ 

7 

-2.000000 

-2.000000 

-2.500000 

-2. 500060 

-.396212 

-2.  218355 

-.300000 

-1.200000 

-1.300900 

-.890000 

-.458473 

-•956945 

•600000 

.400000 

.235700 

. 331500 

.795499 

.4160  59 

3 

-2.000000 

-2.  000000 

-2.500000 

-2.500000 

-.537231 

-2.  212088 

-1.200000 

-1.49  0700 

-1.055000 

-1.000900 

-.740969 

-1.  209729 

.400090 

0.000000 

0.009900 

.235700 

.402941 

.166619 

9 

-2.000000 

-2.  000000 

- 2.  500000 

-2.  500000 

-.597981 

-2.  218024 

-1.490700 

-1.322000 

-1.000900 

-1.055000 

-.747834 

-1.240723 

0. 000090 

-.344400 

-.235700 

0.000000 

-.  288  38  2 

-.149617 

10 

-2. 000000 

-2.  OtiQOOO 

-2.500000 

-2. 500000 

-.425912 

-2.  214445 

-1.322090 

-.800000 

-.800000 

-1.800000 

-.463200 

-.990269 

-.344400 

-.62  8900 

-.381500 

-.235700 

-.777203 

-.  411287 

11 

-2.009000 . 

-2. 000000 

- <*500000 

-2.590000 

-.397801 

-2.250969 

-.800000 

-.400000 

-.400000 

-. 800090 

-.246251 

-.660  392 

-.623900 

-.718000 

-. 515300 

-.381500 

-.883607 

-.560  3 79 

12 

-2.000000 

-2.  00  9000 

- 2.500000 

-2.500000 

-.366576 

-2.  250074 

-.  49909  0 

0. OOOOOC 

OwOOGfloa 

-.400000 

-.075231 

-.200104 

-.718000 

-.  74  5400 

-.552800 

-. 515300 

-.927341 

-.63  28  37 

13 

-2.  90000  0 

-2.  000000 

-2.509000 

-2.500000 

-.366578 

-2. 250074 

0.009000 

.400000 

.400000 

0. CflOOOO 

.075231 

•200104 

-. 745400 

-.718000 

-.515300 

-.552800 

-.927341 

-.632837 

14 

-2.000000 

-2. 000000 

-2.500000 

-2. 590000 

-.397801 

-2.  250969 

.400000 

.800000 

.800900 

. 400000 

.246251 

.600392 

-.718000 

-.  62  6900 

-.381500 

-.515300 

-.883897 

-.560379 

15 

-2.000000 

-2.  00  0000 

-2.50090  0 

-2. 500000 

-.425912 

-2.  21 4445 

•83000 C 

1.  322000 

1.000000 

•800900 

.463200 

.990269 

-.62890  0 

-.344400 

-.235700 

-.381500 

-.777203 

411287 

16 

-2.000000 

-2. 0000Q0 

- 2.500900 

-2. 590000 

-.597981 

-2. 218024 

1.322000 

1.490700 

1.055000 

1.000000 

.747634 

1.  240723 

-.344400  0.000000 

****+****«.** 

0. 000000 

-.235700 
* **■*•**+**+  * * 

-.288382 

-. 149617 
* 

1 

-2.500000 

-2, 500000 

-3.  00000  0 

-3. 009000 

-.668756 

— 2 « 62  68  J 3 

1.055000 

.800000 

0.000000 

0. 000000 

.411733 

• 63  7 6 9 2 

0. 30000  s 

. 381500 

0.000009 

0. 000000 

.275208 

.149145 

fouxxjqt  fRW*' 


IC  SCIENCE  ASSOCIATES 
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16 


X 

X 

NX 

NPX 

D 

Y 

Y 

NY 

NPY 

T 

Z 

Z 

NZ 

NPZ 

A 

ooooo 

-2. 500000 

-.396212 

-2.  218355 

. . 1214E-Q1 

0030  0 

-.830000 

-.458473 

-.956945 

.65C2E+0Q 

3570  0 

. 381500 

.795499 

.4160  59 

•1686E+00 

00  00  0 

-2.500000 

-.537231 

-2.  212088 

•2711E-01 

55000 

-1.000000 

-.740969 

-1.  209729 

•73S1E+00 

09000 

.235700 

•402941 

.166619 

. 2145E+  00 

ooooo 

-2.  530000 

-.597981 

-2. 218024 

•1342E- 01 

00900 

-1.055000 

-.747834 

-1.240723 

•73S1E+0Q 

35700 

0.000000 

-.  288  382 

-.14  9617 

. 1939E+00 

OOOOO 

-2. 500000 

-.425912 

-2.214445 

. 1034E-01 

ooooo 

- 1. 0 OOOOO 

-.463200 

-.990269 

. 7238E+00 

0150  G 

r 

-.235700 

-.777203 

-.  411287 

. 2322E+  00 

ooooo 

-2.500000 

-.397801 

-2.250969 

.9877E-G2 

80000 

600000 

-.246251 

-.600  392 

•7233E+00 

5L530  0 

-.381500 

-.883607 

-.  560  3 79 

• 22  £3E<-  (0 

60000 

-2.500000 

-.366578 

-2.25C0F4 

•2342E-02 

8000  0 

-. 400000 

-.075231 

-.200104 

• 68  ii4E+  00 

52600 

-. 515300 

-.927341 

-.63  28  37 

.2157E+00 

BD  00  0 

-2.500000 

-.366578 

-2. 250074 

• 2342E-02 

poooo 

0.  C 00 Cl 0 0 

.075231 

.200104 

• 68  G4E+0  0 

15300 

-.552800 

-.927341 

-.632837 

•2157E+00 

ioooo 

-2. 530000 

-.397801 

-2.  250969 

• 9877E-Q2 

icooo 

. 430000 

.246251 

. 600392 

• 7233E+  CO 

8150  0 

-.  515300 

-.863807 

-.560379 

•22E3E+00 

go  00  0 

-2. 500300 

-.425912 

-2.  214445 

.10346-01 

ioooo 

.800300 

.463200 

.,990269 

• 7238E+00 

§5700 

-.381500 

-.777203 

-.411287 

.2 322E+00 

ioooo 

-2. 590000 

-.597981 

-2. 218024 

•1342E-01 

150  0 0 

1. 000000 

.747834 

1.  240723 

• 73  91E+  00 

|800Q 

-.235700 

-.288382 

-. 149617 

•1939E+00 

I 

* *********** 

***  + 

♦ * ****** 

Ioooo 

-3. 000000 

-.868756 

-2.  62  6833 

0 • 

1800  0 

Q. 000000 

.411733 

. 63  7692 

• 11 67E+0 1 

i960  0 

0. 000000 

.275208 

.149145 

* 2316E+00 

amir  crow* 


PROGRAM  P80XC 
BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
EEOFORO*  MASSACHUSETTS 


I . fouxsurfmr*: 


TEST  BOO Y 


M 

X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

Z 

Z 

Z 

z 

NZ 

2 

-2*980000 

-2.5COC0O 

-3.000003 

-3. 000000 

-.776209 

v 8 0 0 0 0 0 

• 40  0000 

0.000000 

0.000000 

.200002 

.381500 

. 5153  00 

0.000000 

0.009000 

.557912 

3 

-2.500000 

-2.562000 

-3.000000 

-3.000000 

-.740175 

•483009 

0.900800 

0.000008 

0.000000 

.062764 

.515300 

.552800 

0.000000 

0.000000 

.669478 

4 - 

-2.500000 

-2. 500000 

-3.000008 

-3.000000 

-.740175 

0.300000 

-■•400000 

0.000000 

Q. 000000 

-.062764 

.552809 

. 515300 

0.090000 

0.030000 

.669478 

5 

-2. 530000 

-2.500000 

-3.00030  0 

-3.000000 

-.776209 

-.  400000 

-.800000 

0.000009 

0.000000 

-.200002 

. 515300 

.381500 

0.000900 

0. 000000 

.597912 

6 

-2.500000 

-2.500CG0 

-3.000000 

-3. COQOOO 

-.868756 

-.800000 

-1.055000 

0.000003 

0. 030000 

-.411733 

.381500 

0. 000  COO 

0.000000 

a. oaoooo 

.275208 

7 

-2.500000 

-2. 500000 

-2.  000900 

-3.000000 

-.868756 

-1.055000 

-.800000 

0.000000 

0.000000 

-.411733 

0.  30000  9 

-.  381590 

o.  aoaooo 

0. 000000 

-.275208 

8 

-2.500000 

-2.500000 

-2.  000000 

-3. COQOOO 

-.776209 

-.800000 

-.  400900 

0.000300 

0.000000 

-.200002 

-.381500 

-.  515300 

0.000000 

a. coooeo 

-.597912 

9 

-2.530000 

-2.500000 

-3.003800 

-3. 000000 

-.740175 

-.400000 

9.000000 

0.000008 

0.000000 

-.062764 

-.515300 

-.552800 

0.000000 

0. 000000 

-.669478 

10 

-2.509000 

-2.500000 

-2.000000 

-3. 000000 

-.740175 

0.000000 

.400000 

0.000800 

0.000000 

.062764 

-.552800 

-.515300 

O.OOOfliiO 

0. 000000 

-.669478 

11 

-2.500000 

-2.500000 

-2.000000 

-3.  000000 

-.776209 

•430000 

.800000 

0.003000 

0.000000 

•200002 

-.515300 

-.381500 

0.000000 

0.000000 

-.597912 

12 

-2.500000 

-2.500000 

-2.  000000 

-3.000000 

-.868756 

.800000 

1.055000 

0.000000 

0. 000000 

.411733 

-.  381500 

0. 0C0C0I) 

0.000000 

0.000000 

-.275208 

******  HfM* 


*•»**♦#*#♦*♦* 


-2 . 62  6j 
-.687| 
- • 1491 


-2.  629] 
-.43*1 
-.33  6 


-2.  63 S 
-.141 
-.389 


-2.  631 
• 14 1 
-.38* 


-2.  6Z| 
.43'] 


-.33 


°2.  62 
. 63 
-.  14 


189  BASIC  ELEMENTS  WERE  INPUT 


S'  ■ 


ASSOCIATES 

I4JSETTS 


i.  X 

NX 

Y 

NY 

l 2 

NZ 

>800000 

-.776209 

>000000 

.200002 

>030000 

.597912 

ie oq ooo 

-.740175 

>880000 

.062764 

(jcaoeoo 

p ' 

.669478 

1 80000Q 

-.740175 

. 000000 

-.062764 

*030000 

.669478 

*000000 

-.776209 

:.  0 0000  0 

-.200002 

^ GOOCOO 

.597912 

*080000 
L 030000 
*800000 

-.868756 

-.411733 

.275208 

L 830000 
• 0 0 0 0 0 0 

-.868756 
" • 411733 

|>  0 3 0000 

l 

-.275208 

L 800000 
0 00000 

-.776209 

-.200002 

L 0 8000  0 

1 

-.597912 

1 . 

Loooooo 

-.7  4017  5 

Loooooo 

-.062764 

'•  030000 

-.669478 

L ooooco 
Lodoooo 

-.740175 

.662764 

[•  000000 

[■ 

-.669478 

. ocoooo 

-.776209 

'•000000 

.200002 

>•800000 

t 

-.597912 

[•  080000 

-.868756 

koooooo 

(•080000 

.411733 

-.275208 

-*♦****■¥*♦** 
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NPX  1 

0 

NPY 

T 

NPZ 

A 

-2.629150 

• 1332E-14 

.434170 

. 10 16  E+01 

• 336208 

.1672E+00 

-2.  63  5472 

• 2220E-15 

.141262 

.82196+00 

.36  9779 

.14946+00 

-2.  63  5472 

.30  53E-15 

-.141262 

.82196+00 

.369779 

• 14S46+G0 

-2.  629150 

.11106-14 

-.454170 

.10186+01 

• 33  6208 

.16  726+00 

-2.  62  6833 

.88826-15 

-.687692 

.1167E+01 

.149145 

.23166+00 

-2.62  6833 

0 • 

-. 687692 

.11676+01 

-.  149145 

. 2316E+  00 

-2. 629150 

.13326-14 

-.434170 

. 10 18E+01 

— . 33  62  08 

• 16  7 2E+  00 

-2.  635472 

.22206-15 

-.141262 

• 8219E+08 

-.389779 

.14946+00 

-2.  635472 

.30536-15 

.1412  62 

.82196+00 

-.389779 

•1494E+00 

-2.  629150 

. 1110 E- 14 

.434170 

.10 16E+01 

-.33  6208 

.16726+00 

-2. 626833 

• 8882E- 15 

. 687692 

•1167E+01 

-.149145 

•23166+00 

***♦ 

******** 

*> 

»3  * 


^OTKfTffMfv  -2^. 


■%v  ■ 


CRT  PLOTS 


MINIMUM  ANO 
X AXIS= 

Y AXIS= 

Z AX IS= 


MAXIMUM  COORDINATES  IN  THE 
-3.960COE+00  2. C0303E+Q9 

-2.00GD0E+UD  2.  tCOOSE+OO 

-i.oa  cgse+go  i.  coaaoE+oo 


SCALtD,  TRANSLATED,  ROTATED  SYSTEM 


COORDINATE  TRANSLATIONS  USED  TO  CENTER  THE  PLOTS  - DEL  X*  OELY,  DELZ 
AFTER  SCALING,  TRANSLATING,  ROTATING  5.0C8CaE-Ql  {,. 


VIEW  OF  BODY  LOOKING  DOWN 

THE 

-Y 

AXIS 

TOWARD 

THE 

45-DEGREE  VIEW  FROM  THE 

+X 

-Y 

+ Z 

SIDE 

45-DEGREE  VIEW  FROM  THE 

+X 

-Y 

-Z 

SIDE 

45-OEGREE  VIEW  FROM  THE 

-X  . 

-Y 

*1 

SIDE 

45-DEGREE  VIEW  FROM  THE 

-X 

-Y 

- Z 

SICE 

VIEW  OF  BODY  LOOKING  DOWN 

THE 

-Z 

AXIS 

TOWARD 

THE 

45-OEGREE  VIEW  FROM  THE 

-X 

♦ Y 

-z 

SIDE 

45-DEGREE  VIEW  FROM  THE 

♦X 

♦ Y 

-z 

SIDE 

VIEW  OF  BODY  LOOKING  DOWN 

THE 

-X 

AXIS 

TOWARD 

THE 

45-DEGREE  VIEW  FROM  THE 

-X 

+Y 

+z 

SICE 

VIEW  OF  BODY  LOOKING  DOWN 

THE 

♦ X 

AXIS 

TOWARD 

THE 

VIEW  OK  CODY  LOOKING  DOWN 

THE 

+ Y 

AXIS 

TOWARD 

THE 

VIEW  OF  BODY  LOOKING  DOWN 

THE 

+ 1 

AXIS 

TOWARD 

THE 

45-OEGREE  VIEW  FROM  THE 

»X 

+Y 

♦ Z 

SIDE 

LO 


BOXC 


PROGRAM  BOXC 
80DY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


PAGE 


TEST  BODY 
INPUT  PARAMETERS- 

IFL  AG=  P LIST=  0 ISIG=  C 

NCODE=  D NNON=  C NOFF=  0 

NUMBER  OF  LEAKY  QU ADRALATERALS=  6 


IPRS=  0 MPR=  Q 

KMACH=  C KTPi 4=  1 

FRACTION  OF  FREE-STREAM  VELOCITY  LEAKED=  0 


PARAMETRIC 


INFORMATION 


GENERATED  UNIFORM  FLOWS 


INJ 

O 


X-F.OW 


NO  SYMMETRY  SPECIFIED 


PROGRAM  BO XC 
BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD*  MASSACHUSETTS 

TEST  BOCY 


M 

X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

Z 

Z 

z 

Z 

NZ 

1 

2. 300000 

2.  00  0000 

1.503000 

1. 500000 

.958  086 

o. aaoooc 

0.000009 

1.670000 

1. 732000 

.£76584 

0.003500 

0.000090 

.229700 

0. COOOOO 

.074655 

2 

2. OOOCRO 

2.000000 

1.500000 

1. 500000 

.941794 

D.0OCC00 

0. 000000 

1.460000 

1.670300 

.251249 

0.003000 

o.  ocaooo 

.465900 

.229700 

.223380 

3 

2.300000 

2. 000  GOO 

1.500300 

1. 500000 

.915363 

0. 3 00  DO  0 

6. 000000 

1.140300 

1.  460000 

. 202414 

0. 303300 

0.000090 

. 65200  0 

.465900 

.348052 

4 

2.003000 

2. 000000 

1.500900 

1. 500000 

.891771 

0.300000 

0.000000 

•800000 

1.140000 

.146221 

0.030000 

0.  00  0 000 

.768100 

. 652000 

.428  210 

5 

2.309900 

2.090000 

1.500000 

1. 500000 

.874522 

0.300000 

0.000009 

•400009 

.800500 

.088802 

0. ooooco 

0. CfiOOOO 

.842600 

. 768100 

.476787 

6 

2. 003030 

2.  00  0000 

1.500000 

1. 500000 
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-. 1499 uO 

• 390  0 89 
-.652170 
-.650004 

1.241719 
-1.  652830 
- o 41 468 0 

C 

T 

A 

,82886-02 

•6561E+G0 

• 18  46E+  GO 

• 6043E-C2 
, 6814E+  £0 
,21  59E+C0 

, 42 16E- C2 

• 66  C tE+OG 
.2025E+00 

•2656E-C2 

.6744E+CQ 

.2l£8E«-uO 

•77 10E-C3 
•65S4E+00 
•2075 E+yO 

• 31 53E- 81 
.6708  E+  3 0 
.2125E4-C0 

.3553E-14 
, 67  u 8E+ u Q 
.22366+00 

.3553E-14 

• 670  8E  + 40 
. 2236E+G0 

,666 IE- 1 4 
,67  C8E+G0 
.2236E+G0 

.3975E- Cl 
.67  u8E  + CO 
cl685E+  OG 

.5764E-C2 

.6416E+GQ 

.17Q6E+LQ 

.3266E-C2 

.65ElE+uO 

,1846E+uO 
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PROGRAM  BO XC 
BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
8ECFORO.  MASSACHUSETTS 

TEST  BOGY 


N 


2 


[\5 


3 


M 

X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

Z 

Z 

Z 

Z 

NZ 

14 

1.503000 

1. 5CQ0C0 

ioOCQQOO 

1.  GOOOQG 

.324553 

-1.463000 

-1. 140000 

-1.200000 

-1.  600000 

-.44700  6 

-. 465900 

-.  652000 

-.880000 

-.600000 

-.833577 

15 

1.530000 

1. 500000 

1. 000000 

1.000000 

.288009 

-1.143000 

-.  80  0000 

-.8  08000 

-1.200000 

-.287154 

-.652000 

-.768100 

-.916500 

-.600000 

-.913  561 

16 

1.500000 

1.500000 

1*300000 

1.  310CGO 

.270929 

-.800000 

-.4C0Q00 

-.400000 

-.803000 

-.163401 

-.768100 

-.842600 

-.979300 

-.916500 

-.946629 

17 

1.500000 

1.540000 

1. 000000 

1. 090000 

.261384 

-.430000 

0.  0001)03 

0.0  30  00  0 

-.430000 

-.052527 

-.342600 

-.666000 

- 1.  00000  0 

-.979800 

-.963605 

18 

1.530010 

1.500300 

1.  u 0300  0 

i. eaocoo 

.261364 

0.030000 

.400000 

o 4 0 u 0 u 0 

3 . 0-30000 

.05252  7 

-.865000 

-.842600 

-.979800 

-1.  G30GQ0 

-.963805 

19 

1.530  \0  3 

1. 5QCG00 

1.0-30  00  0 

1.030000 

. 270929 

•400000 

• 800601) 

.800900 

. 400 OC 0 

.163481 

-.342630 

-.768100 

-.916500 

-.979600 

-.948629 

20 

1.  50000  0 

i. 50  C 00  0 

1.  0 00  00  0 

1.000000 

.288009 

.800000 

1. 140  000 

1. 203300 

. 6QG0C0 

.287154 

-. 768100 

65 2 0 C 5 

-.803010 

-.916500 

-.913561 

21 

1.50G0G0 

1. 500000 

1.  3 0G3C 3 

1.  COO  50  0 

. 324553 

1.140000 

1. 460000 

1.600000 

1.  200000 

.447006 

-.65200 C 

-.465900 

-. 6003C0 

-.8  3300  0 

-.6  33577 

22 

1.530000 

1.500033 

1..)  0300  0 

1.020080 

.390089 

1.46000  0 

1.570000 

1. 870000 

1.6Qu03D 

.652170 

-. 465900 

-.229700 

-.354600 

-.600000 

-.650034 

23 

1.  5 0 0 0 C 0 

1.  50.0000 

1.  00  (QuG 

1.  803  000 

.435365 

1.575000 

1.732000 

2 . 3 0— .00 

1. 870U00 

.855263 

-.229700 

0.  00003(1 

o.  wovco 

-.3  5h60O 

-.281338 

1 

l.QOOGOO 

1. OOCOOu 

0 . >J  4».J)  G 0 

0 » 0 0 u 0 3 0 

0 . 0 00  G 8 a 

2.  QQ3C0  ' 

1.873000 

1.870303 

2.530090 

.938693 

0. 33Q0C0 

. 354600 

. 3 5468  0 

u.eocooo 

.344208 

2 

1.  303 9X 

1.000000 

0. 000300 

0. 000 000 

0 . 0 00  00  0 

1.  8700  *0 

1 • 60  0 COO 

1.600000 

1.670060 

.672591 

• 3 54B,  0 

.600000 

. 6uU0G  0 

* 3 5h 6 0 0 

.740014 
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NPX 

N°Y 

NPZ 


1.  241630 
■1. 351646 
-.631851 


1.242990 
-.98  5715 
-.766135 


1.  2501801 
-.600088 
-.376683 


1.  250017! 
-.200  0 26! 
-. 922094 


1.  2500171 
. 2000261 
- • 92 2 u 94! 


1.  250 180 
. 6u  1,068' 
- • 87  66  83 1 


1.  24  2990  j 
.96  5715] 
7661351 


1.  2416301 
1. 351646 
-.  6316511 


1. 241719 
1. 652830 
-.  414680 


1 • 22  0 560; 
1.  3317291 


-.  in 99601 


. 5 G C*  □ tl  0 i 


1.  33  53U0S 


. 17  73  GO! 


. 50  0000’ 
1.  73  50  GO) 
. 477300] 

| 
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NX 

NY 

NZ 

.324553 
-.44703  6 
-.833577 

.2ESGQ9 
-.28  7154 
-.913561 

.270929 

-.163401 

-.946629 

.261384 

-.052527 

-.963605 

.261364 

.052527 

-.963805 

* 27  (3  929 
.163401 

-.948629 

.288009 

.287154 

-.913561 

.324553 
.447006 
-.8  33  577 

• 3 9 0 J 8 9 
.652170 

-.650004 

.435365 

.855263 

-.261038 

0.000000 

.936693 

.344208 

0 .1)00  GOO 
.672591 
.740014 


NPX 

N?Y 

NPZ 

1.  241630 
-1.351646 
-.631851 

1.242990 
-.98  5715 
-.786135 

1.  25  0180 
-. 60 C 068 
-.376683 

1.  250017 
-.200026 
-.922094 

1.  25  0017 
.200026 
-.922094 

1.  250  160 
* 60  tC  66 
-.  876683 

1.  242990 
.96  5715 
-.  76  6i35 

1.  241630 
1.351646 
-.  6316  51 

1.  241719 
1.  652830 
-.  414660 

1.  22  0 560 
1.  331729 
-.  14991-0 

. 5 D Q Q « 0 
i.  93  50  GO 
. 17  73  GO 

. 50  0000 
1.  73  5QC0 
.477300 


0 

T 

A 

•6Q43E-C2 

.6814E4C0 

.2159E+GG 

.4216E-G2 

• 66COE>00 
.26  25E+G0 

•2656E- 02 
. 67  44E+  00 

• 21 C6E+GG 

• 77 10  E- 03 
•6594E+CO 
.26  75E+00 

.77  luE-03 
.659464  £0 

• 20  75E+G0 

•2656E- 02 
. 6744E400 
.21C8E+G0 

.4216E- 02 

• 66  £ OE  + QO 
.2025E+C0 

•6C43E-U2 

• 68 1hE+  GO 
.21596400 

•8286E-02 

• &561E+  CO 
•1846E+G0 

. 5764E-G2 
• 6416E+GO 

• 17  Q 8 E+  GO 

0 • 

.1069E4Q1 

.3777E400 

. 4865  E-14 
.1064E401 

• 3649E+  00 
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ATMOSPHERIC  SCIE 
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BODY  ID 

. TEST 

• 

TEST 

BODY 

N 

M 

X 

X 

X 

X 

NX 

NPX 

m 

Y 

Y 

Y 

Y 

NY 

NPY 

^P‘ 

Z 

Z 

Z 

Z 

NZ 

NPZ 

# 

3 

3 

1. 000000 

1. 009000 

0*  0030  b 3 

3. 290000 

9.308000 

• 50000 

1.600000 

1. 200000 

1.29000 0 

1.  6 90  30  0 

.447214 

1. 40  GUO 

.630000 

.300000 

.8  00099 

.690000 

.894427 

.70000 

€ 

4 

1.000000 

1.000000 

U. 300090 

G.G300C0 

0. 000030 

. 50  3301 

1.233000 

. 890000 

• 8 80  00  3 

1.230000 

.279631 

1. 00000 

« 

.800000 

.916500 

.916530 

. 8 90 G CD 

.96013  7 

.85  62  51 

5 

1.003000 

1.1300000 

0.0GCOC0 

O.COOGOO 

9.0 00003 

. 53  090 

m 

.800000 

.400000 

• 400030 

. 80C  00  0 

.156305 

. 613301 

W 

.916500 

.979890 

.979800 

.916500 

.987709 

.948151 

1 

6 

1.500000 

1. 00  0000 

0. 300030 

3. GQGOuO 

9. 000000 

. 59  000' 

.403000 

0.000000 

0.030000 

.400000 

.050436 

. 20  000 

. 979800 

1.000090 

1.900000 

. 979830 

.996727 

. 93  9 9 Of 

( 

7 

1.003000 

1.000000 

0.000030 

0.000009 

0.DD00QC 

. 500301 

0.000000 

-.  40  0000 

-.400039 

U. 000080 

-.447214 

-•200001 

( 

ho 

l.OOOCOO 

• BO  0000 

.803090 

1.  v-OOGOO 

.894427 

. 90  3 00] 

On 

5 

1. J090QC 

1.00 Q00G 

3.000000 

0.000000 

O.OGGOOQ 

. 5oooo;l 

< 

-. 400000 

-.800090 

-.800009 

-.  490 OC  0 

-.447214 

- • 6 D 0 3 0J 

.300000 

• 60  0Q0C 

.630000 

.6 J00C0 

.894427 

• 7 0 0 fl  OJ 

.. 

9 

1. ooocoo 

1. 0C03G0 

0.000300 

0. 039030 

3. 9 CO  000 

.50031 

-.330000 

-1.20  0 000 

-1.20903  0 

-.830000 

- .447  214 

-1.  30  00t| 

.603000 

. 409000 

.400000 

• 690  CO  0 

.894427 

. 5DD00 

10 

1.  J 00000 

1.000000 

3. COO  030 

y. oooooo 

0 . 0 GO  00  0 

. 5ooa| 

-1. 200000 

-1.6CGC00 

- 1.6009C0 

-1.  29C 80 0 

-.447214 

-1. 40  uo| 

.400000 

. 200000 

•200000 

.400000 

.894427 

. 30030 

1 

11 

1.300000 

1. 000090 

0.000003 

0.033000 

0.040038 

•1 

. 50000 

-1.600000 

-2. 000000 

-£.080030 

-1.  609000 

-.447214 

-1.89  0 Of 

. 23000 0 

0.000000 

0.080038 

. 28003  C 

.894427 

. 10  00! 

i 

12 

1.  0 0000  0 

1. G0009D 

0.003900 

0. G000C0 

9.000330 

i 

. 5uG0! 

-2.  OOOCOO 

-1. 67  00  GO 

- :. 870090 

-2. OOOOOO 

-.936693 

-1.93  501 

0.300000 

-.  354600 

-.35460  3 

0. OflGCOO 

-.  3 4420  8 

-.  17  73] 

13 

1. 033COO 

1. OCOOOC 

0.003000 

0. oooooo 

0.0  00  GO u 

. 5C OOf 

-1.370000 

-1.  60  0000 

-1.600009 

-1. 873000 

-.672591 

-1.  73503 

-.354600 

-.600000 

-.600003 

-.354600 

-.740814 

- . 47  73> 

) 

14 

1.000000 

1.  00  0000 

0.000900 

0.009000 

0.803  008 

. 5l  agj 

- 1.600000 

-1. 28  0000 

- 1.20000  0 

-1. 600000 

-.447214 

- 1.  40  00 

-• 6000C  0 

-.800009 

-.800003 

-.600080 

-.694427 

-.  70  00 

L, 
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ATMOSPHERIC  SCIENCE  ASSOCIATES 

BEDFORD,  MASSACHUSETTS  PAGE  6 

TEST  BODY 


X 

X 

NX 

NPX 

0 

Y 

Y 

NY 

N?Y 

T 

2 

Z 

NZ 

NPZ 

A 

0002 

0.000022 

0. 300000 

9 .800808 

.500000 

• 66  61 E- 14 

0 0 0 c 

1.20000  0 

1.600000 

.447214 

1.  40CUC0 

• 10  95 E+  Cl 

0 00  0 

• a ooooo 

.600000 

.894427 

.700000 

.4472E+UQ 

iOOOO 

0. 000000 

0.030000 

Q.Q00G0Q 

. 500000 

• 244  2 E- 14 

000!) 

•800003 

1.200000 

.279631 

1.  00  0000 

• 10  6 3E+  0 1 

,6500 

.916500 

.800000 

.9  6010  7 

. 856250 

• 41 66E+0  0 

IOQOO 

o.mooo 

0.830800 

O.OCOOOO 

. 50  00  09 

• 2442  E- 14 

OOOO 

.400000 

. 8QGQC0 

.156305 

. 610020 

.10  79£*fil 

:980  0 

. 979800 

.916500 

.987709 

.948150 

.4050E+00 

0000 

0.000000 

Q.  0 00  GOO 

O.OCOOOO 

. 50  0000 

• 55  51E- 16 

[0  000 

0.000000 

.400000 

.050436 

. 200000 

. 1Q77E+  01 

IOOOO 

!, 

1.3  GO  00  0 

. 979800 

.998727 

. 93 9900 

. 4BE5E+00 

1 ■ 

OOOO 

0.000000 

0 « 0 0 0 8 0 0 

O.OCOOOO 

. 50  0000 

. 31 09 E-  14 

[SO  0 0 

-.400000 

U. 000000 

-.447214 

-.20  0022 

•1095E+Q1 

iOOOO 

j 

.800020 

1. v 00 000 

.894427 

. 900000 

. 4472E+00 

IOOOO 

0.000000 

3. 000000 

0.000000 

. 500000 

• 3 5 53  E-  14 

.OOOO 

-,,8  00  001) 

-.  430  OC  9 

-.447214 

— . 60  0 3 00 

•IC95E+C1 

pOOG 

.600000 

.6 JOOCO 

.89442  7 

.700000 

• 4472£«-00 

loaco 

0.000300 

0. 080000 

8.000000 

. 500060 

• 35  53E- 14 

900  0 

-1.200000 

-.830000 

-.447214 

-1.00  1)080 

• 10  9 5E+  01 

pocio 

.400000 

.600000 

.894427 

• 50  0000 

• 44  72E+00 

jpooo 

0.080000 

8.000000 

0.0  00  20  8 

. 500023 

• 66  6 IE- 1 4 

ieoo 

- 1.  600000 

-1.  200  00  0 

-.447214 

-1. 402900 

.1095E+01 

OOOO 

.200000 

.400800 

.894427 

.300080 

• 44  72  E+  00 

■ 000 

0.000003 

0.030000 

0.020002 

. 5C0082 

• 44  41E- 15 

iooo 

-£.880080 

-1. 600000 

-.447214 

-1. 890060 

•1095E+01 

lOflG 

0.080080 

. 200000 

.894427 

. IQ  2 0 8 0 

• 44  72  E+  0 0 

■ 000 

o. ooeooo 

u. 000000 

0 . 0 0 0 0 3 G 

. suoeco 

0 . 

iooo 

- :.  878080 

-2. UOtiQOO 

-.938893 

-1.935380 

• 10  69E+01 

|600 

-.35460  0 

0.  8 OC 00  0 

-.  3 4420  8 

-.  17  73 CO 

• 3 7 7 7E+  0 0 

lose 

0.080000 

0. 800000 

0 . 0 0 U 0 0 2 

. 5C0000 

• 48  £5E- 14 

iooo 

-1.600000 

-1.870000 

-.672591 

-1.  735000 

.1064E+01 

iooo 

-.600000 

-.354600 

-.740314 

-.47  7300 

.3649EK30 

Iooo 

0. 003000 

0.00000  0 

O.UCJ 00  u 

. 5t00CQ 

. 6661E-14 

iooo 

- 1.2  0000  0 

-1. 630000 

-.447214 

-1.40  COCO 

• 10  95E  + 01 

iooo 

-.800000 

-.600000 

-.894427 

-.  70  3200 

•4472E+C0 
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17 


18 
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20 
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TEST 
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PAGE 


1. 
1. 
“ • 

1. 

“■  • 

* • 

1. 


1. 

G. 

1. 

1. 

* • 


1. 

• 


1. 

1. 


1. 

1. 


1. 

1. 


0. 

2. 

0. 

0. 

1. 


0. 

1. 


TEST  BODY 


X 

X 

X 

X 

NX 

NPX 

Y 

Y 

Y 

Y 

NY 

NPY 

Z 

7 

Z 

Z 

NZ 

NPZ 

3 300  0 0 

1.000000 

0.000003 

0. GOO  COO 

0.000000 

• 500000 

200000 

-.800000 

-.800000 

-1. 200000 

-.279631 

-i.QDCCOQ 

800000 

-.916500 

-.916500 

-.830000 

-.960107 

-.858250 

nonoTC 

1.  C©  000  0 

0. 000300 

0. 030000 

0 • 0 00  GO  0 

. 500300 

800000 

-.4COOOO 

—.400000 

-.830000 

-.156305 

-.660000 

916500 

-.979800 

-. 979800 

-.916500 

-.987705 

-.948150 

030000 

1.  000000 

0.000000 

0.000030 

0.0  00300 

• 52  0 QUO 

400033 

0.000000 

0.003000 

400000 

-.050436 

-.202000 

379800 

-1.000  coo 

-1.000000 

-. 979800 

-.958727 

-.  989900 

300000 

1. 090000 

0*003900 

0.002000 

0.000000 

. 500300 

-30000  0 

.400000 

.400000 

Q. 003000 

.050435 

.220033 

300090 

-.979800 

-.979800 

-1*600000 

-.998727 

-.  96  9900 

303200 

1. 000030 

0.000000 

4.833000 

0.030303 

. 50  0000 

400000 

.800000 

.803003 

.400000 

.156305 

• 60  0 0 CO 

979800 

-.916500 

-.916500 

-.979800 

-.987709 

-.948150 

000000 

1.  0300(50 

0.300900 

0.033000 

C.  300003 

. 500300 

300000 

1*200090 

1.200000 

.890300 

.279631 

1.  000300 

916500 

-.890000 

-.800300 

-. 916580 

-.960107 

-. 858250 

090000 

1.  009009 

0*080900 

9*608000 

0.000000 

. 500300 

200000 

1. 699900 

1.600000 

1. 290000 

.447214 

1. 403030 

8 Q 0 0 0 0 

-.600000 

-.600000 

-.600000 

-.894427 

-.700000 

000000 

1.  00 00 u(! 

0.000080 

0. G3C000 

0.000003 

.500300 

600000 

1.870030 

1.8700C0 

1.600000 

.672591 

1.  73  50  00 

600000 

-.354600 

-.354600 

-.600000 

-.740014 

-.477330 

009000 

1. ocooco 

2.304000 

0.03D020 

0. OOUOQu 

. 503000 

870000 

2. 000000 

2. 000000 

1.870000 

.938893 

1.  93  53  CO 

354609 

0. 909090 

0.000300 

-.354600 

-.344208 

-.  177300 

030000 

0.00,0000 

-.500000 

-.500000 

-.049  532 

-.  24  80  68 

00(10  0 0 

1.87  0 000 

1.850300 

1.972000 

.939127 

1*  92  3392 

000000 

.354600 

.341500 

3.000000 

.339980 

. 1?  40  52 

300000 

0.00  0000 

-.500000 

-.502000 

-.043145 

-.249477 

870000 

1*609000 

1.5850U0 

1. 850000 

.675158 

1.  72  6269 

354600 

.600030 

.586600 

. 341500 

.736411 

. 470688 

000000 

S. 000000 

-.500000 

-. 500000 

- .034875 

-.249169 

630000 

1.200  300 

1.195000 

1. 585000 

.449471 

1. 39  5016 

600000 

.800000 

.784400 

. 586600 

.892614 

. 692774 
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NX 

NY 

NZ 

0.0  013  00  0 
-.279631 
-.96010  7 

i 

r Q.OCOOOO 
. -.15630  5 

[ -.98770  9 

; 

[ Q.OCOOOO 
I -.050436 
; -.958727 

[ 0.000000 
.050436 
‘ -.598727 

■■  Q.OCQuOO 
.156305 
| -.987709 

[ 

I o.ooouoo 

I .279631 
f -.960107 

I 0.000000 
I ,447214 
I -.894427 

I 0.000000 

I .672  591 
I -.740014 

I O.OOUOUU 
I .938893 
I -.344206 

I -.049532 
I .939127 
.339980 

.0 43145 
.675158 
.736411 

.034875 
• 4*9  47 1 
.692614 


’ !>X 
Nc  Y 

N?Z 

. 50  0000 
-1. QDOOQO 
-.858250 

• 50  03  0 0 
-.600000 
-.948153 

. 50  3000 
-.  20  0000 
-.  969900 

.500000 
•200000 
-.  96  9900 

. 500000 
.600000 
-.948150 

. 500000 
1.  00 00 00 
-.  858250 

. 500000 
1. 40UOOO 
-.700000 

.500000 
1.  73  5000 
-.  477303 

. 5 0 U 0 0 0 
1.  93  50  GO 
-.  177300 

-.  248068 
1.92  30  92 
. 17  4052 

249477 
1.  72  6269 
. 470688 

-.249169 
1. 39  5016 
.692774 


0 

T 

A 

, 24  42£*i4 
.1083E+01 
,41 66E+0G 

. 244  2E- 14 
. 10  7 9E+01 
.4Q5GE+00 

•5551 E- 16 

• 10  77  E+  0 1 
.40 05E+00 

, 3553 E- 14 

• 10  77 E+  01 
,40056+00 

.222CE--14 

.10796+01 

• 40  5 JJ  E+  GO 

, 31096-14 
.10  83E+01 

• 41 6 6E+0  0 

• 66  6 IE- 14 
.1095E+01 
.4472E+00 

.6217E-14 

.1064E+01 

.3649E+C0 

• 6217  E- 14 

• 10  69E+  0 1 
.3777E+G0 

, 764  8E- 03 
. 6 2 3 8 E+  CO 
.18  53E+00 

.78  67  E- 03 

• 620  5E+0  0 
o 18 1 6E+ CO 

. 63 27 E- 03 
•6693E+C0 
.22136+00 


rnoour 


PROGRAM  BOXC 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEOFORO*  MASSACHUSETTS 


BODY  10. 

TEST 

TEST  BCDY 

N M 

X 

Y 

Z 

X 

Y 

Z 

X 

Y 

Z 

X 

Y 

Z 

NX 

NY 

NZ 

4 4 

0.000000 
1. 200000 
.303000 

0.000000 

•800000 

.916500 

-.500000 

,880000 

.901200 

-.500000 
1.196000 
. 784400 

-.031043 

.281449 

.959074 

5 

0.033DG0 
.8  0 00  0 0 
16500 

0.008000 
.400000 
. 97980C 

-.500000 

.400000 

.965508 

-.530009 
. 800090 
.931200 

-.029218 

.157442 

.987096 

6 

Q. 090000 
.400000 
.979800 

0. GO  000 Q 
0. 000  900 
1.000000 

-.500000 

a.oooooa 

.986000 

-.500000 

.430000 

,965530 

-.028252 
.05078  5 
.998310 

7 

0.0 0000 C 
0.000008 
1.000000 

0. oooooo 

-.490000 

.800080 

-.500000 

-.400000 

,800300 

-.530000 

0.030900 

.986000 

-.U12606 

-.434526 

.900571 

S 

0. 900009 

-.400000 

•880000 

0. 000090 
-.800900 
.600000 

-.  500080 
-.800000 
.600090 

-. 530900 
-.430000 
.800000 

0 .00300  0 
-.447214 
.894427 

^ 9 

0.000000 

-.800000 

.600000 

O.OGOOOO 
-1. 2C0C00 
.403000 

-.500000 
- J,  2 00  00  0 
.409000 

-.500000 
-.800990 
. 600000 

0.000000 

-.447214 

.894427 

10 

8. 000 COO 
-1.200000 
.*♦0003  0 

0 • 030000 
-1. 603000 
. 200000 

-.5  00  00  0 
- 1.6  00000 
. 20000  0 

-. 53S000 
-1. 23G0Q  0 
. 490  Q 0 0 

0.303300 

-.447214 

.694427 

11 

n. oooooo 

-1.600009 

.200030 

C. SO  0009 
-2. OCOOOC 
0.000000 

-.  500090 
- 1.972000 
0. 000009 

5 30  DOS 
-1.600008 
. 200000 

-.012880 

-.460013 

.887820 

12 

o. 000000 

-2. 00T00C 
0.800000 

C • 000900 
-1. 873000 
-.354600 

-.590000 
- 1.  850000 
-.341500 

-. 500000 
-1.972000 
Q. 0030 CO 

-.049  532 

- .939127 

- .33998G 

13 

G. D 30000 
-1.870000 
-.354600 

0.000009 
-1. 60GQQ0 
-.60  CO 00 

-.500300 
-1,  585000 
-.586600 

-. 59CGQ0 
-1.650000 
-. 341500 

-.043145 

-.675158 

-.736411 

14 

0.000000 

-1.600009 

-.600090 

0 . 0 0 0 0 0 0 
-1.200000 
-.800000 

-.500000 
- 1.195000 
-.784403 

-.500000 
-1. 585000 
-.586600 

-.034875 

-.449471 

-.892614 

15 

0. 00008  0 
-1,200000 
-.800003 

o.ooonoo 
-.  80  0000 
-.9165Q0 

-.500500 

-.800090 

-.901200 

-.500000 

-1.  1950U0 
-, 784400 

-.031043 

-.281449 

-.959074 

li>  oo 


:c  SCIENCE  ASSOCIATES 

(0,  MASSACHUSETTS  PAGE 


C X NX 

r Y NY 

l I NZ 


NPX 

NPY 

NPZ 


1000  0 -*  50000!) 

IflOOO  1.19EQG0 

>1200  • 7 8 4-4  DO 

[. 

Id  00  0 -.500000 

ioauo  .600G00 

>5500  .901200 

i 

f. 

laooo  -.  500000 

ioooo  .400000 

>6000  .965500 

10000  -.500000 

13000  0.000000 

13000  . 986000 

f 

lOOC'O  - • 530000 

1030  0 -.430003 

IOOOO  .800000 

X 

|0  00  0 -.5  00  00  0 

13  001)  -.800CCO 

So  00  0 .600000 


-.031043 

.281449 

.959074 

-.249537 
.998756 
. 85  0 536 

-.029218 

.157442 

.967096 

-.250016 

.6GU061 

.940749 

-.028252 
.05078  5 
.998310 

-.250002 
. 20  0308 
.962825 

-.1)12606 

-.434526 

.900571 

-.  24  9496 
-.199997 
. 896509 

0 .00000  3 
-.447214 
.894427 

-.  250000 
- . 60  00  00 
. 7000OU 

0.000000 

-.447214 

.894427 

-.250000 
- 1.  00 000  0 
. 5C00«0 

IOOOO 

So  30  0 

IOOOO 

Ioooo 

|20oa 

ioooo 

Ioooo 

>3  00  0 

150  0 


poo  0 

1500  0 
|66G  0 

Ioooo 
000 
|440  0 

Ioooo 
oco 
200 


-.530000 
-1. 200300 
. 400300 

-.530000 
-1. 680O0B 
.200000 

-.  5 00  0 C 0 
-1.972300 

3. 103300 

-. 50CC00 
-1.650000 

-. 341500 

-.500000 
-1. 585000 

-. 586600 

-. 500CQQ 
-1.195000 

-, 7844C0 


0.000300 

-.447214 

.694427 

-.  25  0 JOQ 
-1. 400000 
. 30  0000 

-.012880 

-.460013 

.887620 

-.247831 
-1.  79  3J15 
. 100024 

-.049  532 
-.939127 
- .339980 

-.248068 
-1.  923092 
-.174052 

-.043145 

-.675158 

-.736411 

-.249477 
-1.72  62  69 
-.470688 

-.034875 

-.449471 

-.892614 

-.249169 
-1. 39  5016 
-.692774 

-.031043 

-.281449 

-.959074 

-.249537 

-.996756 

-.850536 

0 

T 

A 

. 4237E-  03 
•65C7E+00 
.20  72E+C8 

• 2468E-03 
.64S1E+CQ 

• 20  26E+  0 0 

• 7467E- 04 

• 641 2 £+  00 
.2C03E+00 

.3152E-C2 
.6708E+00 
. 2221E+  CO 

• 35  5 3 E- 14 
. 67  C-8E+GG 
•2236E+0Q 

•3553 E- 14 
•67 S 8 £+00 
.2236E+  CO 

. 66  6 1 E- 14 

• 67  08E+  £)0 

• 223  6E+  oO 

. 3220E-02 
. 6 7 0 8 E+  u 0 

• 2 17  4E+  0 3 

•7648E-G3 
. 62  3 8E+  00 
.18  53E+Q0 

•7887E-03 

• 620  5E  + 10 
.18166+00 

• 6327E- 03 
.6693E+00 
.22 13E+U0 

• 423  7E- 03 
.65  C7E  + 00 
.20  72E  + 00 


PROGRAM  BO  XC 
BODY  10.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BECFORO,  MASSACHUSETTS 

TEST  BODY 


M 

X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

Z 

Z 

Z 

Z 

NZ 

16 

0.330000 

0.000000 

-.500000 

-.503800 

-.029216 

-.800000 

-.40  0000 

-.4  0000  0 

-• 8QCGQ9 

- • 1 5 7 44  2 

-.916500 

-.979800 

-.965500 

-.901200 

-.987896 

17 

0. 300000 

0. 000080 

-.500000 

-. 500  QuG 

- . 3 28  2 5 2 

-. 403000 

0 .00  ‘3000 

0.000000 

-.400000 

-.058789 

-.979800 

-1. OS  30  OC 

-.986000 

-.9655(30 

-.998319 

16 

0.000000 

0.806006 

-.500000 

-.  5(30000 

- .5  28252 

0.000603 

•400300 

.403300 

3.00 0000 

.350785 

-1.000000 

-.979800 

-.965500 

-.986000 

-.998310 

19 

0.000000 

0.003000 

-.500000 

-• 50C  000 

- .029218 

•40000 D 

.803000 

.800000 

.4(30000 

.157442 

-.979800 

-.916500 

-.901200 

-.965500 

-.967396 

20 

0.000000 

0. 000000 

-.500000 

-.500090 

- .031U43 

•800000 

1.  280000 

1.195000 

.800000 

.261449 

-.916500 

-.80  8000 

-.784400 

-.901209 

-.959074 

21 

3.300003 

0.000800 

-.500000 

-.500000 

-.034875 

1.230000 

1. 60 0000 

1.585003 

1. 195000 

.449471 

-.300000 

-.600000 

- • 5866G  0 

-. 784400 

-.892614 

22 

0.900000 

0. 003000 

-.500000 

-. 508000 

-.043145 

1.630000 

1.670000 

1.850000 

1.505000 

.675158 

-.600030 

-.354600 

-.341500 

-. 586600 

-.736411 

23 

0.000000 

0. 000000 

-.500000 

-.500000 

-.049532 

1.3  7000  0 

2. hoodoo 

1.972060 

1.650000 

.9  3912  7 

-.354600 

0.000080 

0.G0Q0G0 

-.341500 

- .33998U 

1 

-.500000 

-.500000 

-1.080300 

-1.  03  0000 

-.153543 

1.972000 

1.850000 

1.785000 

1.  685609 

.934141 

0. Q90CQ  0 

. 341500 

.333980 

8.038308 

• 3 2218  8 

2 

-. 500000 

-.500008 

-1.300000 

-1.  GflfltiOO 

-.132743 

1.8  5300  0 

1.  585000 

1.543000 

1. 785000 

. 683173 

. 341500 

. 586600 

.544300 

.333900 

.718391 

3 

-.500000 

-.500003 

-1.033003 

-1. cooooo 

-.108809 

1.585000 

1.  19  5000 

1.  175000 

1.  51+0  00  0 

.457325 

.58660  0 

.784400 

. 737400 

. 544000 

.88261 6 

4 

-.500000 

-.550000 

- 1.  0 00  080 

-1. OOjOOO 

-.095703 

1.195000 

.800000 

. 8 0 0 3 U 0 

1. 175000 

.288525 

• 7 8440  0 

.901230 

.853300 

. 737400 

.952677 

• • 
- * 
— • 


. 

1. 

— • 


1. 


1. 


. 

1. 


* 

1 • 


NPX 

NPY 

NPZ 


25  00161 
60  00011 
9407  491 


25000; 
20  OflCBl 
98  28  251 


25  coo; 
20  00  001 
96  28  25J 


25  00161 
60  CO. Oil 
94074® 


89  87  5( 
3505381 


24  91691 
39  5 0161 


63  27741 


24  94  71 
72  6269] 
47  0 688] 


2480  61 
923391 
17  40  52] 


74  33  3<| 
87<*15(| 
161626: 


1 


747389 
69  ii  28ll 
444215 


747752 
373892 
66  33  04 

74  79  58 
992572 
819383 


FOtOOUOr  fRA5*'  | 


SCIENCE  ASSOCIATES 
MASSACHUSETTS 


PAGE 


X 

NX 

NPX 

D 

Y 

NY 

NPY 

T 

Z 

NZ 

NPZ 

A 

0 

-.50*000 

-.029218 

-.  250Q16 

•2468E-Q3 

a 

-.80COOO 

-.157  442 

-.600001 

• 645  1E+00 

0 

-.901200 

-.967096 

-.940749 

.2C26E+O0 

0 

-• 520  OuS 

-.028252 

-• 250062 

• 74  £7E- 04 

0 

-.40Q0GG 

-.050785 

-.200000 

.6412E+00 

0 

-.965500 

-.998310 

-.98  28  25 

• 20  G3E+  00 

0 

-. 500000 

-.628252 

- . 25  G G 0 2 

• 74£7E-  04 

0 

0.000000 

• U 50  78  S 

. 208000 

• 64i 2E+00 

0 

-. 986000 

-.998210 

-.962825 

• 20  G3E+00 

0 

-. 500000 

- . 0 29216 

-.  250016 

• 2468E- 03 

0 

.400009 

.157442 

. 60  0001 

. 6451E+CQ 

0 

-.  965500 

- . 987 09  6 

-.  940  7 49 

• 20  26E+G0 

Q 

-.530000 

- • 031043 

-.249537 

«*237E- 03 

0 

.800000 

.261449 

. 998756 

• 65  07 E+ 00 

G 

-.931200 

-.959074 

-.350538 

.20  72E+00 

0 

-.500000 

-.034875 

-.249169 

• 6327E-C3 

3 

1.  195000 

.449471 

1.  395016 

. 6693E+00 

0 

784400 

-.892614 

-.632774 

• 2213 E+ GO 

a 

-. 500000 

-.043145 

-.  24  94  77 

• 78  87E-G3 

0 

1. 535000 

.675158 

1.  72  6269 

.62C5E+Q0 

G 

-. 586600 

-.736411 

-.470688 

.1616E+G0 

G 

-.530000 

-.049532 

2480  68 

• 7648  E- C3 

0 

1.650000 

.939127 

1.923092 

•6238E+C0 

0 

-.341500 

- .339980 

-.  174052 

.1853E+G0 

0 

-1. C3C0CG 

-.153543 

-.743334 

•1969E- 02 

0 

1.  685600 

.934141 

1.87*150 

• 6143E+  GO 

0 

0. GOO 000 

.322188 

. 161626 

.1727E+U0 

a 

-1.  BOOiifiO 

-.132740 

-.747389 

. 2518E-D2 

0 

1. 785000 

.683173 

1. 690261 

• 622  2E+  GO 

0 

.303900 

.716  091 

. 444215 

•1776E+C0 

a 

-l. caoooo 

-.108809 

-.747752 

• 1887E- 02 

0 

1. 5*0000 

.457325 

1.373892 

• 664GE+  GO 

0 

. 544000 

.88261  £ 

. 66  33  C 4 

•2139E+G0 

0 

-1. 0 QjOQQ 

-.095703 

-.  7479  58 

• 13  47E-0  2 

a 

1.175000 

.288525 

. 992572 

.64  £1E+  GO 

3 

. 737400 

.952677 

.8193  63 

.2G21E+00 

Fftfonur 


PROG  RAH  BO  XC 


BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


N M 


5 5 


6 


7 


8 


9 


PO 

to 


10 


11 


12 


13 


14 


15 


16 


TEST  BODY 


X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

Z 

Z 

Z 

Z 

NZ 

-.53000  0 

-.5C0CGU 

-1.000003 

-1.  GOOQCO 

-.089915 

.800000 

.400000 

.4  00  QUO 

.608000 

.162U20 

.901200 

.965500 

•921400 

.653800 

.982682 

-.5  00000 

-.500000 

- 1.  000000 

-1. 000000 

-.086851 

.400000 

0. 000000 

C. 000000 

• 430008 

.052106 

.965500 

• 96  6000 

.942800 

. 9 2148 0 

.994858 

-. 500000 

-.580000 

-1.000000 

-1.  0000 00 

-.039925 

0.003000 

-.400000 

-.400000 

0.  000000 

-.379842 

.986000 

.800000 

.830000 

•942600 

.92418  9 

-•  5 3300  0 

-.  500000 

-1.000000 

-1. 000080 

Q.UO0QQQ 

-.403000 

-.800000 

-.800000 

-. 400808 

- .4*7  214 

.800000 

.600000 

.600000 

. 800000 

.894427 

-.50003  3 

-.500000 

- 3.  300000 

-1.  003000 

0.000  gOU 

-.830000 

-1. 200000 

- 1.  200000 

-.800000 

-.447214 

.600000 

.400030 

.400900 

• 600000 

.894427 

-.500000 

-.50  30  00 

-1.000000 

-1.  000000 

0.000000 

1.200000 

-1. 600000 

-1.600000 

-1. 200000 

-.447214 

.430000 

. 200000 

.200000 

.400800 

.694427 

-.503000 

-.500000 

-1.000000 

-1.  000000 

-.044355 

1.600000 

-1.9720CC 

- 3.885600 

-1.600000 

-.5  19  160 

.200000 

0.003000 

0.000000 

. 200000 

.853499 

-.  50  00  0 0 

-.50  COCO 

-1. 000000 

-1.  C0Q0Q0 

-.153  543 

1.97200  0 

-1.850000 

- 1.76500  0 

-1.885600 

-.934141 

0. 030000 

-. 341500 

-.383900 

0. GQGUCQ 

-.322188 

-.503000 

-.500000 

-1.00000 0 

- 1.000000 

-.152740 

1.850000 

-1.  58  5 500 

-1.  540000 

-l.  785000 

-.683173 

-.341500 

-.  586600 

-.544000 

-.303900 

-.718091 

-.500000 

-.500000 

- 1.  080000 

-1.000000 

-.108609 

1.585000 

-1.195000 

- 3.175000 

-1. 540000 

-.457325 

-.586600 

-.  784400 

-.737400 

-. 544000 

-.882618 

-. 50000 0 

-.500000 

- 1.00800  0 

-1. 008000 

-.095703 

1.195000 

-.600000 

-.60000  0 

-1.175000 

-.288525 

-.784400 

-.901200 

-.8 5380 Q 

-.737400 

-.952677 

-.500000 

-.  50  0000 

- 1.0  00000 

-1. 000000 

-.089915 

-.800000 

-.400000 

-.400000 

-.605000 

-.162020 

-.901200 

-.965500 

-.921400 

-.853800 

-.962682 

Fotoour  ffw* 


PAGE 


NPX 

NPY 

NPZ 

-•  75  00  55 
. 60  0009 
.910468 

-.  7500  05 

• 200003 
.95  3924 

-.748551 
-.  199961 
.862279 

-.750000 
-. 600300 
.700000 

-.750000 
-1.  000300 
. 50  U 0 00 

-«7500li0 

-1.400300 

• 3 0 0 0 u 0 

-. 741375 
-1.  76*760 
. 100234 

-. 743334 
-1.  874150 
-.  161626 

-.747389 
-1.  69  0281 
-.444215 

-.747752 
-1.373892 
- • 66  33  0 4 

-.7479  58 
-.992572 
-.  819383 

-.7500  55 
-.600009 
-.910468 


SPHERIC  SCIENCE  ASSOCIATES 
iEDFORO,  MASSACHUSETTS 


PAGE 


X 

X 

NX 

NPX 

0 

Y 

Y 

NY 

NPY 

T 

Z 

Z 

NZ 

NPZ 

A 

! 

- 1.  0 00  00  0 

-1.  Q900D0 

-.089915 

-.7500  55 

• 8 1 C 7 E—  03 

•40fl0u0 

.600000 

.162329 

. 60  0909 

.65a0E+G0 

. 921400 

.653800 

.982682 

.910468 

. 2035E+00 

r i.  oooooo 

-1. UQOOOQ 

-.086851 

- • 75  0 Q 05 

• 2236E- 03 

C.OQOOGO 

• 430000 

.052106 

. 200003 

. 6436E+63 

.942800 

. 92140  0 

.994858 

.95  3924 

.2C10E+  £0 

! 

1.  000900 

-1. 000000 

-.039925 

-.748551 

. 9981E- 02 

! -.400000 

u. 090000 

-.379842 

-.  199961 

• 66  63E+00 

• 6 0000  0 

.942800 

.924189 

.362279 

•2164E+00 

i 

1-1.  ooooco 

-l. oaoooo 

0 .0  GO  00  Q 

— .750000 

• 35 53 E- 14 

-.800903 

40CCCC 

-.447214 

-. 600300 

•6708E+00 

-t  . 60000  0 

. 800000 

.894427 

.70  00  00 

. 2236E+00 

u aooooo 

-1. 000000 

0 .000900 

- • 75  00  GO 

.3553E-14 

1-  1.2009  CO 

-.800000 

- .447214 

-1.  00 0.0 00 

• 670  8E+00 

i . 40090  0 

* 

. 6(30000 

.894427 

. 500000 

•2236E+00 

r 1.  OOOOCO 

-1. 030000 

0.000  COO 

-.750000 

• 66  61E-14 

[— 1 • 6 UOOO  0 

-1. 20000 0 

-.447214 

-1.400000 

• 67  C 8E+  00 

I . 200000 

. 4130000 

.894427 

• 30  do uO 

. 2236E+G0 

[-  1.00000  0 

-1. 00 0000 

-.044855 

-.741375 

•1121E- Cl 

5-  1.885600 

-1.600000 

-.5  19  160 

-1.  76*760 

• 6545E+0Q 

1 0.000900 

. 200000 

.853499 

. 100234 

• 192  6E+  00 

-1.  013090  3 

-l.  coooeo 

-.153  543 

743334 

• 1969E-02 

1—  1.  78500  0 

-1.6856C0 

-.934141 

-1.  874150 

. 61 4 3E+  0 0 

| -.303909 

0. 030000 

-.322188 

-.  161626 

.1727E+00 

1-1.90000  C 

-1.000000 

-.132740 

-.  747389 

• 25 1 8£- 0 2 

1-1.540  90  0 

-1. 795300 

-.683173 

-i. 690281 

•6222E+GQ 

I -.  544000 

-•3039D0 

-.718091 

-.  444215 

• 177  6E+0!) 

fc-  1.C0000S 

-1.000300 

-.108609 

-. 747752 

•i867E-C2 

1-  1.17500  0 

-1.  540  QD  0 

-.457325 

-1.373892 

• 6640  E+OO 

I -.737400 

-. 544000 

-.882618 

-. 66  3314 

. 2139E+00 

1-  1.00000  0 

-l. eooooo 

-.095703 

-.747958 

.1347E-02 

I -.8(39000 

-1.175000 

-.288525 

-.992572 

.64  61E+00 

I -.8  5380  0 

-. 737409 

-.952677 

-.  819383 

.2C21E+00 

Li, 0 00000 

-1. OOOOCO 

-.089915 

-.  7500  55 

•8147 E- 03 

1 -.403000 

-.eocooo 

-.162020 

-.600009 

•6500E+03 

I -.92140  0 

- . 6 538C  0 

-.962682 

-.910  468 

. 20  35E+00 

•mcourfww* 


m 


PROGRAM  80 XC 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD*  MASSACHUSETTS 


PA 


m 

« 


! S' 

| %-■ 

r 

i« 


I € 

S-  r 

i i 

, 

j:  c: 

I c 


BODY  ID.  TEST 


TEST  BODY 


N M X 

Y 
2 

5 17  -.5  9800  0 

-.400000 

-.965500 

18  -.500000 
0. 003000 
-.986000 

19  -.503003 

.400000 

-.965503 

20  -.500000 

• 800030 
-.901200 

21  -.500000 
1.195000 
-.784400 

GJ 

° 22  -.500000 

1.585000 
-.586600 

23  -.500000 

1.850000 
-. 341500 

6 1 -1.000  GOO 

1.335600 
0.  003090 

2 -1.900006 

1.785000 

.303900 

3 -1.000000 

1.540800 

•544000 

4 -1.000000 

1.175000 
.73740  0 

5 -1. 000000 

• 8 OOC  8 8 
.853830 


X 

X 

V 

Y 

Z 

Z 

-.500000 

- 3. 050900 

0. 000000 

0.080000 

-.986900 

-.942800 

-.500000 

- 1.  008  300 

.40  9000 

.450000 

-.965500 

-.921409 

- .503000 

- a. 000900 

. 800000 

.800000 

-.951200 

-.853800 

-.550000 

-1.000900 

1.195000 

1.175000 

-. 784400 

-.737403 

-.500000 

- a.  oooooo 

1. 585000 

1.543000 

-.586600 

-.  544350 

-.520090 

- 1.  000300 

1.850000 

1.785000 

-.341500 

-.303909 

-.500000 

-1.000000 

1.972000 

1.885650 

0.00  0 coo 

Q.OflOOOO 

1.000000 

-a. 550000 

1.785000 

1.670000 

.303900 

•229700 

1. 009000 

-1.500000 

1. 540000 

1.460000 

. 544000 

.465900 

1.000000 

- 1.  500000 

1.175000 

1.140900 

.737400 

.652000 

1. 050000 

-1.5  03300 

.608000 

.800000 

.853800 

.768100 

1.  00  0500 

- 1.  500000 

•450090 

.400000 

.921400 

.842600 

X 

NX 

Y 

NY 

Z 

NZ 

1. 000009 

-.086851 

-. 400000 

-.0  5210  6 

-.921400 

-.994858 

1.  003050 

-.086851 

0.500000 

. 05210  6 

-.942800 

-.994858 

1.  030000 

-.089915 

. 400000 

.162020 

-. 921400 

-.982682 

1. 030000 

-.095703 

.800000 

.288525 

-.853800 

-.952677 

1®  oooooo 

-.108609 

1.  175000 

.457325 

737400 

-.88261 8 

1.000008 

- • 132740 

1. 5 40  COO 

.683173 

544000 

-.718091 

1. OOOOOO 

-.153543 

1.  785000 

.934141 

-.303900 

-.322188 

1.  500  000 

-.268347 

1. 732000 

.921489 

0. OOOOOO 

.280799 

1.500050 

- • 2 39r 6 5 

1.670000 

.7  0'  12  3 

.229700 

.670724 

i. 500000 

-.194936 

1. 460000 

.475316 

.465900 

.857948 

1. 500000 

-.170961 

1.14QQ00 

.3  04 68  3 

. 652000 

.936981 

1. 500000 

-.159881 

. 800000 

.172638 

.768100 

.971923 

Fotoour  CRA?n  | 


NP  X 
NPY 
NP  Z 


-.75000! 
-.2000031 
- . 95  39  24] 


-.7500051 
• 20000! 
-.9539  24| 


-.7500  5! 

. 68  0 0 891 


-.9104681 


- . 74  79  581 
. 99  25  71 
-.819383f 


-.7477  52] 
1.  37  38  9 
-.6633041 


-.7473  89| 
1.  69  0 2811 
-.  444215| 


1. 


7433341 
87  415L. 


-.161626| 


-1.  229655| 
1.  77  3 6 14j 
. 13  4912| 

-1.  24  5329| 
1.  6146911 
.38  6555] 

■ ^ 

-1.  24  50  60j 
1.  32  93  24] 
• 60  0 627] 

i 

-1.245783] 
.97  93  04! 
.75351^ 


-1.  250 120 
.600034 
. 846449 

■ij 

i 


SCIENCE  ASSOCIATES 

MASSACHUSETTS  PAGE  11 


X 

NX 

N°X 

Y 

NY 

NPY 

Z 

NZ 

N3  Z 

C 

T 

A 


00 

-1.  0 01)00  0 

-.086851 

- • 75  GOG  5 

0 0 

-. 400005 

-.052  10  6 

-.200003 

po 

-. 921400 

-.954858 

-.95  3924 

•2238c- G3 

• 6436E+  00 

• 2CiQE«-eO 


PO 

-l.  ooooco 

-.086851 

-.750005 

|BS 

0.000000 

.0  5210  6 

• 200003 

00 

E 

00 

-.942800 

-.994858 

-.953924 

-1.  430000 

-.089915 

-.750055 

hl'f 

. 400000 

* 162020 

. 600009 

po 

i 

-. 921400 

-.982682 

-.910468 

po 

-1. S30000 

-.095703 

-.  747956 

So 

.600000 

.268525 

.992572 

uliM 

-.  853800 

- e 9 52  677 

-.819383 

•2238E-C3 
« 6436E+00 
.2310E+00 

• 8 1 G 7 E~  Q 3 

• 65  ODE'*-  0 0 
•2035E+00 

.1347E-Q2 

• 6461E+  CiQ 
•2G21E+0C 


jp  o -1.000000 

PO  1.  17  5000 


19 

10 


Q 

0 


Ifi 

(0 

to 


737430 


1. 0001)00 
1. 54CCG0 
544000 


-1.9  00009 
1.  785QG  0 
-.303900 

-1.  500  000 
1.  732000 
0. 000000 

-1.500010 
1. 670000 
.229700 

-1. 500000 
1. 460000 
. 465900 

-1.500000 
1.  140000 
• 652030 

-1. 5Q00Q0 
.800000 
.766100 


-.108809 

.457325 

-.88261 6 

- * 132  748 
. 683173 

-.718891 

-.153543 

.934141 

-.322188 

-.268347 

.921489 

.280799 

-.239065 

.702122 

.670724 

-.194936 

.475316 

.857948 

-.170981 
.3  0468  3 
,936981 

-.159881 

.172638 

.971923 


-.747752 
1.  37  3892 
-.663304 

-.747389 
1.  690261 
-• 444215 

-.743334 

1.874150 

-.161626 

-1.  229655 
1.  773614 
. 12  4912 

-1.  245329 
1.  61  4691 
. 386555 

-1.  245068 
1. 329324 
. 600627 

-1. 245783 
• 97  9 j 04 
. 753512 

-1.  250120 
.600034 
. 846449 


.1867E-1.2 
. 6640  E+ 0 3 
. 21 39E+  GO 

• 2518E- 0 2 
. 622  2E+  00 
•1776E+G0 

* 1969E- £2 
. 6143E+  00 

• 17  27E  + 1/0 

.3684E-02 

• 591Ct+tifl 
•1446E+C0 

. 549CE- 02 

• 61 60  E+  00 
.l6  96E«-CJ0 

• 376  2E- 02 
.64S4E+W0 

• 1996E+  00 

•2596E-02 

• 6374E+  03 
. 19C6E+0Q 

•1677E- 02 

• 65  84E+00 
.20 58 E* 00 


rnenurfjK,,, 


PROGRAM  90 XC 
BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 

TEST  BODY 


M 

X 

X 

X 

X 

Y 

Y 

Y 

Y 

Z 

Z 

Z 

Z 

6 

-1.  00  0 1-3  0 

-1. OSGOUd 

-1.500000 

-1. 500000 

•403*00 

0.  COOOOO 

0. 000300 

. 400010 

.921400 

.942600 

• 86600 C 

.842600 

7 

-1.005000 

-1. 000300 

-1.500000 

-1.  530000 

D.  00-1000 

-.400000 

-.400000 

0.000000 

.942600 

.600000 

.800300 

.866000 

8 

-1. 000030 

-1. 000000 

-1.500000 

-1. 500000 

-.400000 

-.800000 

-.£00300 

-.400000 

.300000 

• 600  .*00 

.600000 

. 803000 

9 

-1.300000 

-1.600-00 

-1.500000 

-1.500000 

-.800000 

-1.  20  0 COO 

-1.200000 

-.690000 

.63000 0 

• 4COCQO 

.430000 

. 600000 

10 

-1.003000 

-l. oooeoo 

- 1.50S000 

-1.500000 

-1 .230000 

-1.  60  CtJOO 

-1.600  00  0 

-1.  290  00  0 

• ‘♦30  00  0 

.200000 

.200300 

. 490000 

11 

-1.  000300 

-1.000000 

-1.500000 

-1. SJGOGO 

-1.600000 

-1. 885600 

-1.732000 

-1.  690000 

. 200300 

o. ooooco 

o.oaoocc 

.203000 

12 

-1. 303000 

-1. 0000OG 

- 1.5  00300 

-1*506660 

-1.685600 

-1.  785C00 

-1.670300 

-1.732000 

0. OOOOCO 

-.303900 

-.229700 

0. G30000 

13 

-1.308000 

-1. 000000 

- 1.  500000 

-1. 500000 

-1.785030 

-1.540000 

-1. 463019 

-1. 670000 

-. 303900 

-. 544000 

-.465900 

-.229700 

14 

-1.  30093  0 

-l. rococo 

- 1.500203 

-1.  500000 

-1.540000 

-1.175000 

- 1. 140  00  0 

-1. 460000 

-.544000 

-.737400 

-.652300 

-.465900 

15 

-1.0  30  000 

-1. 000000 

- 1.  500000 

-1.590000 

-1. 175000 

-.800000 

-.8  08  00 0 

-1.  1 4 C £'  0 0 

-.737400 

-.653600 

-.766100 

-. 652900 

16 

-1.  030003 

-1. 000000 

-1.500000 

-1. 500010 

-.330000 

- • 403000 

-.400900 

-.890000 

-.853800 

-.921400 

-. 842600 

-. 766100 

17 

-1.303000 

-1. OOOOCO 

- 1.  500003 

-1. 590000 

—.430030 

0. ooooco 

0.000000 

-. 400000 

-.921400 

-.942800 

-• 866000 

-.642600 

} 


NX 

NY 

NZ 

.1  53  515 

• 0 5525G 
.966601 

• C741P6 
.251846 
.964926 

.0  £0  00  0 

• H4721 4 
.894427 

. 0 CO  00  0 
.447214 
.69-442  7 

.CGGOOQ 

.447214 

.694427 

.105  654 
.687853 
.718119 

.268347 

.921489 

.280799 

.23906  £ 
.702123 
.670  724 

.194936 

.475316 

.857946 

.170981 
.304683 
.93693  1 

.159881 

.172638 

.971923 

.153515 

.055250 

*986601 


IERIC  SCIENCE  ASSOCIATES 
IFORO*  MASSACHUSETTS 


PAGE 


12 


X 

X 

NX 

NPX 

D 

V 

Y 

NY 

N?  Y 

T 

z 

Z 

NZ 

NPZ 

A 

L. 500000 

-1. 500000 

-.153  515 

-1.250312 

.49336-03 

I.C  flODOO 

.4000(30 

.055250 

• 20  0 a 10 

.6481E+00 

•866000 

.842600 

.986601 

.893198 

• 20  2 76+  CO 

.•  5 00009 

•1.  500000 

-.074106 

-1. 246100 

.18  53E-C1 

>.400000 

0.030000 

-.251846 

-. 199835 

. 6560E+00 

• 800000 

.866000 

.964926 

. 852389 

• 20  736+0  3 

[.  500000 

-1. 500000 

0.0  uG  30  0 

-1.250000 

•3553E-14 

>•8  00000 

-.400000 

-.447214 

-.600000 

• 6708E+  lifl 

• 600000 

• 800000 

.894427 

. 70  0000 

. 22  3 6E  + 00 

1*5  0 000  0 

-1.500000 

0.000003 

-1.25  0000 

.35536-14 

2 00300 

-.800000 

-.447214 

-1.  OD  O-JuO 

•67C8E+C0 

‘•400000 

t 

. 630000 

.694427 

. 50  0000 

.22366+00 

f 

I.  5 00  00  0 

-1.500000 

C.0GC000 

-1. 250000 

.66616-14 

!•  6 00  000 

-1.  230  00  0 

-.447214 

-1.400000 

. 67  C8E+CQ 

1*200000 

. 430000 

.694427 

. 300000 

•22366+00 

1*5  00  00  0 

-1. 5J0000 

-.105654 

-1.225923 

.26UE-C1 

l.  73200  0 

-1.600000 

-.687853 

-1. 73  7445 

.60966+00 

|*  0 Q 0 0 C 0 

.200000 

.718119 

. 100526 

.14546+00 

(45  00300 

-1.500000 

-.266  3 4 7 

-1.229655 

.36646-02 

k 6 70 000 

-1.732000 

-.921489 

-1. 773614 

.59106+00 

I*  2 2970  0 

a.  odoooo 

-.280799 

-.134912 

.14486+00 

it  5 0 -Q  fl  0 0 

-1. 500000 

-.239065 

-1.  245329 

.54906-02 

|»  4 6 0 0 C 9 

-1. 670000 

-.702123 

-1.  614691 

•61606+00 

1465900 

-.229700 

-.670  7 2 4 

-.  386555 

.1696E+00 

1500303 

-1.500000 

-.194936 

-1.245068 

• 37  82E-02 

1140000 

-1.460000 

-.475316 

-1.329324 

•6494E+G0 

I 65200  0 

-.465900 

-.857946 

-.  60  0627 

.19966+10 

1 5 0000  0 

-1.530000 

-.170981 

-1.  24  5783 

.25966-02 

i 8 02000 

-1. 140000 

-.304683 

-.979004 

. 63  74E+Q0 

[766100 

-.652000 

-.936981 

-. 753512 

• 19  06 E+ 0 0 

[<5  00  00  0 

-1. 500000 

-.159881 

-1.256120 

.16776-02 

140  0 30  0 

-.830000 

-.172638 

-.  600034 

. 65646+00 

1842600 

-. 768100 

-.971923 

-.846449 

• 20  5 6E+ 00 

1500  00  0 

-1. 500000 

-.153515 

-I.250.ii2 

• 4933E-03 

IQ  OU  00  0 

-. 400000 

-.055250 

-.20  0010 

•64E1E+00 

|8  66  00  0 

-.642600 

-.986601 

-. 893198 

• 20  2 7E+  00 

i 

i 


FOSPHERIC  SCIENCE  ASSOCIATES 
BEOFORD,  MASSACHUSETTS 


PAGE  13 


BODY 


f 


X 

Y 

Z 

- i. 500000 

.40UUCQ 
-.84260  0 

- J.50J3Q0 

.800000 

-.768100 

-1*  500  000 
1.140000 
-.652000 

- 1.5  0000  0 
1.460000 
-.465900 

- 1.500000 
1.67030 0 
-.229700 

- 1.5003  CO 
1.73230  0 

0. 003000 

-2.003303 

1.465000 

.137803 

-2.U0030Q 

1.  322300 
.344400 

'*2.0  00  00  0 
1.072000 
.517900 

-J.flOUOOO 

.800000 

.626900 

-2.1/00  30  0 
. 400900 
.7ieouo 

-2.000900 
0.300000 
.74540  0 


X 

Y 

Z 

-1. 500000 
0 .00000  0 
-.866000 

-1.  500000 
. 400000 
-.842600 

-1.500000 

.831000 

-.766130 

-1. 500000 
1. 140000 
-.652020 

-1. 500000 
1. 460000 
-. 4659C0 

-1. 502  OC  0 
1. 673000 
-.229700 

-2.  GOG  30  0 
1.490700 
3 . 030000 

-2. GJGUQG 
1. 465309 
.137800 

-2.  OOCOCO 
1. 322000 
.3*4400 

-2. 030000 
1.072000 
.517900 

-2. 600000 
.800020 
. 628900 

-2.  oosaoa 

. 400200 
.716200 


NX 

NY 

NZ 

-.153515 
.0  55253 

-.986691 

-.159881 

.172638 

-.971923 

-.170981 
.3  04683 

-.936981 

-.194936 
.47531 6 

-.857948 

-.239065 

.702123 

-.670724 

-.268347 

.921489 

-.280799 

-.414479 

.885202 

.211244 

-.372374 

.725701 

.578529 

-.31002* 

.507279 

.664085 

-.269527 

.335023 

.902837 

-.250229 

.193980 

.948555 

-.237694 

.061556 

.969388 


NPX 

NPY 

NPZ 

-1.  250012 
. 20  0010 
893196 

-1.  250120 
.600034 
-.84  6449 

-1. 245783 
.979004 
-.753512 

-1.245068 

1.329324 

-.600627 

- 1.  245  329 
1.  514691 
- • 38  65 55 

-1.229655 
1.  77  3614 
- .13  4912 

-1.  699678 
1.  611865 
. 096576 

-1.  733772 
1,  48  4752 
. 297994 

-1.  738932 
1.  250730 
.497910 

-1.  738266 
. 954054 
. 644837 

-1.  750276 
. 60  010  4 
. 739306 

-1.  750025 
. 20  00  30 
. 792992 


ft 


D 

T 

A 

4933E-G3 
6461E+CQ 
.2027E+  GO 

1677E-C2 
6564E+Q0 
20  58E+00 

2596E-02, 

•6374E+00 

1908E+00 

• 37  e2E-G2 
6494E+00 

•1996E+00 

.549CE-C2 

.6ieOE«-CQ 

.1696E+00 

•3664E-S2 

•5910E+0C 

.1446E+C0 

.3180 E- 02 

• 533  3E+  GO 

• 10  38E+0G 

.7874E-U2 

.6199E+0Q 

• 15  2 5E+  GO 

. 6345E-G2 
.635GE+C0 
•1772 E+ 00 

.4544E-C2 
. 62  18E+00 
•1695E+U0 

• 3462E-02 
.675CE+GQ 

. 2 1 u 8 6+  10 

• 9694E- C3 
.65726+00 
•2Q63E+C0 
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1 

m 

PROGRAM 

BO  XC 

ATf-OSPHERIC  SCIE 

NCE  ASSOCIATES 

j 

BEDFORD.  MASSACHUSETTS 

PA( 

BODY  ID 

. TEST 

3 

C 

TEST 

BOD  ^ 

N M 

X 

X 

X 

X 

NX 

NPX 

4': 

Y 

Y 

Y 

Y 

NY 

N?Y 

w 

Z 

Z 

Z 

Z 

NZ 

NPZ 

A 

7 7 

-1.500000 

-1.500000 

- 2.000000 

-2.000000 

-.197278 

-1.  74  955 

0.003000 

-.4812000 

-.409000 

0.000030 

-.113683 

-.1997  5 

•866000 

•800000 

.718000 

. 745400 

.973734 

. 78246 

< 

S 

-1.500000 

-1. 50GC00 

-2.000300 

-2. 000030 

-.075983 

-1. 74731 

-.400000 

-.800000 

-.800000 

-.  4013000 

-.368319 

-.  5998^ 

< 

.800000 

•600000 

.603900 

. 7189C0 

.926589 

. 67971 

9 

-1. 500000 

-1. 500900 

- 2.  u 03  90  0 

-2. £-00000 

0.0  GO  33  0 

-1.  ?5<J0ci 

#» 

-.800000 

-1. 200000 

- 1.200000 

-.8 3 0000 

-.447214 

-1.00000] 

.600000 

.400000 

.400900 

. 600000 

.894427 

. so  oa« 

i 

10 

-1.500000 

-1.5CGOOD 

-2.  0 00300 

-2.000000 

-.050829 

-1.  72  j40< 

-1.200000 

-1.6CG0DO 

- 1.400000 

-1.  290900 

-.496741 

-1.  35  28  2 

.400000 

. 200000 

.256003 

.490000 

.866409 

» 31411] 

( 

11 

-1.500000 

-1.500000 

- 2.  000000 

-2.900200 

-.348626 

-1.  76  253] 

-1.600000 

-1.732000 

-1.490700 

-1. 400000 

-.842191 

-1  • 55  0 511 

# 

.200000 

0. OCOOOO 

0.0  00900 

.256000 

.411307 

. 1139  4*j 

12 

-1.500000 

-1. 500000 

-2.000900 

-2.  COO 300 

-.414479 

-1.  69967J 

4 

CO 

-1.732000 

-1.670000 

- 1.465900 

-1. 490700 

- .885  29  2 

-i.  eiiaai 

Co 

0.000000 

-.229700 

-.137800 

0.000000 

-.2112*4 

-.  39  657 

( 

13 

-1.500000 

-1. 500000 

- 2.  00000  0 

-2. GC00GQ 

-.372374 

-1.  73377i 

\ 

-1.670000 

-1 .460000 

- 1.322000 

-1.465000 

-.725701 

-1.  46  475< 

-.229700 

-.465900 

-.344400 

-. 137800 

-.578529 

-.29799] 

< 

14 

-1.5030CC 

-1.  50  0000 

- 2.000000 

-2.  eooooo 

-.310324 

-1.73893; 

-1.460000 

-1. 140  COO 

-1.072000 

-1.  322000 

-.597279 

-1.  25  0 7 31 

( 

-.465900 

-.  65 2000 

-.517900 

-.344400 

-.804085 

-.*97910 

3 

15 

-1.500000 

-1. 500000 

-2.00000  0 

-2.  00000  0 

-.269527 

1 

-1.  73  6 2 66 

{ 

-1. 140000 

-.800000 

-.800000 

-1.C7200  C 

-.335023 

-.95  40  Si 

-.652030 

-.768100 

-.628900 

-. 517900 

-.902837 

-.  64  4831 

I 

( 

16 

-1.500000 

-1.50  30  00 

- 2.  3 0300  9 

-2.  000000 

-.250229 

i 

-1.  75  0 276 

\ 

-.800000 

-.40  0000 

-.400000 

-.609000 

-.193980 

-.  60  0101 

-.768100 

-.842600 

-.718000 

-.628900 

-.948555 

-.739306 

( 

17 

-1.500000 

-1.500000 

-2.00030 0 

-2.  CiQGOCO 

- .237694 

-1.  750  0 25 

-.400000 

Q. 000000 

0.900000 

-.400000 

-.061556 

-.20  0 0 31 

( 

-.342600 

-.866000 

-.745400 

-.716000 

-.969388 

-.792991 

18 

-1.500000 

-1. 500000 

- 2.000000 

-2.030000 

-.237  694 

-1.  75C0  2! 

/ 

0.030000 

.400000 

.400000 

0. CQOOOO 

.061556 

. 200031 

-.366090 

-.84  2600 

-.718000 

-.745400 

-.969388 

-.  752991 

( 


( - fouxxxt  fRAr«  j( 


SCIENCE  ASSOCIATES 

* MASSACHUSETTS  PAGE  14 


X 

Y 

NX 

NY 

NPX 

N?Y 

C 

T 

» 

z 

NZ 

NPZ 

A 

00  0 

-2.000000 

-.197278 

-1.  749550 

• 9397E-C  2 

fOOQ 

0. 63S5OQ0 

-.113683 

-.1997  59 

•6572 E+bO 

[00  0 

r 

poo 

. 745400 

.973734 

. 762469 

. 20  5 4E+ u 0 

-2. 000000 

-.075983 

-1. 747311 

. 19O0E-O1 

Poo 

-.  400000 

-.368319 

-.  599857 

.67  Q8E+0Q 

100  0 

.718000 

.926589 

. 679777 

• 2158E+  CO 

poo 
too  a 
|0QQ 

-2  . frflQ  GOO 

0.0 00 OOU 

-1.  <5  00  0 0 

•3553E-14 

-. 63g00C 

-.447214 

-l.aecuoo 

•6708E+00 

. 600000 

.894427 

. 500380 

.2236E+00 

Loo 

-2. GQGOOQ 

-.050  829 

-1.  72  j4C9 

.1271E-01 

ICQ  0 

-1.  200000 

-.496741 

-1.  35  26  29 

.67C6E+0G 

|00  0 

. 4J0C00 

.866409 

. 314114 

• 17  3 1E+  GO 

r 

fooo 

-2. 000400 

-.348626 

-1.  762537 

. 144  5E- 0 1 

170  0 

-1. 400300 

-.842191 

-1. 550513 

• 6525E+  00 

100  0 

1' 

• 2 5 ec 0 0 

.411307 

. 1139  43 

.13  54E+00 

mo 

-2.  COO 000 

-.414479 

-1. 699678 

•3180E-02 

too  a 

-1. 490700 

-.88520  2 

-1.  611865 

o5853E+Q0 

|80  U 

0. DO  000  0 

-. 2112*4 

-.  09  6576 

. 10  28E+0O 

loo  0 

-2.  CO G 30 0 

-.372374 

-1. 733772 

. 7874 E- 02 

!0C0 

-1.465000 

-.725701 

-1.  464752 

. 61 99E+G0 

»40  0 

i 

-.137800 

-.578529 

-.297994 

• 15  2 5E+  0 0 

loco 

-2.  UOCOCO 

-.310324 

-1.  738932 

. 6345E- G2 

£00  0 

-1. 322000 

-.507279 

-1.  25 -J  7 30 

.635GE+CQ 

f9C0 

I 

-.344400 

-.804085 

-.497910 

• 177  2E+  0 0 

10  0 0 

-2.  000000 

-.269527 

-1.  73  6 2 6 6 

•4544E-C2 

|ooo 

-1 .07200  0 

-•335G23 

-.9540  54 

•6218E+00 

(90  0 

1 

-. 517900 

- • 9G2837 

-.64  4837 

• 1695E+CC 

100  0 

- 2. 8 00  00  0 

-.250229 

-1.  750276 

.3462E-02 

(00  0 

-.600000 

-.193980 

-•  60  Q 10  4 

. 67  50  E+  00 

ioo  o 

-.626900 

-.948555 

-• 739306 

•21C8E+0Q 

100  0 

-2. uOGOGO 

-.237694 

-1.  750  0 25 

• 9694E-G3 

100  0 

-.400000 

-.061556 

-.20  0 0 30 

•6572E+b0 

>40  0 

t 

-.716000 

-.969388 

-.792992 

• 20  6 3E+  ii  0 

(00  0 

-2. 030000 

-.2  37  69  4 

-1.  75 CO  25 

.9694E-03 

(80  0 

0. GOOOOQ 

.061556 

. 2000  30 

.6572E+00 

(ooo 

t 

-.745400 

-.969388 

-. 792992 

.20  63E+oO 

PrtOOUTfFM?, 


PROGRAM 

BOXC 

ATMOSPHERIC  SCIE 

NICE  ASSOCIATES 

BEDFORD,  MASSACHUSETTS 

BODY  10 

. TEST 

TEST 

BODY 

N M 

X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

Z 

Z 

Z 

Z 

NZ 

7 19 

-1.500000 

-1.  50 00 DC 

-2.0  0000  0 

-2.000000 

-.250229 

•400000 

.800000 

.8  00000 

. 40000  C 

.193980 

-.84260  0 

-.763100 

-.628900 

- • 7180  GO 

-.948555 

20 

-1.500000 

-1. 500000 

-2.  000000 

-2. 000000 

-.269527 

.800000 

1. 14  GO  0 Q 

1.372000 

.800000 

.335023 

-.76810  0 

-.  652000 

-.517900 

-.628900 

-.902837 

21 

-1.500000 

-1.500000 

-2.300300 

-2.  COGUO 0 

-.310024 

1.140000 

1. 460000 

1.322000 

1.072000 

.507279 

-.652000 

-.46  5930 

-.344400 

-.5179C0 

-.80408  5 

22 

-1.530000 

-1.502000 

-2.000000 

-2.000000 

-.372374 

1.460000 

1. 670000 

1.465000 

1. 322000 

.725701 

-.465900 

-.229700 

-.137800 

-.344400 

-.578529 

23 

-1. 500000 

-1.500000 

- 2.  002  00  0 

-2.030000 

-.414479 

1.670000 

1. 73  2300 

1.490700 

1.465000 

.885202 

-.229700 

0. 000000 

0.030000 

-.137800 

-.211244 

*********** * 

********* *** 

8 1 

-2. 000000 

-2. 000000 

-2. 530000 

-2. 500000 

-.597981 

1.490700 

1. 322000 

1.003000 

1. 05 5000 

.747834 

0.003000 

. 344400 

.235700 

0.030300 

.288382 

2 

-2. 300000 

-2. 000000 

- 2.  500000 

-2. 500000 

-.425912 

1.322000 

.800000 

.800000 

1.000000 

• 463  20  0 

.34440  3 

.628900 

.381500 

. 2 3570  0 

.777203 

3 

-2. 000000 

-2. DflCOOQ 

- 2.  500000 

-2.5000CG 

-.397601 

.800000 

•400000 

.400300 

.800000 

.246251 

« 623900 

.71 8000 

. 515300 

. 381500 

.883807 

4 

-2.  000000 

-2.000000 

-2.500000 

-2.500000 

- • 3 66o0 9 

.403000 

0. 000000 

0.000000 

. 400000 

.075569 

.713000 

.745700 

• 5 528u  0 

.515300 

.927222 

5 

-2.000000 

-2. 000000 

-2. 5 CO  80  0 

-2. 5OC30Q 

-.366809 

0.000000 

-.40  0000 

-.400000 

0.000000 

-.075569 

.745700 

.718000 

.515300 

. 552800 

.927222 

6 

-2. 003000 

-2.000000 

- 2.500000 

-2. 530000 

-.372805 

-.400000 

-.800000 

-.800000 

-.430000 

-.278586 

.718000 

.600000 

.381500 

. 5153G0 

.88510  2 

FOUJOUr  fRA?r,  f 


SCIENCE  ASSOCIATES 
, MASSACHUSETTS 


PAGE 


15 


ICO 

IOC 

IOO 

f 

t 

ISO 
10  0 
10  0 

f: 

10  0 

10  0 

loo 

L 

ioo 

iso 

ioo 

r 

bo 

foo 

10  0 


i 

f 

I 

10  0 

10  0 

ioo 

i 

5 

0 0 


IOO 

ioo 


9 0 

i?  o 

00 

b 

|0 

10 
o 
0 

10 

0 

0 


X 

NX 

N°X 

0 

Y 

NY 

NFY 

T 

Z 

NZ 

NPZ 

A 

•2*  000000 

-.250229 

-1.  750276 

• 3462E-0  2 

.430000 

.193980 

. 600104 

• 675CE+  iO 

-.718000 

-.948555 

-. 739306 

• 21 OfiE+00 

-2. OOC  000 

-.269527 

-1.  738266 

• 4544 E- 02 

•8uGOGO 

.335023 

. 954054 

•62186+00 

628900 

-.902837 

-.  644837 

. 16  55E+-  10 

-2.  OOGtlOO 

-.310024 

-1.  738932 

.6345E-02 

1.0  72000 

.507275 

1.  250730 

• 63  5 OE  + C Q 

-.517900 

-.80408 5 

-.497910 

.17726+00 

-2.000000 

-.372374 

-1.  733772 

• 78  74 E- 0 2 

1. 222000 

.725701 

1.  484752 

• 61S9E+00 

-.344400 

-.578529 

-.297994 

» 15  2 5E+  00 

-2.000000 

-.414479 

-1.  699678 

. 318CE-0  2 

1.465000 

.865202 

1.  611865 

.58  33E+C0 

-.137800 

-.211244 

- . 09  65  76 

■ 1038E+00 

************ 

1 **  **  + ♦ * •¥ 

-2. 500000 

-.597981 

-2.  218024 

•1342E- 01 

1.0  5 500  0 

.747834 

1.  240723 

• 73  ElE+Ofl 

0.000000 

.288362 

. 149617 

• 1939E+  00 

-2. 500000 

-.425912 

-2.  214445 

. 10  3 4E-G1 

1.000000 

. 4 63  20  U 

. 99u 2 69 

.72386+00 

.235700 

.777203 

.411287 

•2322E+00 

-2. 500000 

-.397601 

-2. 250969 

•9877E-02 

.600000 

.246251 

. 60  0 392 

.7223 E+ GO 

. 381500 

.883807 

. 560379 

.2 263E+CQ 

-2.500000 

- • 366oQ 5 

-2. 250072 

•2272E-Q  2 

. 400000 

.075569 

. 20  0101 

•68G5E+00 

.515300 

.927222 

. 632913 

• 21  57E+i*0 

-2. 506300 

-.366809 

-2.  250072 

• 2272E-02 

0.000000 

-.075569 

-r  20  0101 

.68 05 £+00 

. 552800 

.927222 

. 632913 

* 2157E+DQ 

-2. 500300 

-.372305 

-2.  250  3 83 

• 34 9 6 E- 02 

-.400000 

-.278586 

-.  6DQ126 

• 7233E+00 

. 515300 

•885102 

. 553499 

• 22  60  E+  GO 

•mcmiffwif,,  


PROGRAM 

BO  XC 

ATMOSPHERIC  SOI 

ENCE  ASSOCIATES 

BEOFORD,  MASSACHUSETTS 

BODY  ID 

. TEST 

TEST 

BODY 

N M 

X 

X 

X 

X 

Y 

Y 

Y 

Y 

Z 

Z 

Z 

Z 

8 7 

-2.000000 

-2. GC0C8U 

- £.  500900 

-2.500 OCO 

-• 830CO  0 

-1.200000 

-l.OCOOGO 

-.800000 

.600000 

• 400009 

.235700 

.381500 

8 

-2. 300000 

-2. oaecoo 

-2.  500000 

-2. 500300 

-1.  203000 

-1. 45  0700 

-1.055000 

-1.  030000 

.400000 

0. occoco 

0.00G0QG 

.235700 

9 

-2.000000 

-2. 000000 

- 2.500000 

-2. 590000 

-1.490700 

-1. 322000 

-1.000300 

-1.055000 

0. OOGOCO 

-.344400 

-.235700 

0. 000000 

10 

-2. 300C00 

-2.000000 

- 2.500  000 

-2.  500300 

-1.322000 

-.80  0000 

-.800000 

-1. 030000 

-.344400 

-.628900 

-.381500 

-. 235700 

11 

-2.030000 

-2. 080000 

-2®5G*j3Q3 

-2. 500000 

-.800000 

-.400000 

-.498000 

-.80uuG0 

-.628900 

-.718000 

-. 515300 

-.381500 

12 

) 

-2. 000 00 0 

-2.000000 

-2.500000 

-2.  500000 

I 

-.400000 

Ci.  00  00  00 

0.000000 

400000 

-.718000 

-.745400 

-.552800 

-.515300 

13 

-2.000000 

-2. 000000 

-2.500003 

-2. 500800 

0. 3 0000 0 

.480000 

•400000 

0.000000 

-. 745400 

-.71 8000 

-.515300 

-. 552800 

14 

- 2.  003000 

-2.00  0000 

- 2.500000 

-2.  500000 

.400000 

• 6GGC00 

.800000 

. 40GQ00 

-•718CGQ 

-.62  8900 

-.381500 

-.515300 

15 

- 2.  00000  G 

-2.  00  0000 

-2.500  003 

-2.  500000 

.300000 

1. 322000 

1.000000 

. 600000 

-.62890  G 

- . 3444U0 

-.235700 

-.381500 

16 

-2.  oaooflo 

-2.  00  3000 

-2.500000 

-2. 500000 

1.322000 

1.490700 

1. 055000 

1.  030000 

-.344400 

0.000000 

0.000000 

-.235700 

***+*¥**¥¥** 

9 1 

-2. 500000 

-2. 500000 

-2.QOGOOO 

-3.000000 

1.  U 550 0 0 

•800000 

0.000000 

G. 000000 

C.  000030 

. 381500 

0.000000 

c. ccqooo 

FGUJOUT  f3W«  jf 


NX 

NY 

NZ 

.396212 

.458473 

.795499 

.537231 

.740960 

.402941 

.597981 

.747834 

.288382 

.425912 

.463200 

.777203 

.397801 

.246251 

.883807 

.366578 

.075231 

.927341 

.366576 

.075231 

.927341 

.397301 

.246251 

.683807 

.425912 
.463  200 
.777203 

.597981 

.747834 

.288382 


.868756 

.411733 

.275208 


OSPHERIC  SCIENCE  ASSOCIATES 
BEOFORD,  MASSACHUSETTS  PAGE  16 

BOO  Y 


i. 


~ 2. 


it 

Qt 


Ct 


1. 


ct 


- c . 


X 

X 

NX 

NPX 

0 

Y 

Y 

NY 

NPY 

T 

Z 

2 

NZ 

NPZ 

A 

5 00  Qu  0 

-2.500UGQ 

-.356212 

-2.218355 

.12146-01 

ocooeo 

-.  800000 

-.458473 

-.  95  6945 

. 650  2E+00 

235703 

.381500 

.795499 

.416059 

.18866+00 

500000 

-2.  5003C0 

-.537231 

-2. 212088 

• 27  HE-  Cl 

055000 

-1. 030000 

-.740960 

-1. 2D  9729 

.73  E1E+00 

oooooo 

• 235700 

.402941 

. 166619 

.2145E+00 

500000 

-2. 500000 

-.557981 

-2.218024 

.13426-01 

030903 

-1.0  5 5.0CG 

-.747834 

-1.  240723 

.7351E+00 

235700 

0.300000 

-.288382 

-.149617 

•1929E+C0 

500  300 

-2. 50U2G0 

-.425912 

-2.  214445 

.1S34E-C1 

8 00  00  0 

-1. 090000 

-.463209 

-.  950269 

• 7236E+  00 

381500 

-. 235700 

-.777203 

-.411267 

.2322 E+ 00 

500303 

-2. 500000 

-.397301 

-2.250969 

.9877E-S2 

409000 

-• 80uu0  0 

-.246251 

-.60  0392 

•7233E+00 

51530  0 

-.381500 

-.883807 

-.560379 

• 22  63E+  00 

500000 

-2. 500000 

-.366578 

-2. 250074 

.2342E-02 

000300 

-.400000 

-.075231 

-.  28  0 104 

• 680  4E+  00 

55280  0 

-.515300 

-.927341 

-.632837 

• 2157E+  00 

500009 

-2. 590000 

-.366578 

-2.  250074 

.23426-02 

40000  9 

0.008900 

.075231 

. 2Col04 

.6804E+U0 

5153G0 

-.552800 

-.927341 

-.632837 

.21 57E+0Q 

50000  3 

-2.530000 

-.397891 

-2. 250969 

* 9877E-D2 

800009 

. 400000 

.246251 

.600392 

. 7233E+  00 

381500 

-.515300 

-.88380  7 

-.560379 

.22636+00 

500  00  3 

-2.  500000 

-.425912 

-2.  214*45 

.10346-01 

3 00  00  0 

. 80G000 

.46320  0 

.990269 

•7238E+C0 

235709 

-.38150  0 

-.777203 

-.411287 

•2322E+00 

500000 

-2. 500960 

-.597981 

-2. 218024 

• 1342E- 01 

05530  3 

1.  090080 

.747834 

1. 240723 

.7391E+00 

000300 

-.235700 

-.288382 

-. 149617 

•1939E+00 

* -*-#****.**  + * « 

****+******* 

3 00  00  9 

-3.009000 

-.868756 

-2.  62  6833 

l)  « 

3 0000  9 

0. OOOOOO 

.411733 

. 667692 

.11 67E+01 

OOOOOO 

C. CGD000 

.275298 

. 149145 

.2316E+0D 

PROGRAM  80 XC 
BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BECFORD,  MASSACHUSETTS 

TEST  BODY 


N 


9 


CO 

cr> 


M 

X 

X 

X 

X 

NX 

Y 

Y 

Y 

Y 

NY 

Z 

Z 

Z 

Z 

NZ 

2 

-2.500030 

“2.580000 

-3.030000 

-3. 000030 

-.776209 

.800000 

• 400 C00 

0.009000 

13.  UQGOOO 

•200002 

.381500 

.515300 

3.0  00  00  0 

0.000030 

.597912 

3 

-2,500000 

-2.500000 

- ooo oco 

-3.000080 

-.740175 

.400003 

0. 000000 

0.000900 

o. ecaooo 

.062764 

.515330 

. 55  28  00 

0. 000309 

9. 030000 

.669478 

4 

-2.500000 

-2.500000 

- i.  003  00  0 

-3.000000 

-.740175 

0.000000 

-.400000 

0.000300 

0 » 0 130000 

- .062764 

.552800 

. 515300 

0.000000 

0. 000003 

.669478 

5 

-2.500000 

-2.500000 

-3.300000 

-3.  000000 

-.776209 

-.400000 

-.800000 

0.000000 

0.400000 

- • 2 € 0 0 9 2 

.515300 

.381500 

0. 000000 

0.033009 

.597912 

6 

-2.500000 

-2.500000 

- 3.  S3y330 

-3.000000 

-.868756 

-.300000 

-1.05  5000 

0. Q00000 

0.000000 

-.411733 

.381500 

0. 000000 

0.000000 

0. 000000 

.275208 

7 

-2. 500000 

-2.500000 

-3.000000 

-3. 000000 

-.868756 

-1. 055000 

-.800000 

0.000030 

0. 030000 

-.411733 

0. 000000 

-.381500 

0.000000 

G. 000080 

-.27520  8 

8 

-2.530000 

-2.500  G 00 

-2.000000 

-3.00GOQO 

-.776209 

-.303000 

-.400000 

0.000000 

0. €00369 

-.20000 2 

-.381500 

-.515300 

0.009009 

a.  3 1)6  00  0 

-.597912 

9 

-2.500000 

-2.500000 

- 3.  00000  0 

-3. 000000 

-.740175 

-.400000 

0.000000 

C. 000030 

d. ooaooo 

-.062764 

-.515300 

-.55  2800 

0.000900 

0. G00G0Q 

-.669476 

ID 

-2.500000 

-2. 5C  0 0 00 

- 3.  00000  0 

-3.000000 

-.740175 

0.003000 

•400800 

0. 030300 

0. 000000 

.962764 

-.552800 

-.  515300 

0.000009 

0.000000 

-.669478 

11 

-2.500000 

-2.500000 

- 3 .0  0 u 0 00 

-3. 000080 

-.776209 

.400000 

.800000 

0.000  000 

0. 000000 

• 2 CO  0 0 2 

-. 515300 

-. 381500 

0.000080 

u. COO  COO 

-.597912 

12 

-2. 5000 00 

-2.500000 

-3.009000 

-3.000000 

-.868756 

.300000 

1. 055000 

Q. 900000 

0. €00000 

.411733 

-. 381500 

0. 000000 

0.009000 

0.0  00000 

-.275208 

NP 

NP 

NP 


>2.  62 
. 43 
.33 


•2. 63 
• 14  1] 
. 38  9l 


• 2.  63  51 
-.1411 
.38  9 


■2  . 62  91 
-.43  41 
• 33  62 


•2.  626i 
-.687| 
.14911 


J 


■2.  62  6fif 
-.687 
-.149 


-2.  62  9| 
43  4* 
-.335^ 

-2.  63  5^ 
- . 14 12 
-. 3897 


-2.  63  54 
. 1412 
-.  38  97 


-2. 6291 
. 43  41 
-.3362 

-2.  62  68 
. 6876 
-.1491 


¥*  ********** 


************ 


FQUJOUT  fTiA.4,  t 


i 


MOSPHERIC  SCIENCE  ASSOCIATES 

BECFORD*  MASSACHUSETTS  PAGE  17 

BOO  Y 


X 

X 

NX 

NPX 

0 

Y 

Y 

NY 

NPY 

T 

Z 

Z 

NZ 

NPZ 

A 

-3.000000 

-3.  G000C0 

-.776209 

-2.  629150 

•13326- 14 

0.000000 

a.  uac-aco 

• 2 GO  00  2 

. 43  41  78 

.10 18E+Q1 

8.0  00  000 

O.GOOOGO 

.597912 

.33  6208 

•16726+00 

- ;.  oooooo 

-3. 009000 

-.7A0175 

-2.  63  5472 

.22206-15 

0.000000 

0.  CC3000 

• 0 62  764 

. 141262 

• 82196+00 

0.800009 

U. 090000 

.669478 

.38  9779 

• 14946+60 

- c.  003  00  0 

-3.038000 

-.740175 

-2.  63  5472 

•30 £3 E- 15 

o.acoooo 

0.000000 

-.062764 

-.  141262 

•82196+00 

o. oocooo 

3. OOCOOO 

.669478 

.389779 

.14946+00 

-i,  80000  0 

-3. 800000 

-.776209 

-2  . 62  9 1 50 

.11  ICE- 14 

Q.GOGOOQ 

G.GQQOGQ 

-.22099 2 

- . 43  41 70 

• 1016E+01 

0.000003 

0.003000 

.597912 

.336208 

.16726+00 

- :.CSy33fl 

-3. 002089 

-.868756 

-2.  62  68  33 

•8882E-15 

0.  OOOQQO 

0. 030000 

-.411733 

-.687692 

• Z167E+  01 

0.000300 

3.020000 

.275298 

.149145 

.23166+00 

-3.003800 

-3.000000 

-.868  756 

-2.  62  6833 

0 . 

8.003030 

0.090 COO 

-.411733 

-.687692 

.11676+01 

O.OOGOOO 

0. 000000 

-.27520  8 

-.  149145 

.23166+00 

-3.GGQ0G0 

-3.00C900 

-.776209 

-2.  629150 

.13326-14 

O.QGOOOO 

0 . C 90C0  0 

- .2 OOGO 2 

-.  434170 

• 10 18E+01 

8.000008 

0.000000 

-.597912 

—.336208 

.16726+00 

- 1.  09090  0 

-3.000000 

-.740175 

-2.  63  5472 

•22206-15 

C. 820030 

0.800000 

-.062764 

1412  62 

.82196+ufl 

0.000000 

G. GGOOGO 

-.669476 

-. 389779 

.14  946+00 

-3.  00000  0 

-3. OOOOGO 

-.740175 

-2.  63  54  72 

.30536-15 

0. 009300 

0*  9 99000 

.062764 

. 141262 

• 6219E+00 

0.308309 

0.008900 

-.669478 

-.389779 

.14946+00 

—3. OOuOOO 

-3. 090000 

-.776209 

-2.  629150 

.11106-14 

8.000  00  0 

0.  800000 

.220092 

. 43  41 70 

.10186+01 

0.000300 

u.GOO  COO 

-.597912 

-. 336208 

•1672E+00 

-3.030300 

-3.000000 

-.8  68  75  6 

- 2.  62  68  33 

•8882E-15 

2.000900 

0. 090920 

.411733 

.6876  92 

.1167E+C1 

C « 0 CO  00  8 

9.900000 

-.275208 

-.149145 

.23166+00 

♦ * * * JMf '*  ***** 


^niomfrcFfAf,, 


189  BASIC  ELEMENTS  WERE  INPUT 

FLOWS  HAS  SET  UP  1 X FLOWS,  0 Y FLOWS,  AND  C Z FLOWS. 


NEAR  ELEMENTS  = 12340 

INTERMEDIATE  ELEMENTS  = 12849 

FAR  ELEMENTS  = 10532 

LEAVING  VFORM 
LEAVING  AFORM 

THE  189  X 189  MATRIX  WITH  1 RIGHT  SIDES  WAS  SOLVED  DIRECTLY. 
LEAVING  AT  APES 


CO 

^1 


PROGRAM  BOXC 
BODY  ID.  TEST 


atmospheric  science  associates 

BEDFORD,  MASSACHUSETTS 


TEST  BOOT 


X-F.OW 


N M 

NPX 

NPY 

NPZ 

V T 

t/TSQ 

CP 

VX 

</Y 

VZ 

OCX 

OCY 

OCZ 

NX 

NY 

NZ 

1 i 

1.  591395 
1.389794 
.094899 

. 650542 
. 422205 
.576795 

*186355 

-.60377* 

-.154737 

• 286460 
928109 
-.237613 

.958086 

.276584 

.07*655 

2 

1.  5963  49 
1.25  40  20 
. 282927 

. 722874 
.522546 
• 4 77454 

.242954 

-.523217 

-.439198 

*336094 

-.715651 

-.607572 

.9*1794 
.251245 
. 223380 

3 

1. 605113 
1.  019539 
. 4*5612 

• 82  73  95 

• 684562 
. 31 541 8 

.333138 
- * 36  963  6 
- . 54  945  4 

. 402595 
-.475922 
-.78*950 

.915363 
. 202414 
.3*8052 

4 

1.609275 
.750320 
. 5 7 4 9 4 

. 907577 
.3236  <6 
• 17 63  0 4 

.410652 
- • 25745  7 
-.767312 

. 452462 
-.283676 
-.845451 

.891771 

.146221 

.428210 

5 

1.  620269 
. *47901 
. 6130  81 

. 940308 
• 88  5119 
. 114881 

.456097 
“• 124535 
-.313370 

.48*793 

-.132373 

-.864553 

.87*522 

.056902 

.476787 

6 

1.624811 
. 147089 
.6412  22 

. 975755 
. 952098 
. 047902 

.487596 

.010372 

-.3*5127 

.455713 
. C 11,6  30 
- . 8 6 6l  2 6 

.8656*5 

.029238 

.499797 

7 

1.626041 
-.  148316 
. 6232  2* 

1.  G225  (.2 
1. 045673 
-.045673 

. 516023 
.185219 
— . 36  3l  3 5 

. 504625 
.161129 
-.844124 

.663087 

-.082222 

.493318 

8 

1. 627233 
-.  4428  46 
. 524111 

1. 02 70 46 
1.354824 
-.054824 

. 521379 
.38  5641 
-.305336 

. 467683 
.375436 
-.  7 8 8C23 

• 87  2o  72 
-.  218216 

• 436*36 

9 

1.618821 
-.  751165 
.386778 

1.  0376  72 
1. 07*179 
-.  077179 

.505633 
• *5*951 
-.783890 

.487230 
.436350 
-.7552  86 

.872872 

-.218216 

.436436 

IQ 

1. 607146 
-1.08  59  76 
. 242  7 IS 

1.345350 
1.  792  756 
-.092756 

.507243 
.50  4246 
-. 752353 

.485237 
. 48  cZ  70 
-.  72-2  90 

.872872 

-.218216 

.436*36 

11 

1.539795 
-1. 365206 
. 034464 

. 843584 
. 711633 
. 288367 

.275038 
.531390 
-.48  7141 

.326094 
.74  84  62 
-.57  7466 

• 9^50  63 
-.2  7282* 

* 1 9S 0 6* 

12 

1. 591395 
-1.339794 
-.094399 

.659238 
. 434594 
• 56  54  06 

.182435 
. 63  345  a 
-«  3 04927 

. 276812 
. 560895 
-.007*73 

.956086 

-.276584 

-.07*655 

pouaour  » 


r 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
3E0F0R0,  MASSACHUSETTS 

EST  BOO Y 


X-F.OW 


VT 

VX 

fTSQ 

tfY 

CP 

t 

V Z 

1.50542 

• 18  635  5 

[2  22  05 

-.603774 

767  55 

L 

-.154737 

1 

[228  74 

.242954 

i'2  2 5 4 6 

-.520217 

>77454 

-.439198 

S73  95 

.333128 

84562 

115418 

— .369636 
-.64  9434 

OCX 

DCY 

OCZ 

• 28  6460 
-.528109 
-.237613 

.336094 
-• 719651 
-.607572 

. >*02599 
-.476922 
-.784950 


'07577 
[236  <6 
1763  Cu 

( 

40  80  6 
.8  5119 
148  61 

I 

¥5755 
520  96 
479Q2 


225  <2 
»56  73 
45673 


27046 

1*8  2 4 

54824 


176  72 
'7179 
'7179 

i 

r 53  50 
>2756 
>27  56 


>35  84 
116  33 
183  67 


.410652 
-.25745 7 
-.767312 

.45  609  7 
-.124535 
-.S1337o 

. 487598 

.010372 

-.345127 

. 516023 

.165219 
- • 36  3l3  6 

.501379 

.38  5641 
-.309336 

• 50  563  3 

• -*5  495 1 
-.763693 

*507243 

. 504246 
-.762363 

.275033 

.631390 
-.46  7141 


. 452482 
-.283676 
- . 6 45451 

.484793 

-.132373 

-.864553 

.499715 
.115,630 
- • 8 6 6l  2 6 

. 504625 
.161129 
-.84^124 

. 487683 
.375436 
-.  788023 

.487230 

.436350 

-.755286 

.485237 
. 48  cZ  70 
-•  7292  90 

.326094 
o 74  84  62 
-.5  7 74  66 


9238 
45  94 
•54  C 6 


.16  243  5 
. 63345  6 
-.304927 


. 276612 
. 960895 
.007473 


NX 

NY 

NZ 

.958086 

.276584 

.074655 

.941794 

.251249 

.223380 

.915363 

.202414 

.348352 

.391771 
.146221 
• 423  210 

.874522 

.066302 

.476787 

.865645 

.029238 

.499797 

.663087 
-.082222 
. 493318 

.872672 
-.216216 
. 436436 

.872872 

-.218218 

.436436 

.872872 
-.218218 
. 436436 

.945063 
-.272824 
.1803  64 


.956086 

-.276584 

-.074655 
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VN 

SIG 


. 000030 
-.139050 


. C 0 u 0 J 0 

-.137437 


• 0 0 0 0 u P 
-.1337  7 3 


. u If  6 w w 0 

-.130613 


.300030 

-.123792 


. 00 00 uC 
. 1276  64 


.02-30  0 0 
-.127756 


• u u o o :-o 

-.134528 


. u v 0 o j 0 
-.136366 


.300000 
. 12(3697 


. 0 0 u Li  Ci  0 
-.144478 


. uOCUUO 
-.143742 


mionurcfM 


PROGRAM  BO  XC 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD*  MASSACHUSETTS 


BODY  ID.  TEST 


N M NPX 

NPY 
NPZ 

1 13  1.598349 

-1. 2540  20 
-.2829  27 

14  1.605113 
-1.  019539 

-.445612 

15  1.609275 
-.750320 
-.  557494 

16  1.  620269 
-.447901 
-.  6130  81 

17  1.624811 
-.1*7389 
-. 641222 

,8  1.624811 

.147089 
-.641222 

19  1.620269 

. 447901 
-.613081 

20  1.609275 

. 750320 
-.557494 

21  1.605113 
1.  019539 
-. 4456 12 

22  1.598349 
1.  254020 
-.232927 

23  1.591395 
1.399794 
-.  0948  99 

2 1 1.220560 

1.831729 
. 149900 


TEST  BODY 


X-FlOW 


VT 

VX 

VTSQ 

\l  Y 

CP 

VZ 

•686910 

.228438 

.471645 

. 54  5533 

• 528155 

.349431 

.794765 

.319054 

.631651 

.417354 

.368349 

.596332 

.683063 

.399194 

. 779800 

.290737 

•220290 

,732075 

.918614 

.44  5350 

.643852 

.170819 

.156148 

.785065 

. 938859 

.469995 

.881457 

.063633 

. 118543 

.810455 

. 941987 

.471691 

.887340 

-.0  v2714 

.112660 

.844314 

. 923862 

.450432 

.862784 

-.  15  2091 

. 137216 

.797947 

.902372 

.408274 

.814275 

-.271614 

. 185725 

.757535 

.624376 

.331816 

.675556 

-.397026 

.320404 

.641767 

.721173 

.242312 

. 520090 

-.523590 

.475910 

.432699 

.6499  87 

.186167 

.422484 

-.604720 

. 577516 

.146793 

1. 298463 

1.168799 

1. 686005 

-.543413 

-.686005 

-.156677 

OCX 

NX 

DCY 

NY 

OCZ 

NZ 

. 332515 

. 941794 

.794140 

-.251249 

.508700 

-.223380 

.401444 

.915363 

.525129 

-.202414 

. 750386 

-.348052 

.452056 

.891771 

.329203 

-.146221 

.829018 

-.428210 

.48  4818 

.874522 

.1859  53 

-.088802 

.854619 

-.476787 

.500602 

,865649 

.0  645  81 

-.029236 

.863265 

-.499797 

• 50  0645 

,865  649 

-.045345 

.029236 

.864464 

-.499797 

.464982 

.874522 

-.163739 

• 068802 

.659059 

-.476767 

. 452446 

.891771 

-.301000 

.146221 

.839459 

-.428210 

. 432505 

.9  15363 

-.481607 

. 20241^ 

.7  7 64  8 8 

-.348052 

.335997 

.941794 

-.726026 

.251249 

.599994 

-.  2 23380 

. 286416 

.958086 

-.930356 

.2  76  584 

.228917 

-.074655 

. 900141 

.435365 

-.418509 

.855263 

-.120818 

.281036 

;e  associates 

i CH U SETTS  PAGE  19 


4 


e 

t 

t 

l 

P 

f 


V 

\ 

f 


OCX 

OCY 

DCZ 

NX 

NY 

NZ 

M N 
SIG 

, 332515 
.794140 
.508700 

.941794 

-.251245 

-.223380 

. 000030 
-• 141206 

. 401444 
.525129 
,750386 

.915363 
-.2  £2414 
-.348052 

.000000 

-.136358 

.452056 

.329203 

.829018 

.891771 
-.146221 
-.4  28  2x0 

•000000 

-.132383 

.48  4818 
.185953 
• 8 54619 

.874522 

-.088802 

-.476787 

. 000000 
-.129915 

.500602 
.0  6^5  81 
.8  632  65 

.865645 

-.029238 

-.499797 

.300000 
- • 126441 

• 500645 
-.045345 
.864464 

• 8 65649 
.029238 
-.499797 

. OOOOOQ 
-.128168 

. 4 649  8 2 
-.163739 
.659059 

.374522 

.063802 

-.476767 

. CQGQoO 
-.129054 

.452446 
- • 3 0 lO  0G 
.839459 

.891771 
.146221 
-.428  2lG 

,0Q  OOuQ 
-.130873 

.432505 

-.481607 

.778488 

,9  15363 
. 2ii  241^ 
-.346052 

.003000 

-.133979 

.335997 

-.726026 

.599994 

.941794 
.251245 
-.2  2338C 

.300000 

-.137551 

. 286416 
-.930356 
.228917 

.958086 
. 2 76584 
-.074655 

. 0 0 0 0 0 D 
-.139065 

. 901141 
-.418509 
-» 120816 

.435365 

.855263 

•28x036 

. 0 0 C 0 o 0 
-. U41547 

pmom/f 


( . 


€ 


PROGRAM  BO  XC 


BODY  ID.  TEST 

€ 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 

TEST  BODY 


c 


>4. 


X-FLOW 


o 


N 


2 


M 

NPX 

M T 

MX 

DCX 

NPY 

VTSQ 

M Y 

OCY 

NPZ 

CP 

Ml 

DCZ 

2 

1.241719 

1.342441 

1.235652 

.920459 

1.652830 

1. 802147 

-.395679 

-.294746 

.414680 

-.802147 

- • 344554 

-.256670 

3 

1.241630 

1.394162 

1.318375 

.945640 

1* 351646 

1.943687 

-.240723 

-.172665 

.631851 

-.9436  £7 

-.38  4222 

-.275593 

4 

1.242993 

1.422806 

1.362458 

. 9575  85 

. 985715 

2. 024378 

-.135694 

-.095371 

.786135 

-1.  024378 

-.366876 

-.271910 

5 

1.250180 

1. 439029 

1.38  5168 

.962571 

.600088 

2.070805 

-.055319 

-.038442 

.876683 

-1. 070805 

-.386075 

-.268289 

6 

1. 250017 

1. 440 G 42 

1.368034 

.963684 

. 200026 

2.073722 

.055597 

.038606 

.922094 

-1. 073722 

-.379465 

-.263509 

7 

1. 246098 

1.454052 

1.44165  6 

.991475 

-. 199566 

2.  114266 

. 10  3242 

.371003 

.867167 

-1.  114266 

-.158854 

-.1092  49 

8 

1. 250000 

1. 4642  73 

1.463954 

.999782 

-.600000 

2.  144096 

.027353 

.018687 

. 700300 

-1. 144096 

.01363  1 

.009344 

o 

1. 250000 

1.455110 

1 . 45  8560 

.999623 

-1.  G 300  00 

2.  129001 

.035829 

.0  24556 

.500000 

-1.129001 

.017915 

. 012278 

10 

1.  2500  00 

1.413037 

1.41  2346 

.999511 

-1.400000 

1.996674 

.039537 

.027980 

. 300000 

-. 996674 

.019753 

.013990 

11 

1. 216789 

1. 325756 

1.31273  5 

.987245 

-1.739216 

1. 768252 

.118453 

.089086 

.102016 

-.  768252 

-.175453 

-.131951 

12 

1. 220560 

1. 240825 

1.106576 

.891807 

-1.831729 

1.539647 

.561339 

.452391 

-. 149900 

-.535647 

. 005949 

.004795 

13 

1.241719 

1.307517 

1.  201637 

. 915023 

-1. 65283C 

1.  7095  99 

.417526 

.319327 

-.414680 

-.709599 

. 30  2225 

. 2311 44 

I 


i 


NX 

NY 

NZ 

*390069 

.652170 

.650304 

.324553 

.447006 

.833577 

.28600  5 
• 28715  i 
.913561 

.270929 

.163401 

.948629 

.261384 
.052527 
. 963805 

.126140 
-.312996 
. 941341 

0.020000 

-.447214 

.894427 

0.0CQ40C! 

-.447214 

.89*427 

O.QliOQuQ 

-.447214 

.894427 

.159006 
-.593315 
.76910  c 

.435365 

-.855263 

-.261038 

.3  90-0  89 
-.652170 
- . 6 5u  3 0 4 


pouaour  fm?„ 


HERIC  SCIENCE  ASSOCIATES 
DFORD,  MASSACHUSETTS 


PAGE 


£0 


X-FLOW 


MX 

MY 

Ml 

OCX 

OCY 

OCZ 

NX 

NY 

NZ 

MU 

SIG 

1.235652 
-.395679 
— • 344554 

.920459 
-.294746 
-.2  5 66  70 

.390089 

.652170 

.650304 

.000000 

-.031945 

1. 318375 
-.240723 
-.38  4222 

. 945640 
-.172665 
-.275593 

.324553 
.44700  6 
.833577 

. ooooco 

-.019166 

1.362458 

-.135694 

-.366876 

. 9575  85 
-.095371 
-.271910 

.23300  9 
• 237i5  i 
. 913561 

.000000 

-.011885 

1.36  5163 
-.055319 
-.386075 

.962571 

-.038442 

-.268289 

.270929 

.163401 

.948629 

. C 0 0 0 0 C 
-.008418 

1.368034 
. 055597 
-«  379465 

.963684 

.036606 

-.263509 

.261384 
.052527 
. 963805 

.0000-0 
- . OU  78  81 

1.441656 
. 10  3242 
-.15865m. 

.991475 

.071003 

-.109249 

.126140 
-.312996 
. 941341 

. G Q 0 0 u 0 
. 022592 

1.46  395  4 
.027353 
. 01363  1 

.999782 

.016687 

.009344 

0.000000 
- . 447214 
.894427 

. UtluOGO 
.051235 

1.458550 
.03  582  9 
.017915 

.999623 
. 0 2 ho  56 
. 0122  78 

U.  0 CO u 00 
^,.447214 
.894427 

. UuCOOO 
. 149986 

1.41234  6 
. 039537 
. 019753 

.999511 

.027980 

.013990 

0.0000  0 0 
-.447214 
.894427 

. f 0 0 0 w 0 

.047884 

1. 312795 
.118453 
-.17  545  3 

.987245 
• 0 891?  86 
-.131951 

.159006 
-.593315 
.76910  9 

. O 0 u 0 6 0 
.011237 

1. 106576 

• 5 6133  9 

• QGS949 


.691807 
. 452391 
• C 0 47  95 


. 435365 
'.855263 
■ • 2o 10  36 


.000000 

. 052420 


1.  20163  7 
.417526 
. 3U2225 


. 919023 
.319327 
• 231144 


. 3 90-3  89 
-.652170 
. 650  30  4 


000060 

039199 


fmt. 


t 


PROGRAM  BOXC 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD » MASSACHUSETTS 


BOOY  ID.  TEST 


N M NPX 

NPY 
NPZ 

2 14  1.241630 

-1.351646 

-.631851 

15  1.242999 
-.985715 
-.786135 

16  1.250180 
-.600068 
-.876683 

17  1.250017 
-. 200026 
-.922094 

18  1.250017 

. 200026 
-.922094 

19  1.250180 

.500088 

-.876683 

20  1.242993 

.985715 

-.786135 

21  1.241630 
1.351646 
-.631851 

22  1.241719 
1.652830 
-.414680 

23  1.220  560 
1.831729 
-.149900 

3 1 .590000 

1.935000 

.177300 

2 .500000 

1.  735000 

.4773  03 


TEST  BODY 


X-FLOW 


\IT 

vx 

VTSQ 

V Y 

CP 

VZ 

1.375733 

1.300194 

1.892642 

.259936 

-.892642 

.366640 

1.414596 

1.354235 

2.  0010  80 

.156928 

1.001080 

.377630 

1.43  9188 

1.385137 

2.071262 

.083699 

1.071262 

.360331 

1. 449715 

1.399232 

2.  101673 

.030636 

1.  101673 

.377813 

1.451738 

1.401253 

2.  10  75  44 

-.022042 

1. 107544 

.378823 

1.445716 

1,391539 

2.  090095 

-.079317 

1. 090095 

.383776 

1. 426664 

1.366014 

2.  035371 

-.146440 

1.  03  53  71 

.384619 

1. 396261 

1.320233 

1.949544 

-.245998 

-.949544 

.362116 

1. 343418 

1.236477 

1. 804772 

-.398298 

-. 804772 

.342426 

1. 298765 

1.169035 

1. 686792 

-.544235 

-.686792 

.154633 

1. 212633 

1.212570 

1.470479 

-.004275 

-.470479 

.011662 

1. 221483 

1. 221289 

1.492020 

-.016098 

-.492020 

. 014632 

DCX 

NX 

OCY 

NY 

OCZ 

NZ 

.9450  91 

.324553 

• 1869  43 

-.447006 

.266651 

-.833577 

.9573  09 

.288009 

.110935 

- . 28 71 54 

.266931 

-.913561 

. 962478 

.270929 

.0616  31 

-.163401 

.2642  68 

- • 9 4 i 6 2 9 

.965212 

.261384 

.021167 

-.052527 

. 2 6 y 6 12 

-.963805 

.965235 

.261384 

-.015183 

.052527 

. 26G944 

-.963805 

.962560 

.270929 

-•  0 5 48  63 

.163401 

.265457 

-.948629 

.957488 

.238009 

“• 102645 

.287154 

.269593 

-.9  13561 

.945549 

.324553 

-. 176183 

.447006 

.2736  71 

-.833577 

.920396 

.390089 

-.296481 

.652170 

.254891 

-.650004 

.900112 

.435365 

-.419079 

.855263 

.1190  39 

-.281038 

.999948 

G.QuOQOO 

-.003526 

.938393 

.009617 

.344208 

.999841 

0.  0 0 0 0 00 

-.013179 

.672591 

.011979 

.740014 

;e  associates 

iCHUSETTS 


PAGE 


21 


I 


i 

f 

!• 

5 

B’ 

fe 


i> 

f- 


OCX 

DCY 

OCZ 

.9450  91 
.186943 
.266651 

.9573  09 
.110935 
.266931 

.962478 
<>0616  31 
.2642  68 

.965212 
.021167 
. 26u612 

.965235 

-.015183 

.260944 

.962560 
-.0548  63 
.265457 

.957488 

-.102645 

.269593 

.945549 
-.176183 
.2736  71 

.920396 

-.296481 

.254891 

.900112 

-.419079 

.119039 

.999948 
-.U 035 26 
.009617 

.999841 

-.013179 

.011979 


NX 

NY 

NZ 

. 324553 
-• 447  0 0 6 
-.833577 

.288009 
-.287154 
- • 91j  5 61 

.270929 

-.163401 

-.943629 

.261384 

-.052527 

-.963805 

.261364 
.052527 
-.96380  5 

. 2 7U  929 
.163401 
-.948629 

.238009 
.287154 
-.9  13561 

.324553 
• 4470  G 6 
-.833577 

.390089 

.652170 

-.650004 

.435365 

.855263 

-.281038 

0.000030 
.938893 
. 3 4420  6 

0. 000000 
.672591 
.740014 


VN 

SIG 


.00 

GOOD 

-.024030 

• 00 

GOO  0 

-.31 

4970 

. 00 

GOOD 

-.010137 

.00 

0000 

-.00 

7697 

.00 

0 0 6 0 

-.00 

7196 

. uO 

0G00 

-.00 

8 5 45 

. 00 

00  GO 

-.01 

2085 

. QQOOQO 

— • if  i 

9350 

« OOOGUQ 

-.03 

20  50 

. GO 

0000 

-.04 

1587 

. 00 

0000 

. 00 

9526 

s 00 

GISCO 

.00 

9772 

* 


wmooiirfrw?*. 


vt 

V . 


PROGRAM  BO XC 
BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORO,  MASSACHUSETTS 

TEST  BODY 


X-FLOW 


M 

NPX 

NPY 

NPZ 

VT 

VTSQ 

CP 

VX 

VY 

n 

OCX 

DCY 

OCZ 

NX 

NY 

NZ 

3 

,500000 

1.430000 

.700000 

1.  232356 
1. 516701 
-.518701 

1.2322D7 

-.017153 

.908577 

.999879 
-.013919 
• 006960 

0.000000 

.447214 

.894427 

4 

.500000 

1.030000 

.858253 

1.237037 

1.530261 

-.530261 

1.236932 

-.011243 

.003274 

.999955 

-.009088 

.002647 

O.OOOQOO 
.279631 
.96310  7 

5 

.530000 
.60  0000 
.948150 

1. 234013 
1. 522789 
-.522769 

1.234011 
-.00  243  2 
.000333 

.999998 
-.002011 
• G00318 

0.000000 

.156305 

.987709 

6 

. 530000 
.200300 
.989900 

1.  220064 
1.488557 
-.488557 

1. 220020 
.010370 
-.900524 

.999964 

.008500 

-.000429 

0.000000 

.050436 

.998727 

7 

. 500000 
-.200000 
•900900 

1. 206541 
1.455742 
-.455742 

1.206516 
-.007029 
-.30351  5 

.999979 

-.005626 

-.002913 

0.000330 

-.447214 

.694427 

8 

.500003 
— . 600000 
.700000 

1.  196347 
1.431247 
-.431247 

1.196331 
.005573 
.00  2737 

.999986 
•C 04659 
.002329 

0.0  33000 
-.447214 
.894427 

9 

. 50G0C0 
-1.000003 
. 500000 

1.185439 
1. 495265 
-.40  5265 

1.185352 
.91  2836 
.00  6418 

.999927 
.010828 
.00  5414 

' 0.033000 
-.447214 
c 894427 

ID 

• 5 0 0 0 n0 
-1.400000 
. 3000  00 

1.175488 

1.381772 

-.381772 

1.175237 

.019439 

.009719 

.999829 
.016537 
,0082  68 

0. 000300 
-.447214 
.894427 

11 

• 5 0 0 0 0 U 
-1. 800000 
.100000 

1. 164000 
1.  354  8 55 
-.354895 

1.163439 

.032332 

.316151 

.999519 
.0  277  51 
.0138  76 

Q.0303GQ 

-.44721-') 

.S9-+427 

12 

. 590000 
-1. 935000 
-.177300 

1.16  '.0  03 
1.364231 
-.364231 

1.167855 

.306398 

-.017450 

.9998  73 
.0  05477 
-.014940 

0.000 3 CC 
-.938893 
-.344206 

13 

. 500000 
-1.735000 
-.477300 

1.195403 
1.42  6969 
-.428989 

1.195120 

.019253 

-.017499 

.999763 

.016106 

-.014638 

0.020000 

-.672591 

-.743014 

14 

.530000 

-1.400000 

-.700000 

1. 218760 
1.48  5377 
-.485377 

1.21853  2 
.021030 
-.910540 

.999813 

.017296 

-.006648 

0.330300 

-.447214 

-.894427 

f&jxncr  f m*'  i 


IC  SCIENCE  ASSOCIATES 
RO,  MASSACHUSETTS 

PAGE  2 

X-FLOW 

VX 

OCX 

NX 

VN 

VY 

OCY 

NY 

SIG 

U 

OCZ 

NZ 

1.  23223  7 

.9986  79 

0.000000 

.oocaao 

-.017153 

-.013919 

.447214 

.910857 

. OC  8577 

• 006960 

.894427 

1.236932 

.999955 

9.000000 

• u G 0 0 9 0 

011243 

-.009068 

.279631 

.011576 

.00  3274 

.00  2647 

.96010  7 

1.  234011 

.999998 

0.000000 

. 0099  20 

-.  00  243  2 

-.002011 

.156305 

. Gi 18 05 

. 000333 

.000318 

.937709 

1. 220020 

.999964 

0.000000 

•OOQOuO 

. 010370 

.006500 

.050436 

.010980 

-.00  0524 

-.000429 

.998727 

1.206516 

.999979 

O.OfiUdOO 

• 9 0 0 G G G 

-.  007029 

-.005626 

-.447214 

• 911147 

-.  303515 

-• C 02913 

.694427 

1. IS  6331 

.999986 

0.000000 

.900020 

. 005573 

.004659 

-.447214 

. 111654 

.002737 

.002329 

.894427 

1.165352 

.999927 

0.000000 

.0 00989 

. 3 i 28  3 6 

. C10828 

-.447214 

. 210632 

. 0 0 641  8 

.0  05414 

.894427 

1.  175237 

.999829 

0.0000QG 

. C900G0 

. 018439 

.016537 

-.447214 

.908609 

• 00  9719 

.0062  66 

.894427 

1.163439 

,999519 

0.030300 

. GQJfiCO 

- .032332 

.0  277  51 

-.447214 

.904981 

f .016151 

.0138  76 

.894427 

1. 167  855 

.9998  73 

0.990000 

.900000 

f . 00 6398 

.0  054  77 

-.938893 

.906411 

-•017450 

-.014940 

-.344206 

|« 18  5120 

.999763 

0.000090 

. 0OQGGG 

f • 0 1 9253 

.016106 

-.672591 

• 20  7340 

0 1 7499 

-.014638 

-.740014 

1.21853  2 

.999813 

o. acoooc 

. uOODOO 

It*  Q 2103  0 

.017296 

-.447214 

• 20  89u  0 

|.  010540 

-.006648 

-.894427 

PROGRAM  BOXC 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEOFORD,  MASSACHUSETTS 


A 


BODY  ID.  TEST 


TEST  BODY 


X-FEOW 


M 

NPX 

NPY 

NPZ 

VT 

VTSQ 

CP 

VX 
V Y 

Ml 

OCX 

DCY 

DCZ 

NX 

NY 

NZ 

15 

. 500000 
-1.000000 
-.  8582  50 

1.  234579 
1. 524186 
-.524186 

1.234452 

.916316 

-.904752 

.999905 

.013216 

-.003849 

0.0  C0G30 
-.279631 
-.960107 

16 

. 500  0 GO 
-.600500 
-•948150 

1. 244132 
1. 547863 
-. 547863 

1.244037 

•013366 

-.001640 

.999964 
.0  063  32 
-.001319 

0.0  000  30 
-.156305 
-.987709 

17 

• 590  0 CO 
-»  2 000  CO 
-.989900 

1.  2493  57 
1.563993 
-.  560953 

1.249390 
.90  4210 
-.000213 

.999994 

.003369 

-.  000170 

0 • 0 000  GO 
-.050436 
-.998727 

18 

.500003 
.200000 
- • 98  99  QO 

1. 251259 
1. 565650 
-.  565650 

1. 251258 
-.001969 
-. 009099 

.995999 

-.001573 

-.000079 

0.000000 
. 0 50  436 
-.998727 

19 

.590000 
. 600000 
-.948150 

1. 249969 
1. 562422 
-.562422 

1.249942 

-.008063 

-.001276 

.999979 
-.0064  51 
-.0010  21 

0.350330 

.156305 

-.967709 

20 

• 500000 
1.030000 
-.858250 

1.245269 
1.  550654 
- • 5 50  6 94 

1.24513  5 
-.013854 
-.004038 

.999933 
-.011133 
-.0032  42 

fl.OCOGQO 
.279631 
-•9b 0107 

21 

.500000 
1.40  GO  00 
-.700903 

1. 236471 
1.  5288  62 
-.528862 

1.23633  5 
-.918128 
-.  0139054 

.999866 

-.314661 

-.007331 

e.ooooco 

• 44721 4 
-.894427 

22 

.500909 

1.735000 

-.477303 

1. 223413 
1. 496738 
-.496738 

1.223215 

-.016278 

-.914795 

.999838 
- • 0 13306 
-.012093 

0.0  buO  JO 
.672591 
-.740014 

23 

.500000 

1.935000 

-.177300 

1. 213215 
1. 47189C 
-.471699 

1.213153 

-.904220 

-.011513 

.999949 
-.003478 
“#  30  9487 

O.OuOOOC 

.938893 

-.344208 

1 

-.246368 
1.923092 
. 174952 

1.156990 
1. 336626 
-.338626 

1.155568 
.053200 
. 921431 

. 998771 
.045981 
.018497 

-.049532 
.939127 
. 33998G 

2 

-. 249477 
1.7262  69 
.470683 

1.161134 

1.348232 

-.346232 

1.160840 

.025383 

.340558 

.9990  58 
.025736 
.0  349  38 

-.043145 
.67  515  ( 
.736411 

3 

-.249169 
1.395016 
. 692774 

1. 165449 
1. 358  272 
-.  356272 

1.164736 

.013543 

.343195 

.999364 
. 0050  51 
.034489 

-.034875 

.449471 

.892614 

FOUWUT  fRAf,.  I 


SPHERIC  SCIENCE  ASSOCIATES 
iEDFQRD,  MASSACHUSETTS 

JOY 


X-F.OW 

vx 

OCX 

VY 

DCY 

vz 

DCZ 

1.23  4452 

.999905 

.016316 

.013216 

-.904752 

— .00 38  49 

1.244037 

.999964 

.010356 

.0  083  32 

-.001643 

-.001319 

1.249390 

.999994 

.00  4210 

.003369 

-.000213 

-.000170 

1.251258 

.999999 

-.001959 

-.0015  73 

-.  000039 

-.000079 

1.249942 

.999979 

-.008053 

-.0064  51 

-.001276 

- • G010 21 

1.24513  5 

.999933 

-.013854 

-.011133 

-.004036 

-.0032  42 

1.236305 

.999866 

-.018128 

-.014651 

009054 

-.007331 

1.223215 

.999838 

-.016278 

-.013306 

-.014735 

-.012093 

1.213153 

.999949 

-. 304220 

-.003478 

-.011519 

-.00  948  7 

1.155558 

.998771 

.053200 

.045981 

.021431 

.018497 

1.160040 

.9960  58 

. 029883 

.025736 

.040558 

.0  349  38 

1.16473  6 

.999364 

.010548 

. 0050  51 

.340195 

.034489 

PAGE  23 

NX 

\l  N 

NY 

NZ 

SIG 

0.0  00000 

.000000 

-.279631 

-.960107 

.010302 

0.0  00000 

.000030 

-.156305 

-.987709 

.011310 

0.000000 

.000030 

-.0  50  436 
-.998727 

• 011924 

0.900000 

. 000000 

.050  436 
-.998727 

.012193 

o.  Quooao 

. uflOOOO 

.156305 

-.967709 

. 012128 

0. QCauOO 

.000000 

.279631 

-.963107 

.011700 

C. 000000 

. 0 C 0 0 u 0 

.447214 

-.894427 

. 010921 

0.040030 

.000030 

.672591 

-.740314 

.009613 

0.000090 

.000000 

.938893 

-.344208 

. 009545 

-.049532 

•300009 

.939127 

.339980 

. 004922 

-.043145 

• 0 0 0 0 3 0 

.67  515  i 
.736411 

.004422 

-.034875 

. 000000 

.449471 

.892614 

* 3 0 40 10 

t 


m omrr 


PROGRAM  BOXC 
BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEOFORQ,  MASSACHUSETTS 

TEST  BODY 


X-FLOW 


N M 


4 4 


5 


6 


7 


3 


-p> 

-p> 


9 


10 


11 


12 


13 


14 


NPX 

V 1 

NPY 

VTSQ 

NPZ 

CP 

-.249537 

1. 166421 

.998756 

1.360539 

.850538 

-.360539 

-.250016 

1. 163090 

. 630001 

1.352777 

.940749 

-. 352777 

-• 25 OR  02 

1.152040 

.2GGQQQ 

1.327196 

.9828  25 

-.327196 

-. 249496 

1.13  £124 

-. 199997 

1. 288507 

.896509 

-.2885  17 

-.250000 

1.119936 

-.600000 

1. 254256 

.700000 

-.254256 

-.250000 

1.111342 

-1.000090 

1.2350  82 

.500000 

-.235082 

-.  2500  00 

1.108832 

-1.  400  0 00 

1. 229508 

.300000 

-.2295C8 

-.247831 

1.115217 

-1.793015 

1.  24371(1 

. 1000  24 

-.243710 

-.248868 

1.128924 

-1.923092 

1.274468 

-.174052 

-.274468 

-.249477 

1.147966 

-1.726269 

1. 31  78  72 

-.  4706  88 

-.317872 

249169 

1. 160735 

-1.395016 

1.347306 

-.692774 

- • 3473  C 6 

-.249537 

1.  1690  28 

-.9987  56 

1. 366627 

-.850538 

- 0 3666  27 

VX 

DCX 

VY 

DCY 

z 

DCZ 

1,165810 

,999476 

-.00  0124 

-.000106 

.03777  0 

.032381 

1.162535 

.999497 

-.008737 

-.007555 

. 03  5812 

• G30790 

1.151345 

.999397 

-.021568 

-.016722 

.033633 

. Q 292  35 

1.134830 

.999714 

-.0  2 697  8 

-.023767 

.00  2870 

, 002529 

1.119873 

.999944 

-.010588 

-.009454 

-.005294 

-.004727 

1.111342 

.999999 

. 301286 

.001157 

• 08  3643 

.000578 

1.108740 

.999917 

.012743 

.011489 

.306370 

.00  £745 

1.114799 

.999625 

.0173*2 

.015550 

.025159 

.022559 

1.126893 

.996201 

-.0655*5 

-.058060 

.016879 

.0  14951 

1.146853 

.999018 

-.  042024 

-.036607 

-.028665 

-.0  249  69 

1.160026 

.999339 

-.020453 

-.017620 

-.  03  5024 

-.030174 

1.168465 

.999518 

-.009974 

-.008532 

-.034893 

-.029848 

NX 

NY 

N2 

-.031343 
• 281449 
.959074 

-.029216 

.157442 

.987096 

-.028252 

.050769 

.998310 

-.012608 

-.434526 

.900571 

0.803000 

-.4*7214 

.894427 

0.000300 

-.447214 

.894427 

0.0  00080 
-.447214 
.894427 

-.0  12881) 
-.460010 
.887820 

-.0*9532 

-.939127 

-.339980 

-.043145 

-.675158 

-.736411 

-.034875 

-.449471 

-.892614 

-.0313*3 

-.281449 

-.959074 


15 


ICE  ASSOCIATES 
IACHUSETTS 


D 


iw 


jfc 


U- 

1 


rS 

r-, 

k 

i' 


r 


I 

v. 


OCX 

OCY 

DCZ 

* 9 99476 
- • 000106 
.032381 

.999497 

-.007555 

.0313790 

.999397 

-.013722 

.029235 

.999714 
-.023767 
. 002529 

.999944 

-.009454 

-.004727 

.999999 

.001157 

.000578 

.999917 
.011489 
.00  =745 

.999625 

.015550 

.022559 

.996201 
-.0  5 60  60 
.0  149  51 

.999018 

-.036607 

-.024969 

.999339 

-*017620 

-.030174 

.999518 

-.008532 

-.029848 


NX 

NY 

NZ 

-.031043 

.281449 

.959074 

-.029216 

.157442 

.987096 

-.028252 

.050769 

.998310 

-.012  613  8 
-.434526 
.900571 

0.000000 

-.447214 

.894427 

0.000000 

-.447214 

.894427 

O.OC-OOOO 

-.447214 

.894427 

-.012880 

-.460010 

.887820 

-.049  532 
-.939127 
-.339980 

-.043145 

-.675158 

-.736411 

-.034875 
-. 44947i 
-.892614 

-.031043 
-.281449 
-• 959074 
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VN 

SIG 


.000000 

. 00  40  83 


. 000000 

. 00  42  54 


. 0 0 0 0 G 0 
.CO  42  49 


. 000030 
• 0 0 U 60 4 


. 000000 
— » w y i i 7 3 


. 00  0 0 00 
.001694 


.uOUOOO 

-.002980 


. 0 0 0 0 0 G 
-.003264 


. u 0 0 0 0 0 

.007805 


. 000000 
. CD  66 28 


. C-GOCuO 
* 005602 


.030GUI 
.20  5201 


PROGRAM  BO  XC 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
B E 0 F 0 R D y MASSACHUSETTS 


BODY  ID.  TEST 

TEST  BODY 


X-FLOW 


M 

NPX 

NPY 

NPZ 

V T 
VTSQ 
CP 

VX 
\l  Y 

41 

OCX 

OCY 

DCZ 

NX 

NY 

NZ 

16 

25 S H 16 
-.650001 
-.940749 

1.174210 
1. 37  87  69 
-.378769 

1.173709 
-.005058 
-.  U33935 

.999573 
-.004308 
-. 028900 

-.029218 
-.157442 
-« 987C96 

17 

-.250002 
2 00  00  3 
-.982825 

1.  1770  71 
1.38  54  97 
-. 3854 97 

1.176631 
-.  3 3213  2 
-.033157 

.999601 
-.0018 54 
-.028194 

-.026252 

-.350789 

-.998310 

18 

-.  25  C C 02 
* 20  0 0 00 
-.93  28  25 

1.177939 

1.367539 

-.387539 

1.177467 
-.90  Ul54 
-.033330 

. 9996C0 
-.000131 
-.028295 

-.028252 
.3  50  765 
-.998313 

19 

-.250016 
.600001 
-. 9*07  49 

1. 17693S 
1. 385288 
-.365288 

1.176476 
. 00  223  4 
-.334459 

.999569 
« GO  1940 
-.0  292  78 

-.  3 292ie 
• 1 57  442 
-.987096 

20 

249537 

.998756 

-.850523 

1.174127 
1. 378574 
-.376574 

1.173553 
. 90  615  2 
-.036176 

.999511 
.005248 
-. c 3 ceii 

-.031043 

.281449 

-.959074 

21 

-.249169 
1.3953 16 
-. 692774 

1. 169520 
1.367777 
-.367777 

1.168830 
.014296 
-• 038458 

* 999384 
.012223 
-.932892 

- * 0 o-+6  75 
.449471 
-.892614 

22 

-. 249477 
1.726269 
-.470688 

1.163098 
1. 352757 
-.352797 

1.162C13 
. 032273 
-.338492 

.999367 
.0  277  48 
-.C33C94 

-.0*43145 

.675158 

-.736411 

23 

-.248068 
1.9233  92 
-.174052 

1.157588 

1.34U010 

-.340010 

1.156167 

.054224 

-.018660 

.998772 
. 1 4 66  42 

-.016120 

-.049532 
.939127 
-.  33  998C 

1 

-. 743334 
1.874150 
. 161626 

1. 160425 
1.346587 
-.346587 

1.146655 

.168433 

.057936 

.988142 
.145199 
.0499  27 

-.153543 
. 934141 
. 322166 

2 

-. 747389 
1.690281 
. 444215 

1.166631 
1.361028 
-. 361028 

1.15633  5 
.104939 
.113650 

.991149 
.0  89994 
.097597 

-.132740 

.683173 

.716391 

3 

-. 747752 
1. 373892 
. 663304 

1. 171864 
1. 373264 
-. 373264 

1.164831 
. 05  1939 
.116710 

.9940  42 
.044296 
.099593 

-.1 C8809 
.457325 
.682618 

4 

-.747958 
.992572 
. 819383 

1.  173024 
1. 375986 
-. 375986 

1.167569 
• 0 2013  0 
.111176 

• 99  53  50 
.017212 
.09  <47  77 

-.095703 

.288525 

.952677 

ROioour  fjWf!  I 


CE  associates 

ACHUSETTS 


PAGE  25 


OCX 

NX 

VN 

OCY 

NY 

SIG 

DCZ 

NZ 

.999573 

-.0  2921c 

.*>000*0 

- • 0 0 A3  0 8 

-.157  442 

. wO  50  76 

-. £28990 

-. 987C96 

.9996*1 

-.C26252 

. n 3 u 0 C 0 

- » 0 0 18  54 

-.050769 

. £0 4927 

-.026194 

- . 99o  3iC 

• 9996CC 

-.028252 

. liCOGlO 

“ * OOCl 31 

• 3 5 J 78  9 

. 03 47c 6 

-• £ 26295 

-.996310 

.999569 

-.  3 29218 

» lIOa'JO 

. 00  19 AO 

• 1 57  4 42 

. u is  4 6 1 3 

-.029278 

-.987096 

.999511 

-.0310  43 

. C-0G0C0 

.005248 

* 26i  -449 

.£04347 

-. C3C611 

-■•959074 

.996384 

- . 0 0*6  75 

. 3 u C 0 - 0 

.012223 

.449471 

. £04212 

-.932692 

-.892614 

.999067 

-.£*3145 

. C 0 0 0 2 0 

.0  277  48 

.675158 

. 4566 

-.C  3 3X94 

-.736411 

.998772 

-.049532 

. CCCO.O 

• t 4 66  42 

.939127 

.004967 

-.016120 

-.  33  99 8C 

.988142 

-,.153543 

GSGuSQ 

.145199 

.934141 

. 015792 

.049927 

.322168 

.991149 

-.132740 

- . £ 0 0 0 J Q 

.089994 

.683173 

. £134  *5 

.097597 

.7lo091 

.9940  42 

-.1 C68G9 

-. 000000 

.0  44296 

.457325 

. £10693 

.099593 

.882618 

.995350 

-.095703 

- . u 0 0 Ci  0 0 

.017212 

.288525 

. uO  96  21 

*094777 

.952677 

*cmoourcRAf,. 


t 


PROGRAM  80  XC 
BODV  io.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 

TEST  900 Y 


N M 

NPX 

NPY 

MPZ 

VT 

tfTSQ 

CF 

5 5 

-.  7500  55 
. 6300 09 
. 910463 

1. 170769 
1.370699 
-. 370699 

6 

750025 
. 2C0023 
» 9539  24 

1. 161565 
1.349234 
-.349234 

7 

— » 7 <+8  5 51 
199961 
. 332279 

1.  145511 
1.3121 55 
-.312195 

8 

-•75 CD  00 
6 30  C 00 
. 79  CO  00 

1.124601 

1.264728 

-.264728 

9 

-.750003 
-1.  30 0 9 CO 
. 500000 

1.1148  70 
1. 242934 
-.242934 

10 

-•  75003C 
-1.  400009 
.300900 

1.115443 
1. 244214 
-.244214 

11 

-.  741375 
-1. 764760 
. 190234 

1. 132611 
1.  28  28C7 
-.282807 

12 

-. 743334 
-1.874153 
-. 161626 

1.132236 
1. 261958 
281959 

13 

-.747389 
-1.690281 
-. 444215 

1. 151358 
1.32  5626 
-.325626 

14 

- « 7 4 7 7 52 
-1. 373392 
-.  66333-+ 

1.  1 652  86 
1.357891 
-.357891 

15 

-. 747958 
-.992572 
-. 819383 

1. 1720 15 
1.375964 
-.375964 

16 

-.750055 
-. 600009 
“.  910468 

1. 177768 
1.387138 
-.387138 

X-FLOW 


VX 

MM 

Ml 

OCX 

OCY 

DCZ 

NX 

NY 

HZ 

1.165617 
“• 0^4751 
.10 7457 

.995771 
-. GO  40 67 
.091784 

-.089915 
. 16202C 
.962682 

1. 156220 
-.041693 
.103132 

.995398 
-.0  360  57 
• C 8c7  87 

-.0568  51 
.052106 
. 99435  6 

1. 143639 
-.060743 
.02  4443 

. 998365 
-.0530  27 
.021335 

-.03^25 

-.379642 

.924185 

1.124251 

-.325032 

-.312546 

.999689 
- . C 22312 
-.0111 56 

0.0 

-.447214 

.894427 

1. 114851 
-.  3 0 4 C 2 8 
-.002014 

.995992 

-.003613 

-.001807 

0.0  C0-30G 
-.447214 
.894427 

1.115255 

.018316 

.309158 

.999831 

.016420 

.008210 

0.0G3GQQ 

-.447214 

.854427 

1.130300 
. 01762  4 
. 07  0123 

.997560 

.015560 

.061913 

-.Oh* 355 
-.519163 
. 85349  6 

1.115714 
-.191336 
• 0 23044 

. 985408 
-.168590 
.020353 

-.153  543 

-.934141 

-.322188 

1.140735 

-.126978 

-.090072 

.99  0816 
-.110286 
-• G76231 

-.132740 

-.683173 

-.718091 

1.158299 

-.069531 

-.1067+1 

• 9 940  0 4 

-.059712 

-.091601 

-.138849 
-.457325 
-.88261  £ 

1.167615 
-.038331 
-.  10  5695 

. 995397 
-.032652 
”.090106 

-.095703 

-’*•288525 

-.952677 

1.172932 
020972 
-.10  3671 

.995944 
-. C178C7 
-.086193 

-.089915 
-.1 6202C 
-.982682 

Fotoour  j 


ll  \v 


35771 
140  67 
317  84 


-.089915 

.162020 

.982682 


000030 
!?0  93>+4 


35398 
360  57 
187  87 

-.066851 
.052106 
. 99435  8 

— . V 6 L G Q 
. C09411 

383  65 
530  27 
21335 

- • 03  *9  25 
-.379842 
.92418  ? 

. i‘  0 0 0 u 0 
- . <j(i  C4I6 

99689 
22312 
111  56 

0.0  I.00UC 
-.447214 
.894427 

.6001*0 

-.307092 

95992 

B3613 

B1807 

O.OCJOOO 

-.447214 

.894427 

. -OoO.O 
-.  00  7455 

99831 
|64  20 
06210 

[ 

0.000060 

-.447214 

.854427 

. OOUOQO 
-o0u90C0 

£7960 

15560 

61913 

\ 

-.044355 

-.519160 

.85349? 

. C 0 0 0 9 0 
-.005237 

65408 

^8990 

20353 

-.153543 

-.934141 

-.322188 

— . 030000 
.022441 

90016 

40266 

|6231 

140  0 4 
59712 
|l6  01 

B53  97 
32652 
B0106 

1 59  44 
178  C 7 
36193 


-.132740  -• GQGOuO 

-.683173  .61o214 

-.718091 

-.1388  09  - • u 0 C Q J 0 

-.457325  . u 1 4426 

-.882618 

-.09570,3  -.030000 

-.288525  .012115 

-.952677 

-.069915  . u 0 Q li u 0 

- . 1 620  2 C .011020 

-.982682 


pfnonurmt 


PROGRAM  BO  XC 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEOFORO,  MASSACHUSETTS 


BODY  ID.  TEST 

TEST  BODY 


X-FLOW 


N M 

NPX 

NPY 

NPZ 

vr 

VTSQ 

CP 

VX 

VY 

Ml 

OCX 

OCY 

DCZ 

NX 

NY 

NZ 

5 17 

750005 
-.20C003 
-.  953924 

1.180390 
1. 393322 
-.3933  22 

1.175928 
-.00781*+ 
-.10  2249 

.996219 
-.  006620 
-.  086623 

— *066851 
-.0  5210  6 
-•9S*+858 

18 

-. 750005 
.200003 
-.953924 

io 181278 
1.395417 
-.395417 

1.176812 
. 00  3321 
-.102562 

.996220 
. 002812 
-.086823 

-.G86e51 
.052106 
-.  99-+S56 

19 

-. 750055 
.600009 
-. 916468 

1.180606 

1.393835 

-.393835 

1.175825 
. 01573  7 
-.104938 

.995949 

.013304 

-.088936 

-.069915 
. 162020 
-.982682 

20 

-.  7*7 958 
.992572 
-.819383 

1.  178349 
1.388506 
-.388506 

1.17  2939 
.031346 
-.108337 

.995409 

.026601 

-.091940 

- • 095  7 y 3 
.288525 
-.952677 

21 

-. 747752 
1.  373892 
- • 663304 

1.  174632 
1.379760 
-.  379760 

1.167657 

.058416 

-.113630 

.9940  63 
,049732 
-.096779 

-.1 C6809 
.45732  E 
-.862616 

22 

-.747389 

1.690281 

-.444215 

1.167891 

1. 363969 
-.363969 

1.157552 
. 108970 
-.110334 

. 991148 
. C93305 
-.094447 

-.182740 
.663173 
-.7  16  091 

23 

-.743334 
i. 8*4150 
-.161626 

1.160774 
1.347 3 96 
-.  3473  96 

1.146999 
.17  0110 
-.053438 

. 988133 
.146548 
-.0  4 60  11 

-.153543 
. 93-+141 
-.322186 

6 1 

-1. 229655 
1. 773614 
.134912 

1. 132362 
1. 282243 
-.282243 

1. 090628 
.291159 
.086937 

.963321 
. 257134 
.07  6775 

-.266347 

,921485 

.230799 

2 

-1. 245329 
1. 614691 
.336555 

1.144713 
1. 310369 
-.310369 

1.111521 

.197828 

.189089 

.971303 

.172819 

.165185 

-.239165 
.7  G2123 
.670724 

3 

-1.  245368 
1. 329324 
.600627 

1. 15  8983 
1. 343242 
-.343242 

1.136725 
• 10  28  94 
.201273 

.980795 

.086779 

.173663 

-.194936 

.475316 

.857946 

4 

-1. 245783 
.979004 
.753512 

1. 165866 
1.  35  9244 
-.359244 

1.148618 

.048514 

.193825 

.985205 
. 041612 
.166250 

-.170981 

.304663 

.936981 

5 

-1. 250 1 20 
.600034 
,846449 

1.16  95  61 
1. 367873 
-.367873 

1.154226 
.00  6877 
.188649 

. 986888 
• 00  5880 
. 161299 

-.159881 
. 172638 
.971923 

f 


«*.a»jar  f rm« 


ISOCIATES 

IETTS 


OCX 

OCY 

DCZ 

* .596219 
-.0  0 6620 
-.  08  6623 

.996220 
•002812 
-.  086823 

i .995949 
f .013304 
-.088936 

.995409 
i .026601 
-.091940 

.994063 
| • 0 497  32 
r. 09  6779 

\ 

.991148 
f .093305 
■••094447 

r 

r 

| . 588133 
f .14  6548 
•.046011 

‘.9  6 33  21 
.257134 
.076775 

.971003 
.172819 
|. 165185 

I 

1.9  80795 
.088779 
.173663 

.985205 
• 041612 
.16  62  50 

^986888 
|.  00  5880 
j.  161299 


NX 

NY 

NZ 

-.086851 
-.0  5210  6 
-.99*358 

-.086851 

.052106 

-.99*658 

-.089915 

.162020 

-.982682 

-.095703 

.288525 

-.952677 

-.1 C68C9 
.45732  5 
-.882618 

-.132740 

.663173 

-.716091 

-.1  53  543 
. 93*141 
-.322186 

-.268347 

.921485 

.230799 

-.  239'1!  65 
.7  02122 
.670724 

-.19*935 

.475316 

.857946 

-.170981 
• 3 J 4 66  3 
.936981 

-.159881 
. 172638 
.971923 
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MU 

SIG 


. 0 0 0 0 0 0 
.410240 


. C0G0C0 
.009850 


. 0 0 u 0 6 0 
. 009820 


— .40  0 0 w C 
v '‘0025 


-.GOIGwO 

.011212 


.00 00  CO 
. 013668 


CO  0100 
. 015688 


- • u 0 i 0 v 0 
. u 2 7232 


— .uLOCuO 
.124419 


- . c y o o o 

.019161 


-. u 03000 
.016512 


-.  00  00  lO 
. 015703 


'S 


PROGRAM  BO  XC 
BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 

TEST  BODY 


N M 

NPX 

NPY 

NPZ 

VT 

VTSQ 

CP 

6 6 

-1. 250012 
.200010 
. 893193 

1.170850 
1. 370089 
-.370889 

7 

-1.246100 
-. 199835 
.852339 

1.174562 
1«  379597 
-.379597 

8 

-1.250000 
-.  6000  00 
.700000 

1.154940 
1. 333886 
-.  3338  86 

9 

-1. 250000 

-i. ocooco 

.500000 

1.138016 
1.  2950  61 
-.295081 

10 

-1. 2500  00 
-1. 400000 
• 3000  CO 

1.  1438  <2 
1. 308488 
-.308488 

11 

-1. 225923 
-1.707445 

t?  100626 

1.161360 
1.  348756 
-.348756 

12 

-1.  229655 
-1. 773614 
-.  134912 

1.118520 
1.2516  (8 
-.  2510  88 

13 

-1. 245329 
-1. 614691 
-.386555 

1. 130909 
1. 278956 
-.278956 

14 

-1. 245066 
-1. 329324 
-.600627 

1.151328 
1.32  55  56 
-.325556 

15 

-1.245783 

-.979304 

-.753512 

1.162543 
1. 351506 
-.3515C6 

16 

-1.  250 1 20 
-.600034 
- » 8464  49 

1. 169385 
1. 367462 
-.367462 

17 

-1.250012 
-. 230013 
-.893198 

1.172927 

1.375757 

“.375757 

X-FLOW 


\/X 
\f  Y 
VZ 

OCX 

OCY 

DCZ 

NX 

NY 

NZ 

1.155253 
-.053638 
.18  2761 

. 98  6679 
-.045811 
.156093 

-.153515 

.055250 

.986601 

1.168731 

-.096936 

.064470 

.9950  78 
-.082504 
.054888 

-.074106 

-.251846 

.964926 

1.154031 

-.341635 

-.020818 

.999187 
-.036050 
-.0160  25 

0.000000 
-»4h7214 
. 8S4427 

1.137954 
-. 009750 
-.004875 

.999954 

-.006568 

-.004284 

0.000000 
- • 447214 
.89^427 

1.143431 

.029956 

.014978 

.999571 
. 0 26188 
.013094 

C • 0 i.  0 0 0 C 
- • 4472 1 k 
.894427 

1.150415 
-.011041 
. 158631 

.990576 
-.009507 
. 136634 

-.105654 

-.667853 

.718119 

1.369951 
-.32  36  0 0 
.039452 

. 956586 
-.289310 
352  54 

-«  268347 
-.921489 
-.200799 

1.097016 

-.230259 

-.149950 

.970030 

-.203614 

-.132601 

-.239065 
-.7  02123 
-.670  724 

1.129039 

-.127739 

-.185734 

.980641 
-. 110993 
-.161321 

-.194936 

-.475316 

-.857948 

1.  145354 
-.072753 
-.165350 

.985223 
-.062581 
-. 159435 

-.170981 
-.3  C4663 
-.936961 

1.154316 

-.040457 

-.162699 

.987114 
-.034597 
-.  156235 

-.159881 

-.172636 

-.971923 

1.159016 

-.014301 

-.179542 

. 988140 
-.012192 
-.1530  72 

-.153515 

-.055250 

-.966601 

mOQUT  i 


PAGE 


26 


NX 

NY 

NZ 


-.153515 
• 0 5 5 2 5 0 
. 986601 

-.074106 

-.251846 

.964926 

0.0  00000 
- • 4h  72 14 
.894427 


o.oodoao 

-.447214 

.89-*427 


C.  Os.  JO  30 
-.447214 
. 894427 

-.105654 

-.667853 

.718119 

-.266347 
*--.92148  9 
-.280799 


-.239065 
-.7  02123 
-.670  724 

-.194936 

-.475316 

-.857948 

-.170981 
-.3 C 4683 
-.935981 

- .159881 
-.172638 
-.971923 

-.153515 

-.055250 

-.986601 


VN 

SIG 


-.GO  00  C 0 
• C- 15444 


. ouococ 

. uOtO  59 


. bSOOGQ 
-.013633 


. uOOOL'O 
-.01 3916 


. OOUOCO 
-.016569 


. C J 0 0 C 0 
-. GQ2403 


. GOGO  30 
.036006 


-. COOGuO 
. 031398 


. 6 0 Q 0 b 0 
. 02  42  87 


. CO  GOOD 
. 02 U 145 


-.000800 

.016139 


-. 00  0 uGO 
. 016626 


****** 


PROGRAM  BO XC 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


BODY  ID,  TEST 


TEST  BODY 


X-FLOW 


M 

NPX 

V T 

tfX 

OCX 

NX 

NPY 

VTSQ 

V Y 

OCY 

NY 

NPZ 

CP 

V Z 

OCZ 

NZ 

18 

-1.250012 

1*173694 

1.159779 

.586144 

-.153515 

.200013 

1.377557 

.027633 

.006552 

.055250 

-.893198 

-.377557 

-.180031 

-.153388 

-.966601 

19 

-1.250120 

1.171902 

i. 156827 

.987136 

-.159881 

.600034 

1. 373354 

.032565 

.027788 

.172638 

-.846449 

-.373354 

-.184514 

-.  157448 

-.971923 

20 

-1.245783 

1.167332 

1.150142 

,985274 

-.170981 

.979004 

1.3626  63 

.062430 

.053481 

.304683 

-.753512 

-.362663 

-.189579 

-.162403 

-.936981 

21 

-1. 245063 

1. 155668 

1.137419 

.980815 

-.194936 

1.329324 

1.344829 

.111134 

.0958  76 

.475316 

-.  600627 

-.344829 

-.196837 

-.169736 

-.857946 

22 

-1.245329 

1.144845 

1. 11162/ 

• 970984 

-.239065 

1.614691 

1.310671 

.202859 

.177193 

.702123 

-.386555 

-.310671 

-.183850 

-.160598 

-.670724 

23 

-1. 229655 

1. 132343 

1.090732 

.9632  96 

-.268347 

1.773614 

1.  28  2201 

.293104 

. 2568  46 

• 9 2 i A 6 5 

-.134912 

-.282201 

-.080543 

-. 071127 

-.280799 

1 

-1. 699678 

1. 071753 

. 975394 

.9100  58 

-.414479 

1.611365 

1. 148740 

,431871 

.4029  43 

. 86520  2 

. 096576 

-. 148740 

.104935 

.097113 

. 2112h4 

2 

-1. 733772 

1.  092781 

1.014192 

.92  60  83 

-.372374 

1. 484752 

1.194171 

.318158 

. 291155 

.725701 

.297994 

-.194171 

.253683 

.232145 

.578529 

3 

-1.738932 

1.121965 

1.066664 

.950711 

- a 3 10024 

1.250730 

1.25  £605 

.179768 

.160226 

.507279 

.497910 

-.25  6805 

.297852 

.265474 

• 8 U4U  8 5 

A 

-1.738266 

1. 142165 

1.099857 

.962958 

-.269527 

.954054 

1. 304542 

.097975 

. 085780 

.335023 

. 644837 

-.304542 

.291938 

. 255644 

.902837 

5 

-1.  750276 

1.158627 

1.12169  0 

.966034 

-.  2 50  22  < 

. 600104 

1. 342417 

,33  79}  6 

, 032716 

.193980 

. 739306 

-.342417 

.288124 

. 248677 

.948555 

6 

-1.  7500  25 

1.174333 

1.139526 

.970360 

-.237694 

, 200030 

1.  379059 

-.034967 

-.029776 

• 0 61  556 

.792992 

-.3790  59 

.281632 

. 235823 

•969388 

PAGE  29 


iSSOCI  AT  ES 
ISETTS 


OCX 

OCT 

OCZ 

NX 

NT 

NZ 

VN 

SIG 

• 9 86144 

• 00  65  52 
.153368 

-.153515 

.055250 

-.966601 

-.000000 
• 01  60  44 

• 987136 
.0  27788 
• 157448 

-.159881 
. 172638 
-.971923 

-.000030 

.016340 

.985274 
. 053481 
. 162403 

-.170981 
. 3 Oh 683 
-.936981 

-.000000 

.017048 

.980815 
. 095876 
. 169736 

-.19*936 

.475316 

-.857948 

.000000 

.019582 

• 9 7 G 9 8 4 
.177193 
.160598 

-.239065 

.702123 

-.670724 

-.000800 

•024706 

.9632  96 
258846 
» 071127 

-.268347 

.921489 

-.280799 

-•CCGOGO 
. 027344 

.9100  58 
. 402943 
.097113 

-.414479 
.88520  c 
. 2112*4 

-.000030 
. 041810 

. 9 260  83 
> 2 91155 
.232145 

-.372374 

.725701 

.578529 

-.000000 
. 03  78  41 

.950711 

.160226 

.265474 

-.3 10024 
.507279 
. 8 u*0  85 

-.  8(J0Uu0 
. 030138 

.962958 
G 8 57  80 
255644 

-.269527 

.335023 

.902837 

-.000000 
. 025359 

966034 

032716 

248677 

-.25022  < 
.193980 
.948555 

-.000030 
. 023756 

9 7 03 60 
0 29776 
239823 

-.237594 
.061 556 
.969388 

-.  0000  JO 
. 022518 

*«T5  stu/r  fF w* 


PROGRAM  BO  XC 
BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


PAGE 


cn 

O 


TEST  BODY 


X-FLOW 


M 

NPX 

V T 

vx 

OCX 

NX 

VN 

NPY 

V TSQ 

V Y 

DCY 

NY 

SIG 

NPZ 

CP 

V Z 

DCZ 

NZ 

7 

-1.749550 

1. 205607 

1.178638 

.977672 

-.197278 

. ij  0 0 0 i!  0 

-.199759 

1. 453488 

-.115921 

-.0961  52 

-.113863 

.015226 

. 782469 

-.453488 

.225268 

.186851 

• 9 73  73  A 

8 

-1. 747311 

1.230972 

1.225355 

.995437 

-.075980 

« UtJQDOa 

-.  599857 

1. 515251 

-.100709 

-.081813 

-.368319 

-.008877 

.679777 

-.  515291 

.060447 

.049105 

.926589 

9 

-1. 750000 

1.  2273  80 

1.  227221 

.999871 

0.000000 

. 000300 

-1.90  00  00 

1.  50  64  61 

-.017632 

-.014365 

-.44723.4 

- , U2  45 19 

.500000 

-.60  6461 

-.008816 

-.007183 

.894427 

10 

-1. 720409 

1.  218753 

1.215655 

.997458 

-.050629 

.300330 

-1.352829 

1.485359 

.022100 

.018133 

- . 496741 

-.016933 

. 314114 

-.485359 

.083939 

o u 669 14 

.866409 

11 

-1.762537 

1. 166416 

1.083066 

.926542 

-.348626 

-•OOGCCQ 

-1. 550513 

1. 360526 

-.29  2335 

-.250627 

-.842191 

.334454 

.113943 

-.360526 

.31942  8 

.2738  54 

.411307 

12 

-1.699678 

1,  081512 

.977211 

.903560 

-.414479 

C.  0033  00 

-1. 611865 

1.165668 

-.462855 

-.4279  70 

-.685202 

• G4  956  2 

-.  096576 

-.165668 

.022136 

.020514 

-.211244 

13 

-1. 733772 

1.086144 

1. 006258 

. 926424 

-.372374 

-•ttJQOSO 

-1. 484752 

1.179709 

-.356337 

-.326121 

-.725701 

. 045341 

-.  297993 

-.175709 

-.280604 

-.184693 

-.578529 

14 

-1. 738932 

1.114650 

1.059335 

.950374 

-.313024 

-.oouooo 

-1.  250  730 

1.242445 

-.210056 

-.188450 

-.507275 

. u 3 5 9 C 1 

-.497910 

-.242445 

-.275918 

-.247538 

-.804085 

15 

-1.738266 

1.136204 

1.093986 

• 9 6 26  44 

'■'•2  69527 

- . u U u U 0 0 

-.954054 

1.290960 

-.125252 

-.110237 

-.335323 

,029572 

-. 644837 

-.29096 U 

-.  28  0114 

-.246534 

-.9  £28  37 

16 

-1.  750276 

1. 151282 

1.114573 

.968114 

-.253229 

-.OOUOOO 

-.600104 

1. 325451 

-.071497 

-.062102 

-.193980 

.026698 

-.739306 

-.  3254  51 

-.279403 

-.242689 

-.948555 

17 

-1.  7500  25 

1.158015 

1.12  4810 

.971326 

-.237694 

- . 0 U 0 0 u 0 

-.290030 

1.  3409  58 

-.023555 

-.020350 

-.361556 

.324180 

-. 792992 

-.340958 

-.  274307 

-.236877 

-.969386 

18 

-1. 7500  25 

1. 158514 

1.12533  8 

.971338 

-.237694 

-.OflUOCO 

. 29  CO  30 

1.342154 

.015033 

.013019 

• 0 6 1 5 S c 

•323503 

-.792992 

-.342154 

-.274958 

-.237345 

-.969366 

PROGRAM  80  XC 
BODY  ID.  TEST 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


PAGE  3 i 


TEST  BODY 


X-FLOW 


M 

NPX 

M T 

VX 

OCX 

NX 

VN 

NPY 

VTSQ 

V Y 

OCY 

NY 

SIG 

NPZ 

CP 

VZ 

OCZ 

NZ 

19 

-1.  750276 

1. 152916 

1.116233 

.968183 

-.250229 

-.000030 

.600104 

1.329215 

•060952 

.052876 

• 193980 

.024579 

-.739306 

-.329215 

-.281996 

-.244593 

-.948555 

20 

-1.738266 

1. 139416 

1.097239 

.962984 

-.269527 

-.oeaoeo 

.954054 

1. 298269 

.11150  3 

.0  978  59 

.335023 

.026002 

-.644837 

-.298269 

-.286136 

-.251169 

-.902837 

21 

-1.738932 

1.123131 

1.064935 

. 950724 

-.310024 

-.000000 

1.250730 

1. 254694 

.188418 

.168210 

.537279 

. 030634 

-.497910 

-.254654 

-.291729 

-. 26C442 

-.8  2408 5 

22 

-1.733772 

1. 091523 

1.012999 

.928352 

-.372374 

-.000000 

1.464752 

1.191423 

.323355 

.296251 

.725701 

. 038158 

-.297994 

-.191423 

-.246391 

-.225731 

-.578529 

23 

-1.699678 

1.071357 

.97  497  3 

.9100  36 

-.414479 

-.GOQCOO 

1. 611865 

1. 147806 

.43  369  6 

.404890 

.88520  2 

.041913 

-.096576 

-.147806 

-.095654 

-.389283 

-♦  211244 

*****  ******* 

************ 

************ 

1 

-2.218024 

.9530  e9 

.763560 

.801143 

-.597981 

-. GO  30  uO 

1. 240723 

. 908378 

. 521127 

. 546777 

.747834 

•365691 

. 149617 

. 091622 

. 231907 

• 2 433  22 

.288382 

2 

-2.  214445 

1.078634 

.975937 

.904762 

-.425912 

- . Ou  u 0 GO 

.990269 

1. 163451 

.237422 

.223114 

.463200 

. u 3 9 1 6 8 

.411287 

-.163451 

. 39  333  4 

.364631 

. 777203 

3 

-2.250969 

1.  127743 

1.034668 

.917468 

-.397801 

-•uOQOuQ 

. 600392 

1. 271805 

.117331 

.104014 

.246251 

.136269 

. 560  379 

-.271605 

.433021 

.383971 

. 883807 

4 

-2. 250072 

1.160877 

1.079656 

.9300  43 

-.366809 

-.000000 

.200101 

1. 347636 

.007698 

. 0 0 65 54 

.075569 

. 03 2128 

. 632913 

-.347636 

.42  643  6 

.367391 

.927222 

5 

-2.  25.0072 

1. 187823 

1 » 104142 

.929551 

-.366809 

-.000000 

-.200101 

1. 410923 

-.  082736 

-.069654 

-.075569 

.032261 

.632913 

-.410923 

.430056 

. 3620  54 

.927222 

6 

-2. 250383 

1.215486 

U 127038 

.927273 

-.372805 

- . OCiiu  jO 

-.600126 

1.477407 

-.178891 

-.147176 

-.278586 

.031772 

. 553499 

-.477407 

c 418424 

.344244 

.885102 

■i 


PROGRAM  BQXC 
BODY  ID.  TEST 


cn 

ro 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


TEST  BODY 


X-FLOW 


PAGE 


32 


M 

NPX 

NPY 

NPZ 

VT 

VTSQ 

CP 

VX 

VY 

UZ 

OCX 

DCY 

OGZ 

NX 

NY 

NZ 

V'N 

SIG  ■ 

7 

-2.  218355 
-.956945 
. 416059 

1*  20665G 
1. 454557 
-.454557 

1.  10  7315 
-.24  6493 
.409454 

.918133 
-.20  43  80 
•339500 

-.396212 

-.458473 

.795499 

-.  DOOOC0 
. 033963 

3 

-2.212088 

-1.209729 

.166619 

1.0  8.3768 
1. 174554 
-• 174554 

.912264 

-.477735 

.337711 

(.841752 

-.440855 

.311608 

-.537231 
- .740960 
.402941 

-.000000 

•058742 

g 

-2.  2180  24 
-1.240723 
149617 

. 965398 
. 931993 
.06  60  07 

.77  273  4 
-.555522 
-.161841 

.800483 
~.  57  5433 
-.1676  42 

-.597981 

-.747834 

-.238382 

-. 000000 
• u 6 97  24 

10 

-2. 214445 
-.990269 
-.411287 

1.074426 

1.154391 

-.154391 

.971432 

-.269128 

-.371939 

.904113 

-.250485 

-.346175 

-.*+25912 

-.463230 

-.777203 

.GQ00C0 

.043639 

11 

-2. 250969 
-.600392 
-. 560379 

1.117305 
1.248370 
-. 24S370 

1.  024831 
-.145033 
-.420854 

.917209 

-.129804 

-.376669 

-.397801 

-.246251 

-.883807 

-.000000 

.039174 

12 

-2.250074 

-.200104 

-.632837 

1.138957 

1.297223 

-.297223 

1.059640 
-.042453 
-.41543  2 

•930360 

-.037274 

-.364748 

-.366578 

-.075231 

-',927341 

-• 5U00C6 
.033966 

13 

-2.250074 
. 200104 
-. 632337 

1.  139033 
1.297395 
-.297395 

1.059741 
. 332406 
-.416237 

. 930387 
.028451 
-.  3654  74 

-.366576 

.075231 

-.927341 

- • 00  GO 3 Q 
. 033347 

14 

-2. 250969 
. 600392 
-.  560  379 

1.11  74  66 
1.248774 
-. 248774 

1.025191 

.131954 

-.424672 

.917408 
.118082 
-.  3800  25 

-.397801 

.246251 

-.883807 

. l*  0 0 0 U 0 
.037211 

15 

-2. 214445 
. 990269 
-.411237 

1.073361 
1. 152146 
-.152146 

.971068 
.246456 
-.38  5268 

.9046  82 
.229607 
-.35  89  30 

-.425912 

•463200 

-.777203 

. 0 0 0 0 D 0 
.039860 

16 

-2,  2160  24 
1. 24G723 
-o 149617 

.950934 
. 904276 
. 095724 

.76  2055 
.524156 
-.  22090  4 

.801375 

.551212 

-.232302 

-.597981 
.747834 
— .288382 

-.COuGOQ 
. 06  5833 

♦ ******* 

************ 

************ 

1 

-2.  626333 
. 68  7692 
. 149145 

.660120 
. 435759 
. 564241 

.326828 

.468030 

.331497 

.495104 
.709007 
. 50  21  77 

-.868756 

.411733 

.275208 

. OOGGtO 
. lii  4713 

PROGRAM  BO XC 


ATMOSPHERIC  SCIENCE  ASSOCIATES 
BEDFORD,  MASSACHUSETTS 


BODY  10.  TEST 


PAGE 


TEST  BODY 


N 


9 


cn 

co 


X-FLOW 


M 

NPX 

VT 

VX 

DCX 

NX 

VN 

NPY 

YTSQ 

\l  Y 

DCY 

NY 

SIG 

NPZ 

CP 

VZ 

OCZ 

NZ 

2 

-2.62915C 

.835434 

.526675 

. 63C421 

-.776209 

-.000000 

. 434170 

• 697949 

.195323 

.233798 

. 200002 

. 088646 

. 336208 

. 3020  51 

.618394 

.740208 

.597912 

3 

-2.  635472 

• 675817 

.591517 

.67  2319 

-.740175 

.000000 

. 141262 

. 774078 

.046040 

. 052329 

.062764 

.086147 

.389779 

. 225922 

.649665 

.738410 

.669478 

4 

-2.  635472 

.8907  66 

.593838 

. 672273 

-.740175 

-.000000 

-.141262 

. 793463 

-.379632 

-.089465 

-.062764 

« 0864uQ 

.389779 

.206537 

. 654634 

. 734878 

.669478 

5 

-2.629150 

. 869668 

.548216 

.630376 

-.776209 

• uu  0 0 G 0 

-.  434170 

.756323 

-.228735 

-.263014 

-.2  00002 

. 089504 

. 336208 

. 243677 

.63  513  5 

. 730376 

.597912 

6 

-2. 626833 

.703717 

.348373 

.495047 

-.868756 

• OOttfiSQ 

-.687692 

.49  52,18 

-.497144 

-.706454 

-.411733 

. 10  60  41 

. 1 45^145 

. 50  47  82 

.355953 

.505816 

.275208 

7 

-2.626333 

.664268 

.328750 

.494906 

-.868756 

. 1-00000 

-.687692 

• 441252 

-.493026 

-.742209 

-.411733 

. 106522 

-. 149145 

. 558748 

-.300168 

-.451379 

-.27520  € 

8 

-2.  629150 

.620631 

. 51723  T 

. 6303 52 

-.776209 

. £.000**0 

-.434170 

. 673435 

-.217408 

-.  264928 

-.206002 

, 090273 

-. 336208 

.326565 

-.598819 

-.729705 

-.597912 

9 

-2. 635472 

. 657  2 80 

.576419 

. 672381 

-. 7*0175 

-.000000 

-.141262 

.754930 

-.067674 

-.076941 

-.062  764 

.287213 

-.389779 

. 265070 

-.630944 

-.735984 

-.669476 

ID 

-2.  635472 

. 856967 

.576233 

.672410 

-.740175 

-.000000 

. 141262 

. 7343  <2 

.056429 

.065847 

.062764 

.086864 

-.369779 

. 265608 

-.631793 

-.7372  44 

-.6  69  4 78 

11 

-2.629150 

. 819951 

.516958 

. 630475 

-.776209 

.000000 

.434170 

.672319 

. 20  3153 

.2477  63 

.200002 

. 08  91 6 4 

-.336208 

• 32  76  (1 

-. 603160 

-.735605 

-.597912 

12 

-2.626333 

. 653104 

.323443 

. 4952  40 

-.868756 

- » 0 0 0 0 U 0 

. 637692 

. 426545 

.471156 

.721410 

.411733 

. 104895 

-.  3 49145 

• 573455 

-.316135 

-.484050 

-.27520  £ 

1 

ft 

* 


************ 


*******  ***** 


************ 


LEAVING  FRINT1 


LEAVING  MAIN 


cn 

4^ 


FLOPNT 


BODY  IDENTIFIER  IS  TEST  NUMBER  CF  SYMMETRY  PL ANES=  0 


NUMBER  OF  QUADRALA 


<J1 

cn 


FOtOOUT  fFW*  | 


number  of  QUADRAL ATERALS=  169 


MACH  NUMBER-  0« 


- £ 


FLOPNT  RUN  ID  - 

TEST  PROBLEM  WITH  TEST  8CDY 


INPUT  DATA 


INITIAL  X=-4.  500 3E«- 0 0 
INITIAL  Y*  0, 

INITIAL  Z = l.OOOOEfDO 


INCREMENTS  1.0Q03E+D0 
INCREMENT*  0. 
INCREMENT=-5.00CJE-U1 


NUMBER  OF  VALUES*  4 
NUMBER  OF  VALUES*  1 
NUMBER  OF  VALUES*  5 


tn 

cn 


X AXIS  IS  INCREMENTED  FIRST 

Y AXIS  IS  INCREMENTED  THIRD 

Z AXIS  IS  INCREMENTED  SECOND 

* INDICATES  THE  POINT  IS  INSIDE  THE  BODY 


X 

Y 

z 

VX  VY 

V Z 

-4.5000000 

0.0000300 

io  0 000  000 

9.4274E-C1  -1.8463E-03 

3. 122  5E-82 

-3.5000 D 00 

0.0000000 

i.OOOOCOO 

8.9363E-Q1  -5.2665E-03 

1.U830E-41 

-2.5000000 

0.0000000 

1.0000000 

9.8504E-C1  -2 • 1G47E-0  2 

2.8638E-01 

-1.5000000 

0.0000000 

1. coooooo 

1. 1528E+00  -7.720  6E -0  2 

1. 6956E-01 

X 

Y 

z 

VX  VY 

VZ 

-4.5000000 

0.0090000 

.5000000 

9.2693E-01  -1.8687E-03 

2.  0175E-02 

-3.5000000 

0.0000000 

• 5000000 

8.0239E-01  -5. 3770E-03 

1.0116E-01 

INSIDE 

QUAD  179 

12=  1 

ZNP,ROSQ»TSQ,H= 

-8.9149E-02 

2.2821E-31  1.0355  E+ 00  1 

.COOOE-Ol 

INSIDE 

QUAD  18  0 

12=  1 

ZNP,RO  SQ.TSQ. H= 

-3. 5348E-C2 

6. 6282E-3  2 6.7553E-01  1 

• 080  0£- 0 1 

INSIDE 

QUAD  181 

12=  1 

ZNP*ROSQ»TSQ»H= 

-3. 5348E-02 

6. 6282 E- 92  6.7553E-01  1 

. QQOflE-O  1 

INSIDE 

QU AO  182 

12=  1 

ZNP,ROSQ,TSQ,  H= 

-8.9149E-02 

2. 28 2 IE- 0 1 1*  0355E+00  1 

« QQQQE-01 

-2.5000000 

3.0000000 

.5000000 

1.4449  E+00  - 2 • 2 31 4E  - 0 2 

1.2787E-01 

-1.5000  000 

0.0000000 

• 5000000 

1.2122E+00  -6. 2494E-0  2 

3. 9Q98E-0  2 

X 

Y 

z 

VX 

VY 

VZ 

-4.5300000 

0.0000003 

3. 0 COO  000 

9.1975E-01 

-1.7342E-03 

1. 5068E-03 

-3.5000000 

0.0000000 

o.oooocoo 

7 . 3093  E- 01 

-4.  4575E-Q3 

4.6059E-03 

-2.5000000 

0.0000000 

o.oocooco 

1.2744E+00 

-1.3680E-02 

1.8615E-02 

-1.5000000 

0.0000900 

8.0000000 

1.2 164E+00 

-3.0605E-02 

3. 328  8 E- 02 

X Y 

z 

VX 

VY 

VZ 

-4.5000000  0.0009000 

-.  5000000 

9.2565E-01 

-1.4964E-H3 

-1.  7501E-02 

-3. 5000080  0.0000000 

INSIDE  QUAD  185 

-.  5000000 
12=  1 

7.9717E-01 

-3.3C34E-03 

-9.4089E-02 

ZNP.RO SQ.TSQ*  H= 
INSIDE  QUAD  186 

-8.9149E-02 
12=  1 

2. 2821E-9 1 

1.O355E+Q0 

i.OOOOE-Ol 

ZNP.ROSQ.TSQ,  H= 
INSIOE  QUAD  187 

-3.  53  48E-02 
12=  1 

6.6282E-02 

6.7553E-01 

1.0000E-0  1 

ZNP  »RQSQ»  TSQ»  H= 
INSIDE  QUAD  168 

-3.5348E-C2 
12=  1 

6.  6282E-32 

6.7553 E- 01 

1. 0000E-01 

ZNP.ROSQ. TSQ*  H= 

-8  • 9149E-  0 2 

2. 2821E-01 

1.0355E+00 

1.0Q0QE-01 

-2 • 50  GO  000  0.0000000 

-.5000000 

1.4261E+00 

-4.1937E-03 

-1.0065E-01 

-1.5000 coo  o.oooooon 

-<>5000000 

1.21Q5E+G0 

-1.1531E-02 

1.97O0E-O2 

FGtOOUr  fJWn  jj 


:+oo 


NUMBER  OF 
NUMBER  OF 
111  NUMBER  OF 


VALUES= 

VALUES* 

VALUES* 


A 

1 

5 


IE  THE  BODY 


V Y 

V Z 

V 

r Cl 

“1.8463E-03 

3.1225E-02 

9.432EE-01 

*01 

“5o 2865E-03 

1.  0830 £-01 

9.0019E-C1 

*01 

“2 « 1C47E-0  2 

2.8638E-01 

1.0  260E+G0 

*00 

V 

”7,720  6E-02 

1.  6956E-01 

1.167  6 E+  G 0 

l 

V Y 

VZ 

V 

■-01 

-1.8687E-03 

2.G175E-U2 

9.2720E-C1 

*01 

1-  1 
ri  . 

1 

[.■  6 
[•'  6 

i i 
h° 

-5.377QE-03  1.0116E-C1 

.03  5 5 E+0  0 1.0000E-01 

• 7 5 5 3 E-  G 1 1.000 0£- 0 1 

•7553 E- 01  1.0000E-01 

• CI355E+0Q  1.0000E-01 

8.0876 E- Cl 

-2.2314E-0  2 

1.2787  E- 01 

1.450  6E+QG 

*00 

i 

-6.249  4E-02 

3.  9898E-0 2 

1.2145E+C0 

{-ei 

V Y 

VZ 

V 

-1.7342E-03 

1.  5068E-03 

9.1975 E- 01 

hi 

”4, 4575E-0  3 

4.6059E-C3 

7 .3  09  6 E- 01 

f 00 

1 

-1.38806-02 

1.  8615E-02 

1 .2  746E+00 

-3, 060  5E-0  2 

3. 3288E-  02 

1.2173E+00 

1 

VY 

VZ 

V 

rOl 

-1. 4964E-0  3 

-1.  750 IE-02 

9.2  582E-01 

p1 

1 1' 

-3.3C34E-03  -9.4089E-02 

• 0355E+00  1.0000E-01 

8 .0  27 IE- 01 

6.7553E-01 
6.7553  E'*  01 


l.tiOOQE-O 1 
1.000QE-01 


1.0355E+00  1.0000E-01 

00  -4. 1937E-03  -1.0065E-01 

|00  -1.1531E-Q2  1.9700  E”  02 


1.4297E+G0 

1.21Q8E+00 


ocnrr 


X 

-4*5000000 
-3.5000000 
“2.5000000 
“1. 5000000 


Y 

3 • 0 00  0000 
3.0000080 
0.0000000 
0.0000000 


z 

“1.  000 0000 
-1.0000000 
“i.  COCO  COO 
-1.  0000000 


vx 

9.4052E-01 
8.8645E-U1 
9.6251E-01 
1.13  59E+30 


VY 

“1.  2184E-03 
-2.3480E-83 
-3.3361E-03 
-2.5233E-03 


V Z 

-2. 9389£“02 
-1.U521E-01 
“2.8834E-01 
“2.0899E-01 


V 

9.48  98E-01 
8 » 9268E- 01 
i.Q048E+0fl 
1.1550E+00 


* INDICATES  THE  POINT  IS  INSIDE  THE  BODY 


c_n 


ARYTRJ 


30DY  IDENTIFIER  IS  TEST  NUMBER  CF  SYMMETRY  PLANES= 


CD 

CO 


NUMBER  OF  QUA ORAL 


1 


I 


j 

j 

j 

l 

'1 


rOtOOUT  | 


NUMBER  OF  QUAQRAL AT£RALS= 


169 


MACH  NUMBER^  0 


on urfftto, 


ARYTRJ  RUN  ID  - 

TEST  PROBLEM  WITH  TEST  BODY 


PHYSICAL  INPUT  DATA  - 

iS^TK.’risassi 


NUMERICAL  INTEGRATOR  INPUTS  - 
TIME  STEP=  1.00B0E-01  MINIMUM  TIME  STEP*  5.SfiJifl£-G3 


LOCAL  ERROR  TOLERANCES  FOR  OVOG  - 1. 0 0C3  E-05 


PRINT  TIME  INTERVAL*  i.l 
l*t)G00£-G5  i»  00C0E-  05 


IMENSION  OF  THE  BODY3  1. OOOOOOE+OO 

0GE-01  AND  2.686590E+02  AIR  VI  SC  OS  IT  Y IS  1.C9376AE-05 


5.0flliGE-C3  PRINT  TIME  INTERVAL3  1.000DE+00  X COORD.  OF  FINAL  PLANE3  0 

i; 

jlE-05  1.  LCOOE— 05  1.00G0E-Q5 

t- 


l 

l 

i: 

t 

! 


meourfiRAv. 


WATER  DROP  DIAMETER 


3.  flO  COOE+02  MICROMETERS 


PARTICLE  SETTLING  SPEEO=  i.  27827E*0Q  M/SEC 
INITIAL  X=-5.  000 OE+OQ  INCREMENT3  0.  NUMBER  OF  VALUES: 

INITIAL  Y=-l. QOCOE+OO  INCREMENT3  2.QOQOE*iiO  NUMBER  OF  VALUES^ 

INITIAL  Z=  1.  000 0E-+OO  INCREMENT=-2. 000DE+C0  NUMBER  OF  VALUES: 


X AXIS  IS  INCREMENTED  THIRD 
Y AXIS  IS  INCREMENTED  FIRST 
Z AXIS  IS  INCREMENTED  SECOND 


*******  INITIAL  COORDINATES  X3*  5.  0GOOOE+3O 
IFLAG=  7 FOR  KSTEP3  27  NEVAL3  49 


Y=-i.  000 00  E+(!0 
HMIN  IS  SET  TO 


Z=  1.00000 
3.1250E-O 


KSTEP 

• C 0. 

H= 

IQ  1.00 
H= 

11  1.00 

3 H = 

21  2.08 
H= 

31  2.31 

H3 

LI  2.40 
H = 

51  2.80 

H= 

54  3. CO 

H= 

64  3.25 

H= 

74  3.50 

H= 

81  4.00 

H3 

86  5. CO 

H= 

86  5.  11 

H= 


1.0 
00  E+ 
1.0 
ODE* 
1.0 
COE* 
1.0 
25E+ 

3.1 
COE* 

1.2 

CCE+ 

1.0 
COE* 
1.0 
00  E + 
1.2 
QQE+ 

5.0 
00E+ 

2.0 

DDE* 

2,0 

77E* 

2.0 


-5.0000E+00 
C00E-01  R=  2. 
00  -4.0344E+30 
O00E-Q1  R=  6. 
00  -4.0  344E+S0 
OOOE-Ol  R=  7. 
00  -3.O718E+0C 
000E-01  R=  1. 
00  -2. 7720 E*0 0 
250E-C3  R3  2. 
00  -2. 6881E+00 
50QE-0  2 R=  2. 
00  -2. 3O35E+0  0 
OOOE-Ol  R=  2. 
00  -2.1101E+S0 
OOOE-Ol  R=  2. 
00  -1.867QE+00 
500E-02  R=  1. 
00  -1.6 219E+00 
G00E-02  R=  1. 
CO  -1.1265E+00 
OOOE-Ol  R=  1. 
00  -1. 1968E-01 
OOOE-Ol  R-  1. 
00  0. 

OOOE-Ol  R=  1. 


-i.ooooe+co 

05  86  E+ 01  AC- 
-1.  0145E  + 00 
8363E+01  AC: 
— 1. 0145E+  00 
6138E+  01  AC= 
-1.  03  25E+0C 
8C29E+02  AC: 
-1.  C404E+  CO 
0134Ev02  AC  = 
-1.  04  29E+-  00 
0860E+02  AC= 
-i.fl5eiE+00 
22  29E*  02  AC: 
- 1. 0637E+  00 
0962E+02  AC: 
-1.0739E+CQ 
9778E+02  AC: 
-1.  C846E+00 
7680E+02  AC= 
-1. 1064E*  CO 
4402E+02  AC: 
- 1. 1471E+  00 
51 73E+C2  AC= 
-1.1515E+00 
5173E+02  AC: 


1.0083  E+00 
0 1 

1.0  021E+00 
7. 6 445 £-04 
1.0021E+00 
6.1633E-C4 
1.0 S94E+00 
5.1923 E-04 
1.0151E+00 
5.1576E-04 
1.0 172  E-*80 
5. 09G5E-84 

1.0  293  £+00 
4. 9 92 9 £-04 
1.Q373E+00 
5. 373 JE- 3 4 
1.Q492E-+00 
5.6999E-04 
1.8613E+S0 
5.9854E-C4 
1.0863E  + 00 
6.9847E-04 
1.1313  £+00 

6.0  359E-Q4 
1.1361E+00 
6. 2904E-04 


VPX  VPY 

9.6596E- 01  -1.4267E-02 
NEVAL=  1 

9 .6478  E-  01  -1.  5232E-02 
NEVAL3  12 

9.6478  E-  01  -1.  5232E-02 
NEVAL3  13 

9.5991E-01  -2.2680E-02 
NEVAL3  31 

9 . 5930E-  01  -2.7841E-C2 
NEVAL3  57 

9. 5956 E- 01  -2.938  5E-02 
NEVAL3  77 

9.6440E-01  -3. 6556E-02 
NEVAL3  97 

9.6916E-01  -3.9522E-02 
NEVAL3  104 

S.7641E-C1  -4.20  69E-02 
NEVAL3  130 

9. 8411E- 01  -4.3370E-02 
NEVAL3  150 

9.S603E-C1  -4.3131E-C2 
NEVAL3  164 

1 • 0160E+  00  -3. 749 6E-02 
NEVAL3  175 

1 . 0161E+  GO  -3.6517E-02 
NEVAL3  175 


INITIAL  AND 
ALPH  A0  = 
ALPHAR3 


FINAL  TRAJECTORY  ANGLES  (DEGREES) 
-.8*62  BET  AG=  .0988 

-2.0  542  BET  AR=  2.2413 


DRAG  VECTOR  AT  FINAL  POINT  - 
DIRECTION  COSINES-  8.2179E-01  3.8626E-01  • 

AIR  AND  PARTICLE  SPEEDS  AT  THE  FINAL  POINT  ARE 


■4.1888E-01  ANGLES  A AND  GAH| 
1.  10  221E+Q0  1.019  54  E+  00 


*******  INITIAL  COORDINATES  X=-5. 00330E+00 
IFLAG 3 7 FOR  KSTEP3  28  NEVAL3  60 


Y=  1. 000 00  E+QQ  Z3-1.00000E 
HMIN  IS  SET  TO  3.125CE-03 


FGUJOUT  fRAft 


;rometers 


27827E+0Q  M/SEC 

NUMBER  OF  VALUES=  i 

(003E+gO  NUMBER  OF  VALUES*  2 

1030  E + U0  NUMBER  OF  VALUES=  2 


E+30  Y=-i.  0000(3  E+00  Z=  1.O00OOE+OD 

HMIN  IS  SET  TO  3.1250E-O3 


Z VPX  VPY  VPZ  VX  VY  V Z 

003  E+UO  9.6596E-01  -1.4267E-02  1.6667E-83  9«.65?6E-fii  -1.4267E-02  1.5870E-02 

NEVAL=  1 . 

021E+OG  9.6478  E-  01  -1.  52  3 2E-02  3.1541E-03  9.43‘2£-01  -3.44Q3E-02  4.0864E-02 

i445E-0  4 NEVAL=  12 

I021E+OG  9.6478E-01  -1.  5232E-02  3.  1541E-03  ' 9.  U 51E-0 1 -3.7761E-Q2  4.5294E-C2 

0633  E- 04  NEVAL*  13 

1 094E+80  9.5991E-01  -2.268QE-02  1.4476E-02  9.4637E-01  -8.7974E-C2  1.2261E-01 

&23E-E4  NEVAL=  31 

IlSlE+OO  9.5930E-01  -2.7841E-C2  2.  2740E-02  9.65?1£-01  -9.7990E-Q2  1.4245E-01 

|576£-04  NEV  AL=  57 

I172E+Q0  9. 5956E-  01  -2.9385E-02  2.5288E-G2  9.7691E-G1  -1.GG83E-31  1.4898E-01 

i905E-a4  NEVAL=  77 

I293E+00  9.6440E-01  -3.  6556E-02  3.  7613E-32  1.C42CE+S0  -9.9754E-02  1.5379E-01 

|929E-04  NEV  AL=  97 

[379 E+SG  9.6916E-01  -3.9522E-A2  4.  2861E-G2  1.C858E+00  -8.311SE-G2  1.2343E-01 

|733  E- 3 4 NEVAL=  104 

&92E+GQ  9.7641E-01  -4.2069E-02  4.  7262E-22  1.0977E+80  -7.2147E-Q2  1.0213E-O1 

1999E-04  NEVAL=  130 

£i3E*0C  9.8411E-01  -4.33  7OE-02  4.9320E-G2  1.1G37E+C0  -5.4774E-02  7.C318E-G2 

»5ffE-C4  NEVAL=  150 

063  £ + 00  9.9693E-C1  -4.  3131E-C2  4.8716E-Q2  i.GS57E+C0  -2.2761E-G2  2.4140E-02 

p47E-D4  NEV  AL=  164 

313  £+00  1.0160E+C0  -3.7496E-G2  4.1078E-Q2  1.1046E+G0  5.6844E-G3  -6.G732E-03 

|53E-fl4  NEVAl=  175 

p61E+00  1.0161E+00  -3.6517E-02  3.9872E-32  1.1046E+00  5.6844E-03  -6.O732E-03 

§04£-fl4  N£VAL=  175 

| ANGLES  (DEGREES)  - 

10=  .0988 

|R=  2.2413 


fOl  -4.1888  E-0 1 ANGLES  A AND  GAMMA-  2.5175E+C1  1.1476E+02 

I ARE  1.  10221E+00  1.01954E+00 


f 


KSTEP 

0 

10 
11 
21 
31 
41 
. 44 
54 
64 
71 
80 
84 


T X Y Z 

0.  -5.Q00QE+DC  1.C0  00E+E0  -l.OOOOE+OQ 

H=  i.0u03E-01  R=  1.5173E+02  AC=  2. 

l.OOCOE+OO  -4.G369E+CQ  1.0132E+C0  -1.0295E+CQ 

H=  1.0C0CE-C1  R=  4.5689E+01  AC=  1.2573E-U3 

l.OOOOE+OO  -4.0369E+0Q  1.C132E+CQ  -1.0295E+00 

H=  1.0SOOE-O1  R=  5.2997E+Q1  AC=  9.3450E-04 

2.  0000E+00  -3.0769E+Q0  1.0291E+00  -1.0623E+UQ 

H=  l.OOOQE-Ol  R-  1*  53 49E+  02  AC=  5.8893E-04 

2.  7656E+C0  -2.3454E+00  1.Q485E+0Q  -1.0985  E+00 

H=  3*  1 250E-03  R=  2.0016E+02  A C=  5.4973E-04 

2.90GQE+00  -2.2168E+00  1.  0529E+EO  -1. 10  eSE+OO 

H=  5*  0 000E-02  R=  2.0280E+02  AC=  5.4603E-04 

3. G000E+02  -2.1210E+00  1.3563E+00  -1.1130E+00 

H=  5.0  000E-02  R=  2.0340E+02  AC=  5.4499E-G4 

3.38  75E+00  -1.7482E+00  1.C707E+00  -1. 1405E+G0 

H=  6.2500E-03  R=  1.9948E+Q2  AC=  5.8877E-04 

3*  5503E*  OC  -1  • 5909E+D 0 1.  0772E+  G0  -1.1532E+00 

H=  5.0  000E-C2  R=  1.9617E+02  AC=  5.9103E-04 

4.  0000E+00  -1.1512£*tJ0  1.C96QE+0Q  -1.19i3E+GQ 

H=  1.0  002E-01  R=  1.8893E+02  AC=  5.9535E-04 

5.  C'OOOE+OO  -1.5051E-01  1.1371E+00  -1.2785E  + 00 

H=  5*  0 GOOE-C  2 R=  2. 0139E+02  AC=  5.5777E-04 

5.1477E+00  1.3S78E-17  1.1427E+00  -1. 2909E+00 

H=  2.5CO0E-O2  R=  2.0627E+02  AC=  5.1777E-Q4 


VPX  VP Y 

9.634QE-01  1.2975E-G2 

NEVAL=  1 

9.6232E-01  i.  3733E-02 
NEVAL=  16 

9.6232E-01  1.3708E-02 

N£VAL=  18 

9.5692E-01  1.9735E-C2 

NEVAL*  38 

9.5602E-C1  3.1574E-02 

NEVAL=  66 

9.5733E-61  3.3578E-02 

NEVAL=  86 

9.5864E-01  3.4974E-02 

NEVAL=  92 

9.6613E-01  3.9311E-C2 

NEVAL=  117 

9.7046E-01  4.0630E-02 

NEV AL-  137 

9.8418E-01  4.2377E-02 

N£  VAL-  152 

1 • 0170  E*  00  3.8245E-02 

NEVAL=  172 

1.0214E+S0  3.6966E-C2 

NEVAL=  181 


INITIAL  AND  FINAL  TRAJECTORY  ANGLES  ’(DEGREES ) - 
ALPHAS  .7716  BET  A0  = -1.7363 

ALPHAR=  2.0727  BET  AR=  -4.5852 


DRAG  VECTOR  AT  FINAL  POINT  - ft 

DIRECTION  COSINES-  8.4447E-01  -2.5705E-01  4.6989E-01  ANGLES  A AND  GAHM 

AIR  AND  PARTICLE  SPEEDS  AT  THE  FINAL  POINT  ARE  1.14163E+00  1. 0 2538E+00 I 


a 

■i 

1 


potoour 


9.  6340  E”  01  1.29  75E-02 

NEVAL=  1 

9.G232E-01  i.  3708E-02 
NE\ZAlj=  16 

9.6232E-01  1 * 37 08  E-02 

N£VAL=  18 

9.5692E-Q1  1.9735E-02 

NEVAL-  38 

9.56C2E-C1  3..1574E-02 

NEVAL=  66 

9.5733E-01  3.3578E-G2 

NEtf AL=  86 

9.5864E-01  3.4974E-02 

NEVAL*  92 

9.6613E-S1  3.9311E-C2 

NEV  AL=  117 

9.7046E-Q1  4.0630£rC2 

NEVAL=  137 

9.8418E-01  4. 2377E-D2 

NEtf  AL=  152 

1 • 0170  E*  00  3.8245E-C2 

NEVAL=  172 

1 s 0Z14E+  SO  3.6966E-02 
NEtf AL=  181 


-2.9207E-02  9.  €340£-Gl  1.2975E-C2  -1.5G04E-C2 

-3. 01fiflE-a2  9.3841E-C1  3.1623E-C2  -4.0163E«^C2 

-3.0100E-C2  9.3552E-01  3.4700E-O2  -4.4642E-02 

**  2*  80 95 E- 0 2 9.  28C6E-C1  7.9368E-02  -1.2368E-01 

-5.8414E-C2  9.  {771E-01  9.4036E-02  -1.7743E-01 

-6.  2513E-32  1.0C45E+00  9.1875E-C2  -1.8O64E-01 

-6,  5529E-S2  1.  G231E+30  8.779'c£-02  -1.8O64E-01 

-7.6149E-02  1. 0615E+00  7.4554E-82  -1. 6886E-01 

-8.0008E-G2  1«  0 775E+00  6.7191E-02  -1.5845E-01 

-8.7Q65E-32  1.1159E+00  4.1874E-32  -1.102DE-01 

•8.  4A91E-02  1.1389E+00  3.9491E-03  -2.2823E-02 

-8.1971E-C2  1* 1416E+C0  3.2180E-G4  -1.4954E-02 


i '(DEGREES ) 
.7363 
► .5852 


1 4 • 6989E-0 1 ANGLES  A AM)  GAMMA- 

ARE  1.14163E+00  1. 02533E+8& 


-1.6930E+C1  6. 1973E+01 


emir  SL 


CON FAC 


300Y  IDENTIFIER  IS  TEST  NUMBER  OF  SYMMETRY  PLANES*  0 


NUMBER  OF  QUADRAL 


ro 


fcu>ou3 r tm-  f 


NUMBER  OF  QUADRAL Ar ERALS=  169 


MACH  NUMBER= 


m»oc*n’<w 


CONFAC  RUN  10  - 

TEST  PROBLEM  WITH  TEST  BO  CY 


PHYSICAL  INPUT  DATA  - 
AIR  SPEED=  9.OOOOOOE+01  CHARACTERISTIC  DIMENSION  OF  THE  BOOY=  i.000G30E*0i 
DENSITY  AND  TEMPERATURE  OF  AIR  ARE  9.Q925QQE-Q1  AND  2.686590E+02  AIR  VI 1 


NUMERICAL  INTEGRATOR  INPUTS  - 
TIME  STEP  = 1.0000E-0  : MINIMUM  TIME  STEP=  5.0OOOE-O3 


PRINT  TIME  INTERVAL: 

LOCAL  ERROR  TOLERANCES  FOR  QVOQ  - 1.G0Q3E-35  i.COCOE-05  1.GGC0E-G5 


PARTICLE  FLUX  TUBE  SPECIFICATIONS  - 
NUMBER  OF  TRAJECTORIES  ON  FLUX  TUEE  PERIPHERY^  A 


FLUX  TUBE  RADIUS  AT  TARGl 


TARGET  AND  INITIAL  COORDINATE  ESTIMATES- 
JGUESS  YT  ZT 

1 O.O0OOL  0.CCOQQ 

2 0.00300  0.0(000 


YI 

o. toooa 

u.  00000 


ZI 

0.00000 

0.00000 


cr> 

co 


| 

j 

\ 


j 

j 


Fou)our  | 


TERISTXC  DIMENSION  OF  THE  BODY=  l.OQOQOfiE+OQ 

RE  9.092500E-01  AND  2 .686590E  + Q 2 AIR  VISCOSITY  IS  lo  €9  3764E-6  5 


TIME  STEP=  5.300CE-03  PRINT  TIME  INTERVAL=  i.OGdOE+GG  UPSTREAM  START  DISTANCE 
••  1. 0 303  £-0  5 1.0G00E-05  i.OGOOE-05 


fUEE  PERIPHERY=  A FLUX  TUBE  RADIUS  AT  T ARGET  = .00326  TOLERANCE-  »50U0 

HMATES- 

i-  ZT  Yl  21 

-QCOOO  0. LOOGO  G.0QQQO 

o 1000  u. 00000  0.00030 


•monwr  fRAr.. 


WATER'  DROP  DIAMETER  = 3.  £0  C00E  + 02  MICROMETERS 


PARTICLE  SETTLING  SPEED=  1.27327E+0Q  M/SEC 
TARGET  COORDINATES'  X=-1.5  COOOE+OO  Y = 1.10000E+00 


2=  8 . 0 Q 0 00  £-  Oil 


TRAJECTORY  NUMBER  0 


TARGET  COORDINATES  - X3STAR  = -1.500000 


K3TEP 

0 


10 


14 


24 


34 


cr> 

4=» 


35 


45 


49 


59 


YPSTAR  = 
YPSTARP= 


U> 

Ui 


Y FINAL 

ZFINAL 

ITERATIONS 

YINIT 

ZINIT 

ERR08 

•1209E+01 

. 8803E+  CO 

1 

.1101E+01 

.8G12E+0U 

.1352EI 

• 12 10E+01 

. 8813E+  CO 

2 

. 1102E+01 

• 8 G24E+00 

.1367E| 

. 1097E+01 

• 8 05  2E*  00 

3 

. 9795E+00 

•703SE+00 

.5981E| 

• 1102E+01 

. 7 993E-*  00 

4 

.9834E+00 

. 6981E  + 0U 

.2112e1 

•1099E+31 

• 7979E-*  00 

5 

.9800E+0C 

. 6961t«-0U 

.238  3E| 

• 1100E+01 

• 7 998 E+ 00 

6 

•98 11E+00 

. 6983E+0  0 

.4269E-I 

0. 


-5.0  000 E+90  9. SHOE- Cl 

H=  1.  0 000E-S1  R=  2. 7725E+02  AC 
7.0000E-01  -4.3281E+00  9.9068E-C1 

H=  1.0C00E-81  R=  5.2057E+01  AC 

1. COOOE+0O  -4.0  405E  + 00  9.9497E-C1 

H=  1.  0 C00E-Q1  R=  8.  71  52E+01  AC 

1.8625EI-00  -3. 2173E+Q9  1.D101E  + C0 

H=  6.25aaE-C3  R=  2.00  38E+02  AC 

2.  0000E+00  -3.1)  87QE+0  0 1.0134E+C0 

H=  5.0  C00E-02  R=  2.2830E+02  AC 

2.  000QE+00  -3.0870E+00  1.C134E+C0 

H=  5.  0 COOE-O 2 R=  2.3878E+02  AC 

2.8000E+  00  -2.3352E+80  1.0437E+C0 

H=  5.0  GOOE-O 2 R=  3.3778E+02  AC 

3. G000E+00  -2.1 475E  + 0 0 1.  0549E+CO 

H=  1.0  000E-01  R=  3.275QE+02  AC 

3.6804Ei-aa  -1.5000E+00  1.0996E+C0 

H=  5.0  000 E- 02  R=  2.  7658E+02  AC 
DRAG  VECTOR  AT  FINAL  POINT  -■ 
DIRECTION  COSINES-  8.1247E-03  4. 

AIR  AND  PARTICLE  SPEEDS  AT  THE  FINAl 


6.9829E-01 

0. 

6.9723E-01 
8,3  495E-C4 
6.97Q5E-01 
5. 9453E-04 
6.9995E-01 
5.2003E-04 
7.0 151E-01 
4.9527E-04 
7.C151E-01 
A.5273E-04 
7.2  664E-01 
4.3878E-04 
7 • 3919  E-Qi 
4.4993E-04 
7.9979E-01 
4.7412E-04 


VPX  VP  Y 

9.60C2E-01  1.3571E-02  -!• 

NEVAL=  1 


NEVAL= 


NEVAL= 


NEVAL= 


NEVAL= 


NE  VAL= 


NEVAL= 


NEVAL= 


NEVAL= 


1.3983E-C2 

-M 

13 

1 

1. 4671E-02 

17 

1 

2. 2660E-02 

9.  6| 

42 

2. 5388E-02 

i.3i 

62 

1 

2.5388E-02 

1.31 

64 

3 

■} 

5.  2614E-G2 

5.  51 

86 

i 

5.9150E-02 

6.  91 

94 

6.93  04E-02 

1.0  i 

117 


2971 E -02  5, 

POINT  ARE 


8142E-0 1 ANGLES  A AND  GAMMi 
1. 14461E  +00  9 • 73484E-  Cl  j 


AL  PAGE  IS 
OR  QUALTTY 


INITIAL  AND 

A LPH  A 0= 

A LPH  AR= 


FINAL  TRAJECTORY  ANGLES  (DEGREES)  - 
.8  099  BET  AO = -.0  973 

4.1063  SET  AR=  6.1774 


TRAJECTORY  NUMBER 


TARGET  COORDINATES  - X°STAR  * -1.508352  YPSTAR  = l.fl! 

Y P S T A R F=  0.01 


Y FINAL 
-.30  22E-03 


ZFINAL 
. 3611E- 02 


ITERATIONS  YINIT  ZINIT  ERROR 

1 .7256E-03  « 4269E-0  2 .4483EH 


KSTEP  T X Y 

0 0.  -5.0000E+00  9.818  2E- ( 1 

H=  1.0  OflDE-Ol  R=  2.  7658E«-02  AC* 
10  7.  0000E-01  -4.328 1E  + 00  9.9140E-C1 

H = 1.0  000E-01  R=  5.2019E+01  AC= 
14  l.OOOOEfrflO  -4. 0 404E  + Q 0 9.9568E-C1 

j a r * a o — » -* **  r « rr  • r*  * * r> 


I VPX  VP  Y 


7.0  256E-0 1 

9.60C8E- 01 

1.3563E-02  -1.  5: 

0. 

NEV  AL= 

1 

7.0157E-C1 

9. 5935E- 01 

1. 3974E-02  - 1. a; 

8. 3454E-04 

N£VAL= 

15 

7.0 133  E-0 1 

9 .58  25  E- 01 

1.4668E-C2  -1.51 

r*  * fy  t — f"  * . i i—  » j a * o -* 


FOtOOUX  fRAL.  I 


its 

► 00  M/SEC 

• 100  00  E+0  0 Z=  8.000COE-C1 


= -1.  500000 
YINIT  ; 


YINIT  ZINIT  ERROR 

lifllE  + 01  • 8012E+QU  .1352E+QG 

1132E  + 01  * 8 024E+00  .1367E  + 00 

9795E  + 0G  .7039E+00  .5981E-02 

&834E+0&  .6981E  + 0U  .2112E-02 

9830E+OC  . 6961E*-0U  .2383E-02 

9811E+0Q  • 6983E+00  .4269E-03 


YPSTAR  s 1.100000  ZFSTAR  = 

YPSTARPs  1.  130000  ZPS1ARP* 


ERROR  (FLUX  TUBE  SYSTEM! 


.800000  (FLOW  SYSTEM) 
.800000  (FLUX  TUBE  SYSTEM) 


VPX  VP  Y 

VPZ 

VX 

VY 

VZ 

9.60C2E-S1  1.3571E-02 

NEVAL=  1 

- 1.  63  08  E-  03 

9.6002E-01 

1.3571S-C2 

1. 25  72E-02 

9 .5 929 E- 01  1.3983E-C2 

NEVAL=  13 

-1.  0880E-03 

9.  3821 £-0 1 

2.651 2E -02 

2.55912-02 

9 .58 19  E- 01  1.4671E-02 

NEV  AL=  17 

-2.  09192-34 

9. 1998E-0  1 

4.0543E-02 

3. 9618  E-02 

9. 4867E- 01  2.2660E-02 

NEVAL=  42 

9.  6867E-03 

8. 7914E-01 

9.4479E-02 

1.0518E-01 

9.462GE- 01  2. 53 8 8 E- 02 

NEVAL*  62 

1.3176E-02 

8. 7511E-01 

1. 0894E-01 

1. 2621E-01 

9.4620E- 01  2.5383E-02 

NEVAL*  64 

1.  3176E-02 

8. 7450E-S1 

1 .14442- Cl 

1. 3473E-01 

9 .37  23  E-  01  5.2614E-C2 

NEVAL=  86 

5,  5791E-0  2 

9. 6531E-01 

1. 56812-01 

2.  6234E-01 

9.4351E-01  5.915 3 E-02 

NEVAL=  94 

6.  9614E- 3 2 

1.  L177E+00 

1.4009E-C1 

2.7029E-01 

9 . 6535  E- 01  6.9304E-02 

NEVAL=  117 

1.  0475E-C1 

1. 2 2 13 £+00 

7.7552E-02 

2.1635E-C1 

6.8142E-01  ANGLES  A AND  GAMMA-  3.Q275E+C0 
[ 1. 1446 IE +00  9 • 73  484E-  Cl 


4450E+01 


ES  (DEGREES)  - 
f - • 0 973 
I 6.177<t 


= -1.5033  52 


YPSTAR  = 1.099975 

Y P S T A R F=  Q.OOCOOO 


ZPS1AR  = .803261  (FLOW  SYSTEM) 

ZPS1ARP=  . 003280  (FLUX  TUBE  SYSTEM) 


YINIT  ZINIT  ERROR  (FLUX  TUBE  SYSTEM) 

’256E-G3  • 4269E-Q2  .4483E-03 

\/PX  VP  Y VPZ  VX  VY  VZ 

. 9.60C8E-  01  1.3563E-02  -i.  5749E-03  9.6008E-01  1.3563E-02  1.2628E-02 

NEV  AL=  1 

l 9. 5935 E-  01  1.3974E-02  - 1.  03B9E-33  9.  3835E-01  2.6478E-02  2.  5248E-02 

* NEVAL=  15 

» 9 .58  25  E-  01  1.4660E-  02  -1.5Q69E-04  9.2023E-01  4.0463E-02  3.9745E-02 

k|f*u  A * — . «.**»  - • *■■■  — • — 


oru/r 


" ',TH=r  xvcnniiici-ui  K-  o • /u  sect  ux  MG 
!4  1*  66  88E*  00  -3.2112E+Q0  1.0110E+C0 

H=  6*  25O9E-03  R=  2.0C90E+02  AC 
54  1.9750E+00  -3.11Q5E+G0  1.G135E+I0 

H=  2.5C00E-C2  R=  2.2224E+02  AC 
56  2.C0C0E+  00  -3.0869E+00  l.G141E+0a 

H*  2.  5 000E-02  R=  2.3257E+02  AC 
► 6 2. 47  50 E+  00  -2. 6395E+0 0 1.C293E+C0 

H=  5.0C00E-02  R-  3.1803E+G2  AC 
>3  3.C000E+00  -2.1471E+00  1.Q554E+0Q 

H=  2.0C90E-91  P*  3.2760E+02  AC 
>3  3.  62  50E*  GO  -1.5528E+09  1.0959E+C0 

H=  5*  0 900E-02  Rs  2.8288E+02  AC 
>5  3.67  94E+0Q  -1.5004E+3Q  1.0997EMQ 

H=  5.D  900E-Q2  R=  2.7205E+02  AC 
DRAG  VECTOR  AT  FINAL  POINT  - 
DIRECTION  COSINES-  8.2736E-01  3. 

AIR  AND  PARTICLE  SPEEDS  AT  THE  FINAL 


' P*'3**04£.-U*» 

7.0439E-01 
5.1944E-04 
7.G557E-01 
5.0C01E-C4 
7.059DE-Q1 
4.7405E-04 
7.1651E-01 
4.4628E-04 
7.4345E-01 
4.4585E-Q4 
1 7 • 9793E-0 1 
4.6314E-Q4 
8.0  359E-01 
4.8639E-04 


NCVAL=  ' CO '',=" 

9. 4870E- 01  2. 2724E-02 

NEVAL=  48 

9.4682E-01  2.4783E-C2 

N£VAL=  68 

9. 4636 E- 01  2. 5322E-02 

NEVAL=  72 

9 .38  03  E- 01  3.98  67E-02 

NEVAL=  92 

9.4086  E- 01  5.8737E-02 

NEVALs  106 

9.6301E-C1  6.8579E-02 

NEVAL=  129 

9.6549E-C1  6.8798E-02 

NEV AL=  133 


15  54E-02 
POINT  ARE 


60 78E-0 1 ANGLES  A AND 
1.14496E  + 00  9.7  3520ES 


TRAJECTORY  NUMBER  2 


TARGET  COORDINATES  - X^TAR  = -1.500235 


YPSTAR  * 
YPSTARF- 


YFINAL 
• 39  51E-32 


ZFINAL 
•.  1236E-02 


ITERATIONS 

1 


YINIT  ZINIT 

• 4128E-C2  - # 3891E-0  3 


:P  T X Y 

0 0.  -5.0031E+90  9.85  2 3E-  Cl 

H=  1.0  OOOE-Ol  R=  2.7205E+C2  AC 
.0  7.000GE-01  -4.3282E+00  9.9484E-I1 

H=  1.0 OOOE-Ol  R=  5.1988 E+ 01  AC 
.4  l.OOOOEfOO  -4.0 405E+00  9.9914E-C1 

H=  1.0 OOOE-Ol  R-  8.70  42E+01  AC 
!4  1.8688E+00  -3.2113E+00  1.0145E+G0 

H=  6.2503E-C3  R=  2.C108E+02  AC 
54  1. 97  50Ef  00  -3.1106E  + 30  1.  C170E+C0 

H=  2.5  000E-02  R=  2.2250E+02  AC 
56  2. 0QGGE+  G 0 -3.9879E+Q9  1.0176E+CO 

H=  2.5  000 E-0 2 R=  2.3288E+02  AC 
► 6 2.  62  50  E*0  0 -2.4990E+00  1.C393E+C0 

H=  5. 0 0 00 E- 02  R-  3.3341E+02  AC 
52  3 .QCOOE+0O  -2.1473E+09  1.0592E+C0 

H=  1.0  OOOE-Ol  R=  3.2871E+Q2  AC 
>2  3.6250E*  00  -1.5532E+00  1.10C1E+I0 

H=  5.0  OOOE-O  2 R=  2.8409E+02  AC 
>4  3 . 68 C <3 E+  0 0 -1.5002E  + 00  1.1039E+C0 

H=  5.0  G00E-02  R=  2.7313E+02  AC 
DRAG  VECTOR  AT  FINAL  POINT  - 
DIRECTION  COSINES-  8.  2653E-0  1 3. 

AIR  AND  PARTICLE  SPEEDS  AT  THE  FINAL 


6.9791E-01 

0 . 

6.9686E-01 
8. 352HE-G4 
6.9664E-G1 
5. 9501E-04 
6.9955E-01 
5.1932E-04 
7.0074E-01 
4. 9985E- 04 
7.0105E-01 
4.7383E- 04 
7.1738 E-81 
4. 4043 £* 04 
7 .3850  E- 01 
4.4  545E-04 
7.9309E-C1 
4. 6253E-04 
7.9877E-C1 
4.8567E-U4 


VPX  VPY 

9 .66  GTE-  61  1.  3617E-  02 

NEVAL=  1 

9 . 5934E- 0 1 1.4330E-02  , 

NEVAL=  15  j 

9.5824E-01  1.4719E-02  4 

NEVAL=  23  j 

9. 46 66 E- 01  2.  28 28 E- 02  j 

NEVAL=  48 

9.4677E-01  2.  490 IE- 02  1 

NEVAL=  68 

9. 4630  E- Cl  2.  5444E-C2 

NEV  AL=  72 

9.3677E- 01  4.6008E-02 

NEVAL=  93 

9.4062E- 01  5o  9214E-02 

NEV  AL=  105 

9.6281E-01  6.9236E-02 

NEVAL=  128 

9. 6534E- 01  6. 9463E-C2 

NEV  AL=  132 


2372E-02 
POINT  *RE 


6197E-0 1 ANGLES  A AND  G 
1. 14547E  + 00  9. 73446E- 


TRAJECTORY  NUMBER  3 


TARGET  COORDINATES  - XPSTAR  = -1.499648 


YPSTAR  = 
YPSTARP= 


Y FINAL 
• 39  71E-03 


ZFI NAL 
•.  2 C22E-02 


ITERATIONS 

1 


YINIT  ZINIT 

• 4452E-03  - .1 895E-0  2 


ER 

.131 


KSTEP 

0 


T X Y Z 

0.  -5. 0 000E+00  9.8154E-C1  6.9640E-01 

H=  1.  0 C00E-C1  R=  2. 7313E+02  AC=  0. 

7#  00  ODE- 91  -4. 3282E+90  9.9114E-C1  6.9535E-01 

H=  1.0000E-01  R=  5.2B60E+C1  AC=  8.3513E-04 

1. COOCE+QO  -4.0405E+00  9.9542E-C1  6.9513E-01 


VPX  VPY 

9.6000E-01  1.35  83  E-G2 

NEVAL=  1 

9.5927E-01  1.3995E-02 

NEVAL=  13 

9 . 5817E-01  1.4684E-C2 


li  on  o .... n 4 


n r> — e c*  k k r?  r*.^  n ». 


.hiru  At  — 


rOE-Oi  2.2724E-02 
.=  48 

9.8952E-03 

8.7962E-01 

9.4692E-02 

1. 0612E-01 

32  E—  01  2.4783E-02 

.=  68 

1. 2530E-0  2 

8.7645E-01 

1. 057 IE -Cl 

1*  2211E-01 

56E-01  2.  5322E-C2 

.=  72 

1.  3231E-Q  2 

8. 7562E-01 

1. 111CE-01 

1.30 36 E-01 

23 E-  01  3.98  67E-G2 

.=  92 

3. 3994E-2  2 

9.0337E-01 

1.5468E- Cl 

2«  1774E-01 

36 E-  01  5. 870 7E-02 

.=  10  6 

6.9232E-82 

1. 0 128E+C0 

1«  4126E- 01 

2.6912E-01 

HE- 01  6.85  79E-G2 

.=  129 

1.3215E-01 

1. iillE+00 

8 . 4626E- 02 

2.28  27E-01 

♦9E-C1  6.8798E-C2 

.=  133 

1.  0407  E- £ 1 

1. 1229E+C0 

7.4802E-02 

2.10  77E-01 

•01  ANGLES  A AM) 

♦96E+0C  9.73520E 

GAMMA-  2. 

-01 

1841E+00  5. 

5890E+01 

50  0 2 3 5 YPSTAR  = 

1.  103272 

ZPS1AR  = 

• 800000  (FLOW  SYSTEM) 

Y P S T A R F=  . 003280 

ZINIT  ERROR  (FLUX 

- . 3891E-0  3 .1L06E-02 

ZPS 1A  RP= 
TUBE  SYSTEM) 

-.000300  (FLUX  TUBE  SYS 

fPX  VPY 

VPZ 

VX 

VY 

V Z 

J7E-01  1.3617E-C2 

— 

-1.6521E-03 

9.60  G7E-B1 

1.3617E-02 

1. 2551E-02 

54E-C1  1.4330E-02 

r=  15 

-1.  1109E-03 

9.3831E-01 

2.65  E9E-G2 

2.5095E-02 

£4  E-01  1,  4719E-02 

.=  23 

-2.3501E-84 

9.  2016 E-0  1 

4.D642E-02 

3. 9509E-02 

56E-01  2.  28 28 E- 02 

1=  48 

9. 7649E-03 

8.7928E-01 

9 • 5240E-0  2 

1.0563E-01 

|7£-  01  2.  49  8 IE- 02 

!:=  68 

1.2396E-C2 

8 • 76C2E-B  1 

1 .0  636E-0 1 

1.21  60E-G1 

JOE-  Cl  2.  5444E-02 

;=  72 

1. 3095E-02 

8.7515E-01 

1.1181E-01 

1. 2984E-01 

r7E-01  4.6008E-02 

h 93 

4.3395E-02 

9. 2909E-0 1 

1.6091E-Q1 

2. 42 52 E-0 1 

»2E-  01  5.  9214E-C2 

!-  10  5 

6.9218E-02 

1. G123E+CQ 

1.4274E-C1 

2.6969E-01 

|1£-  01  6.  92  36E  -02 

1=  128 

1.0236£-0i 

1.1112E+00 

8. 5586E-02 

2. 2938E-01 

I4E-01  6, 9463E-C2 

1. O433E-01 

1. 1 232E+0G 

7. 5645E-82 

2. 11 66  E-01 

i ANGLES  A AND  GAMMA-  2.2429E+CQ  5. 

7E+Q0  9.73446E-01 


5806E+01 


9648  YPSTAR  = 1.  1000  25 

YPSTARP=  -.000000 


ZF  STAR  = .796739  (FLOW  SYSTEM) 

ZFS 1A RP=  -.003280  (FLUX  TUBE  SYSTEM) 


ZINIT  ERROR  (FLUX  TUBE  SYSTEM) 

-.1895E-02  .131 9E-82 


X 

VPY  VPZ 

VX 

VY 

V Z 

E-01 

1 « 35  83  E- 02  -1.6586E-U3 

9.  E0O0E-O1 

1.3583E-02 

1.2544E-C2 

E-  01 

1 

1. 3995E-02  -1.1167E-C3 
13 

9. 2816E-01 

2 . 6541E-0  2 

2.  5099E-02 

E-01 

1.4684E-C2  -2.3900E-C4 

9.1991E-01 

4.0595E-C2 

3.9543E-02 

*T»OW/fCF?Afv 


n-  ituuuuL'VJ.  rc-  otrcccc^ux  no- 

lk  1.8625E+00  -3.2174E+80  i.  0106E+00 
H-  6.2500E-Q3  R=  2.0C58E+02  AC= 
54  2.  00  00E+00  -3.0871E+Q0  1.  01  39E+ CD 

H=  5.0  GOG E-G 2 R=  2.2856E+02  AC= 
15  2.  OOOOEfOO  -3.0871E+00  1.0139E+B0 

H=  5. 0300 E- 02  R=  2.3906E+02  AC= 
►5  2.8QQ0E+00  -2.3354E+Q9  1.  C443E+  (0 

H=  5.0  000E-02  R=  3.3842E+G2  AC= 
h9  3.0aOOE*Oa  -2.1477E+30  1.C555E+00 

H=  1.0GOOE-O1  R=  3.2808E+02  AC= 
59  3.6500E+C0  -1.5296E+C0  1.C983E+C0 

H=  5.0Q03E-G2  R=  2.8269E+C2  AC= 
iO  3. 68  Q8E*  00  -1.4998E+G0  1.1004E+00 

H=  5.0Q0QE-02  R=  2.7710E+02  AC= 
DRAG  VECTOR  AT  FINAL  POINT  - 
DIRECTION  COSINES-  6.1238E-01  4.2 

AIR  ANO  PARTICLE  SPEEDS  AT  THE  FINAL 


6.9808 E-Bl 
5.1985E-04 
6.9955E-G1 
4.9509E-G4 
6.9953  E-fii 
4.525SE-04 
7 .2463  E-fii 
4.385SE-Q4 

7-  779(.P.fH 


4.4975E-04 
7. 9 477 E-01 
4. 6343E-04 
7.9799E-C1 
4. 7361E-04 


JL  f 

9.4863E-  01  2. 2692E-02 

NEVAL=  <42 

9 *4 6 14 E-01  2. E428E-C2 

NEVAL=  62 

9.4614E-01  2.  5428E-G2 

NEVAL=  64 

9 .3711E- 01  5. 2784E-82 

NEVAL=  86 

9.4038E-01  5. 9353E-32 

NEVAL=  94 

9.6385E-01  6.9443E-02 

NEVAL=  117 

9 . 6 5 28 E-01  6.9554E-02 

NEVAL=  119 


836E-02 
POINT  ARE 


8156E-0 1 ANGLES  A AND  G 
1.14489E+00  9.73  459E-; 


TRAJECTORY  NUMBER  4 


TARGET  COORDINATES  - XPSTAR  = -1.499765 


YPSTAR  = 
YPSTARPs 


Y FINAL 
4310E-02 


ZFINAL 
. 7579E-04 


ITERATIONS 

1 


YINIT  ZINIT  £ 

-.3891E-C2  - • 3 977E-0  3 .18 


KSTEP 

0 


H=  1.0  OOCE 
.0  7.  0000E-01  - 

H=  1.0OO3E 
.4  1.  CG  Q0E+  OQ  - 

H=  1.0P00E 
! 4 1.86  25E+G0  - 

H=  6.2500E 

54  2,  QOOQE+OO  - 

H=  5.0  000E 

55  2.  0000E+00  - 

H=  5.0  OOGE 
^ 2. 80  00E+  00  - 

H=  5.0C30E 
► 9 3.  0000E+00  - 

H=  1.0C00E 
59  3.65  00E+00  - 

H=  5.0  CODE 
iO  3.  6811E+00  - 
H=  5.0  00 0 E 
DRAG  VECTOR  AT 
DIRECTION  COSI 
AIR  ANO  PARTICL 


4 .9999 E+ CO 
-01  R=  2.77 
4. 3281E+Q0 
-01  R=  5.21 
4.0405E+00 
-01  R=  8.73 
3.2174E+C0 
-03  R=  2. 00 
3.0871E+00 
-02  R=  2.29 
3.0  871E+G0 
-02  R=  2.39 
2.3355E+00 
-02  R=  3.38 
2. 1478E+G0 
-01  R-  3.28 
1.5297E+G0 
-02  R=  2.82 
1. 4997E+00 
-02  R=  2.76 
FINAL  POINT 
NES-  8.137 
E SPEEDS  AT 


9.7721E-C1 
10E+02  AC= 
9.  8676E-C1 
25E+01  AC= 
9.91A4E- Cl 
53E*01  AC= 
1.  CCC1E+  (0 
95E+02  AC= 
1.  C094E+  (0 
OOE+02  AC= 
1.C0  94E+00 
53E+02  AC= 
1.  03  «8E+00 
67E+02  AC3 
1.  0510E  + 00 
16E+02  AC3 
1.0935E+00 
40E+JS2  AC= 
1. 0957E+00 
85E+02  AC3 


6. 9790E-01 

0. 

6. 9687E-G1 
8.3  473  E-04 

6.9  667E-01 
5.9414E-04 
6.9959E-01 
5.1945E-04 
7.0 116 E-01 

4.9  474E-04 
7.0 11 5 E-01 
4.  5 218E-04 
7. 2 645 E-01 
4.3847E-04 
7. 3908E-01 
4.4983E-04 
7.9682E-01 
4. 6353  E-04 
8. 000  3 E-01 
4. 7364E-04 


VPX  VPY 

9 .59 96 E-01  1.3530E-02 

NEVAL=  1 

9.5923E-G1  1.3941E-02  -li 

NEV  AL=  13 


NEVAL= 


N£VAL= 


NEVAL= 


NEVAL= 


N£VAL= 


13 

3 

1.  4628S-02 

-i 

17 

■ 

2.2624E-G2 

§ 

42 

1 

2.  5356E-C2 

1 

62 

;i 

2. 5356E-02 

i* 

64 

i 

5.2642E-02 

5 

86 

• y 

5. 91 73E-02 

7 

NEVAL=  94 

9 . 6387E- 01  6.9148E-02  1 

NEVAL=  116 

9.6531E-01  6.9255E-02  1 

NEVAL=  118 


8 E-0  1 4. 

THE  FINAL 


0887E-02 
POINT  ARE 


7973E-0 1 ANGLES  A AND  GA 
1.1449  6E  + 00  9.73582E-0 


oe-ci 

5E-04 

9 .4863E- Cl  2.269 2E-02 
NEVAL=  42 

9. 6505 E- 03 

8.7  8 SOE-O 1 

9.4679E-02 

1.0  508E-01 

5E-01 

9E-Q4 

9.4614E-01  2.  5428E-02 

NEVAL=  62 

1.314QE-02 

8.74  (2E-G 1 

1.C920E-01 

1.2612E-01 

5E-C1 

QE-04 

9.4614E-01  2.  5428E-C2 

NEVAL=  64 

1. 3140E-02 

8.7418E-C1 

1 . 1472E-0 1 

1.3465E-01 

5E-01 

3E-04 

9.37HE-G1  5.27  84E-C2 

NEVAL=  66 

5.  5842E-02 

9.6504E-01 

1.573SE-C1 

2. 62  71 E-01 

4E-01 

5E-04 

9 .4038 E- 01  5.9353E-02 

NEVAL=  94 

6.9706 E- 02 

1.  0176E+LC 

1 ®4C  551Z-01 

2. 70  74E-01 

7E-01 

3E-C4 

9.6365  E-  01  6.9443E-G2 

NEV  AL=  117 

1. 03  89 E- 01 

1.11E4E+GG 

8 o284SE-02 

2.  2 593E-01 

9E-61 

12-04 

9 .6528 E- 01  6.9554E-02 

NEVAL=  119 

1. 0497E-01 

1.  1215E+00 

7.7790E-02 

2.1 679 E-01 

2 5, 

ARE 

8156E-01  ANGLES  A AND 

1.14489E+00  9.73  4 59E 

GAMMA-  3 el 

-01 

D 184E+O0  5. 

444CE+01 

PSTAR 

= -1.499765  YPSTAR  = 

1.  096728 

ZPSTAfi  = 

.800000  (FLOW  SYSTEM) 

YPST  A RP= 

003280 

ZPSTA  RP= 

.000000  (FLUX  TUBE  SYSTEM) 

YINIT  2 I NIT  ERROR  (FLUX  TUBE  SYSTEM? 

-.3691E-C2  -.3977E-03  .1033E-Q2 


Z 

VPX  VP  Y 

VP  Z 

VX 

V Y 

V Z 

OE-Ol 

9.5996E-C1  1.3530E-02 

NEVAL=  1 

-i.  6213E-03 

9. 5996E-C1 

1.353  C£- 02 

1«  2582E-02 

7E-01 

3E-04 

9 • 5923 E- 01  1. 3941E-02 

NEVAL=  13 

-1. 0773E-S3 

9. 3808E-01 

2.644 8E- 02 

2.  5186E-02 

7E-Q1 

4E-Q4 

9.  5813E-  01  1.  46 2 8E- 02 

NEVAL=  17 

-1.9607E-04 

9. 19  78E-01 

4.0466E-02 

3.9694E-02 

9E-01 

5E-04 

9.4856E- 01  2. 2624E-&2 

NEVAL=  42 

9.7440E-03 

8.  7866E-S1 

9.4438E-02 

1.05  56E-01 

5E-01 

^E-84 

9.4606E-  01  2.5356E-02 

NEV  AL=  62 

1.  32 53E-G2 

6. 7459E-01 

1.0891E-01 

1,  2671E-01 

5E-01 
IE- 04 

9.4606E-  01  2.5356E-02 

NEVAL=  64 

1.  3253E-1I2 

8. 73S6E-0 1 

1. 1442E- 01 

1. 3528  E-01 

>E-0 1 
FE-04 

9.3704E-01  5.2642E-02 

N£VAL=  86 

5.  61 58 E-02 

9.  6537E-0 1 

1.5667E-01 

2.6346E-01 

IE- 01 
IE- 04 

9.4034E-C1  5.91 73E-02 

NEVAL=  94 

7,  C049E-C2 

i. eieoE+oo 

1.398  IE -01 

2. 7122E-C1 

HE- 01 
|£-04 

9 . 6387E- 01  6.91 48  E-02 

NEVAL=  116 

1.  0418  E-  01 

1.  11  56E+CI) 

8.2154E-02 

2.  2576E-01 

|E-01 

'E-04 

9.6531E-01  6.9255E-02 

NEVAL=  118 

1.  0526E-01 

1. 1216E+00 

7. 710SE-02 

2.1662E-01 

1 5.7973E-01  ANGLES  A AND  GAMMA-  2.8763E+G0  5.45682+01 

pE  1. 14496E  + QD  9.73502E-01 


i . 
v 

i 


1 


FLUX  TUBE  CROSS  SECTION  COORDINATES  IN  THE  - 


INITIAL  FLANE 


TARGET  PLANi 


XP 

■5.0C00E+C0 
I • 5884E- 14 
1.1492E-14 
2.8054E-14 
9 • 7370  E- 15 


YP 

9.8110E-Q1 
7.2555E-04 
4.12  78E-03 
4.4517E-04 
•3.8913E-03 


ZP 

6.  9829E-C1 
4.  2635E-03 
-3. 89L2E-04 
-1. 8950E-03 
"3*  9756E-3  4 


XP 

-1.5000E+C0 
-5.  2934E-15 
-1.  09  63 E- 15 
-2.9064E-15 
1.  6757E-15 


YP  ‘ 
1*100  CE+QO 
-3.0  21 5E-0  4 
3.95C 6E-93 
3.9710E-04 
-4*310  0E-0  3S 


FLUX  TUBE  CROSS  SECTION  AREA  IN  THE  INITIAL  PLANE=  2.  47U4E-05 


CONCENTRATION  FACTOR=  1.08337 


Fotoour 


fR Mh  jf 


AT  THE  POINT  (X,Y,Z)=  -1.50000  i. 10000  .80000 

FOR  A PARTICLE  OF  DIAHETER=  300*00000  WITH  DIAMETER  TO  LENGTH  RATIQ= 

NORMALIZED  AIR  SPEED  AT  FINAL  FOINT=  1.14339 

PARTICLE  CONCENTRATION  FATIO=  1.11288 


ROSS  SECTION  COORDINATES  IN  THE  - 

TARGET  PLANE 


ZP 

9829E-C1 
263  5E-0  3 
;8912E-6A 
,895  0E-0  3 
r‘9756E-8  4 


XP 

-1.500QE+00 
-5.  2934E-15 
-1.Q9  63E-15 
-2.9064E-15 
1.  67  57E-15 


YP 

1.180  8E+Q0 
-3.021 5E-04 
3.950 6E-33 
3.9710E-0  4 
•4*311)  OE-O 3 


ZP 

8.00C0E-C1  (FLCW  SYSTEMS 
3.6111E-03  I FLUX  TUBE  SYSTEM) 
-1.2361E-03  IFLUX  TUBE  SYSTEM) 
-2. 02 25E-03  (FLUX  TUSE  SYSTEM) 
7.5786E-05  (FLUX  TUBE  SYSTEM) 


? THE  INITIAL  PLANE=  2.47114E-05 


IN  THE  TARGET  PLANE-  2.28097E-05 


P.  i.iflGOli  .80  000 

loo  WITH  DIAMETER  TO  LENGTH  RATIO=  i.SflOCCE+flO 
k'  1.14339 

1128  8 

r 


AND  DENSITY=  1.0000CE+03 


n 


2 

tfv  t 


TANTRA 


BODY  IDENTIFIER  IS  TEST  NUMBER  CF  SYMMETRY  PL AN tS=  0 NUMBER  OF  QUADRAL 


CT> 

CO 


Fctoour  i 


jfMMETRY  PL ANES  = 


NUMBER  OF  QUADRAL AT ERALS=  189  MACH  NUMBER=  0. 


fflOOVTCWf,.  2^ 


TANGENT  TRAJECTORY  CODE  RUN  ID  - 
TEST  PROBLEM  WITH  TEST  80  CY 


PHYSICAL  INPUT  DATA  - 

An^??vE?r,n9:!!ID3,,EtD1  CHARACTERISTIC  DIMENSION  OF  THE  BOOY=  I.OOUOOOI 
DENSITY  AND  TEMPERATURE  OF  AIR  ARE  9.092530E-01  AND  2.i86590E*02  AlS] 


NUMERICAL  INTEGRATOR  INPUTS  - 
TIME  STEP  = i.OO'OOE-Oi  MINIMUM  TIME  STEP=  5,  QCliDE-03 


LOCAL  ERROR  TOLERANCES  FOR  QVOQ  - i.COGOE-05 


PRINT  TIME  INTERI 
1.0C00E-C5  1.  3000E- 


TRAJECTORV  DATA  ARt  WRITTEN  ON  UNIT  IQ  FOR  PLOTTING 


/ 


fojloout  fWKu.  1/ 


C (DIMENSION  OF  THE  BOOY=  i . 0 OUCOOE^OO 

92530E-01  AND  Z.686590E+02  AIR  VISCOSITY  IS  1.I9376AE-Q5 


EP=  5.0C03E-03  PRINT  TIME  INTERVAL=  l«QQ3QE+00  X COORO.  OF  FINAL  PLANE 
NOOE-05  1 • 0000  E-  05  1.  00QQE-05 


?R  “LOTTING 


| 

l 

f 


l 

t 

■ 


Ffionur  mu,- 


WATER  DROP  DIAMETER  = 2.  C0000E+02  MICROMETERS 


PARTICLE  SETTLING  SPEED=  7.69D93E-01  M/SEC 


TRAJECTORIES  ARE  TO  BEGIN  ALONG  A LINE  DEFINED  BY  THE  POINTS  (X1,Y1,Z1,>  AN 
( -5  • Q39G0E+G0  0.  -4. 5C300E-01  ) AND  ( -5.080SQE 

WITH  DIRECTION  COSINES  - ( COS ( ALPHA ) »COS iBE TA) »COS ( GAMMA 1 1 - 0. 


STARTING  POINT  INCREMENTS  ARE  - COARSE  INC REM£NT=  5.000CCE-G2  FINE  INCREMEM 


* * * INITIAL  COORDINATES  X=-5. 00 OOOE+OO  Y=  0. 


Z = -4.  50  00  0E1 


IFLAG  = 7 FOR  KSTEP=  27  NEVAL= 

IFLAG  = 7 FOR  KSTEP=  27  NEVAL= 

INSIDE  QUAD  135  12=  i 

ZNP» RO SQ» TSQ»  H=  -5.4665E-03 
INSIDE  QUAD  138  12=  1 

ZNP,ROSQ,TSQ,H=  -7.1977E-03 
THE  BO  OY  SURFACE  IS  PENETRAT 


HMIN  IS  SET  TO  3.1250E-03 
HMIN  IS  SET  TO  1.5625E-03* 


2*  4343 E-B 1 1.0355E*G0  2.5003E-02 


2. 5Q35E-D1 


1.0355E+00  2.5GQ0E-02 


PENETRATED.  PARTICLE  COORDINATES  ARE  (X  ,Y  ,Z > -2.  5523 


TRIAL  INITIAL  COORDINATES  ARE  C Y INIT , ZINIT ) 0.  -4.530UE-Q1 

AFTER  0 ATTEMPTS  PARTICLE  STILL  PENETRATES  THE  BODY. 


m 


KSTEP 

0 


I X 

6.  -5.0Q9QE+00 

H=  1.0  C30E-01  R=  8. 

5.C00QE-01  -4.5253E+00 
H=  5.0  COO  E-0  2 R=  2. 

1.09G0E+00  -4.G517E+Q0 
H=  1.0  C00E-01  R=  6. 

1.84G6E+00  -3.2695E+Q0 
H=  1.5  625E-03  R=  2. 

1.875QE+Q0  -3. 2385E  + 00 
H=  1.  2 500E-C2  R=  2. 

2. 00C0E+  CO  -3.1 264E+00 
H=  5.BQ03E-Q2  R=  2. 

2,57 50E+  00  -2. 6346E+00 
H=  2.5  000E-02  R=  3. 


0. 

25  73E+00  AC= 
-5.  2030E-04 
1823E+JJ1  AC  = 
-1.06  27E-  £3 
8350E+01  AC= 
-2.22C1E-C3 
0C  79E+02  AC  = 
-2.2817E-  (3 
1011E+02  AC= 
-2.  5204E-C3 
60  29E+C2  AC= 
-3.9985E-C3 
97  01E+02  AC: 


-4.50fiflE-i31 
1.9O04E-17 
-4.5857E-01 
: 1.6453E-03 
-4.6742E-01- 
6. 6054E- 04 
-4.8600E-01 
= 4.9963S-04 
-4.8936E-01 
4. 900 9 E- 04 
-4.9505E-01 
4.1124E-04 
-5.5195E-G1 
* 3.979SE-04 


VPX 
9 « 4971E* 
NEVAL= 
9.4686E* 
NEVAL= 

9 • 4439E- 

NE VAL= 

9.Q566E- 

NEVAL= 

9.0255E- 

NEVAL= 

8. 6980  E- 
NE VAL= 

S .2481E- 
NEV  AL= 


VP  Y 

01  -1.03  53E-03 
1 

01  -1.0526E-03 
17 

01  -1.1384E-03 
35 

01  -1.  7706E-03 
63 

ul  -1.8174E-03 
83 

01  -2.00  74E-03 
99 

01  - 3. 18  98E-03 
121 


* INITIAL  COORDINATES  X=-5 . 0 00  OOE+O  3 


IFLAG= 

7 FOR  KSTEP = 28 

NEVAL= 

60 

IFLAG= 

7 FOR  KSTEP=  29 

NE VAL= 

63 

IFLAG= 

7 FOR  KSTEP=  IBS 

NEVAL= 

235 

KSTEP 

T X 

Y 

0 

0. 

-5. 0Q00E+00 

0. 

- 

H= 

1. 0 000 E- 91  R=  3. 

9701E+02 

AC  = 

10 

5. OGQOE-Oi  -4.5250E+00 

-5.  1313E- 

C4  - 

H= 

5. 0 QQ0E-92  R=  2. 

12  55E+01 

AC= 

20 

1 . 00  COE#-  00  -4.0  512E+0  0 

-1.Q485E- 

03  - 

H= 

1.0  C0QE-01  R=  6. 

65  81E+01 

AC= 

Y=  0.  Z=-5 • 00  00  0E 

HMIN  IS  SET  TO  3.125CE-03. 
HMIN  IS  SET  TO  1.5625E-03 
HMIN  IS  SET  TO  7.8125E-04 


i*  8797E+  GO  -3.  2 321E+00  -2.  2468E-I3  -5.4173E-01 
H=  1.5625E-03  R=  1.9997E+02  AC=  5.3975E-04 

, JZ  jl  j>  n ■yr_~g e*Jn.  o a.  • #•  #%  , n no#  or-  r ■»  „ »-  * o o»  r~  „ 4 


VPX 

VP  Y 

9.  50  22E-01 

-1.0211E-03  -l.i 

NEVAL= 

1 

9.4939E-01 

-1.0379E-03  - l.i 

NEVAL= 

17 

9.4510E-Q1 

-1.  1204E-03  -1. 

NEVAL= 

37 

9 . 0617E- 01 

-1.  7668E-03  -4. 

NEVAL= 

65 

O n a n r*  -* 


FOtOOtar  fTJAL 


0 * 

l.COOOOE+UO 


<X1,Y1,Z1,)  ANQ  (X2.Y2.Z2  ) - 
( -5. 38000  £4- GO  0. 

0 • o • 

2 FINE  INCREMENT*  5 . C CO  COE- 03 


) 


r Z = -4.  50000E-01  FOR  TRAJECTORY  NUMBER  i 

ET  TO  3.125CE-03 
ET  TO  1 • 5 625E-0  3‘ 

(.  2 • 500  ilE-0  2 

r 

l 2. 5 00  Q£-  0 2 

RE  (X  ,Y,Z)  -2.  55  23  2E  + 00-4.3280  4E-3  3-5.7G565E-01 
v -4.50Qy£-fil  ATTEMPT  NUMBER  0 

PDY. 


VP  Y 

i -1.0353E-03 

i ^ 

1 -1.U526E-03 
! 17 

l -1.1384E-G3 
; 35 

t -1.  7706E-03 
’ 63 

i -1.8174E-03 
[ 63 

L -2.00  74E-03 
[■99 

I -3.1898E-03 

Iz  1 


VPZ 

•1.7077E-02 
•1.7267E-02 
•1.  8462E-S2 
•3.6358E-C2 
■4.G613E-02 
■5.1080E-C2 
■1.6851E-01 


VX 

9*  4 971E-SI 
9.2635E-G1 
8.7423E-01 
7. 35G1E-01 
7.2694E-Q1 
6. 91C5E-01 
7.4570E-G1 


VY 

-1.G353E-03 
■1.5046E-Q3 
-2.4196E-Q3 
■4.3441E-G3 
•4.4526E-03 
■4.9664E-G3 
•6.110  SE-03 


VZ 

-8.5312E-G3 
-1.5595E-C2 
-3.7486E-02 
-1. 5675E-01 
-1.6882E-01 
-2.443CE-ai 
-5.7166E-01 


r Z=-5  • GO  00  GE-0 1 FOR  TRAJECTORY  NUMBER 
|t  TO  3.125CE-0  3 
|T  TO  1.5625E-03 
It  TO  7.812  EE-0  4 


ORIGINAL  PAGE  SS 
OF  POOR  QUALITY 


VP  Y VPZ  VX  VY  VZ 

^ -1.0211E-03  - 1. 80  37E-02  9.E022E-C1  -1.0211E-03  -9.4917E-03 

' 1 

”1.0379  E-  03  - 1.8253E-C2  9.  2743E-01  -1.4781E-03  -1.7214E-02 

7 

-1.12G4E-B3  -1.  9572E-C2  8.  7764E-01  -2.3594E-03  -4.0720E-C2 

37 

A -1.  7668  E-C3  -4.  2684E-02  7.45<3E-01  -4.2808E-03  -1.  7362E-01 

65 


hu  i.  4ii  d act  yw  -d*  “dtrt'XfM  ■‘‘•S*  42  94 1- in 

H=  6.2509E-03  R=  2.0666E+02  AC=  4.9383E-Q4 
49  2.OOO0E+O0  -3.1237E+G0  -2.4692E-C3  '-5.4747E-01 
H=  2.  5 003E-02  R=  2.3735E+C2  AC=  4.4664E-04 
59  2.  52  50E*  03  -2.6674E+00  -3.  7260E-C3  -5.9541E-01 

H=  5.0300E-02  R=  3.5235E+02  AC=  4.1138E-C4 
69  2.  7125E+Q0  -2.5091E+G0  -4.20  54E-C3  -6.2775E-01 

H=  i«250  0E"02  R=  3.  6565E+02  AC=  4.G7C3E-04 
79  2.8750E«-C0  -2.3701E+00  -4.8572E-D3  -6.6323E-Q1 

H=  2*5  C00E-O  2 R=  2.7G19E+02  AC=  4.4649E-04 
84  3*  00  0 CE*  00  -2.2614E  + 30  -5.30C4E-C3  -6.9333E-31 

H=  2*5  Q00E-02  R=  2.2479E+02  AC=  4.9517E-C4 
94  3.2667E*00  -2.Q226E+G0  -6.292CE-Q3  -7.  6277E-01 

H=  6.25OOE-03  R=  2.2802E+02  AC  = 4.7372E-04 
104  3.375QE+00  -1.9261E  + G0  - 6.  6963E- 03  -7.9143E-C11 

H=  2.5S00E-02  R=  2.C274E+02  AC=  4.9543E-C4 
114  3*  39  37E*  00  “1.9089E+00  -6.7679E-C3  “7.9653E-01 

H=  1.5  625 E” S 3 R=  1.9867E+02  AC=  5.3852E-04 
124  3.  45  00  E+  00  ~i  ,6 572E  + 00  -6.9827E-03  -8.1193E-£il 

H=  1*2  50QE-&) 2 R=  1.8939E+C2  AC=  5.4795E-Q4 
134  3.80  QGE<-  00  -1.5285E+03  -8.  3154E-03  -9.G780E-01 

H=  5*  0 0O3E-O2  R=  1.9086E+02  AC=  5.4461E-04 

144  4*  00  00E+  00  -1.3352E+C0  -9.  06 4 IE- 03  -9.6181E-01 

H=  5*0  OOOE-02  R=  1.8499E+02  AC=  5.  4930£“i)4 

145  4.0OGOE+OD  -1. 3352E+0C  -9.0641E-G3  -9.6181E-Q1 

H=  2.5000E-02  R=  1.8398E+02  AC=  5.  5533E-04 
155  4.  350QEf00  -9.8803E-01  -1.0328E-C2  -1.0523E+0C 

H=  2*  5 G00E-02  R=  1.9043E+02  AC=  E.  4239E-04 
165  4.7750E+0Q  -5.5336E-Q1  -1.1753E-02  -1.1520E+00 

H=  5. 0 GQ0E-O2  R=  1.  8739E+02  AC=  5.4443E-04 
170  5.  OOOCEfOO  -3.1772E-C1  -1.2444E-G2  -1.1993E+0G 

H=  5.0000E-02  R=  1.6378E+02  AC=  5.5173E-Q4 
175  5 • 2995E* 00  1.1102E-16  -1.3284E-G2  -1.2559E+00 

H=  l.OCOOE-Ol  R=  1. 75 34 E+ 02  AC=  5.5777E-04 


fc-ux  -x*  dwxofc-ttd 
NEVAL=  85  jj 

8.9545E-81  -1.9350E-03  -3 
NEV  AL=  10  3 I 

8.46U7E-C1  -2.8990E-03  -j 
NEVAL=  124  I 

8.4692E-C1  -3.2768E-03  -| 
NEVAL=  147  ’ I 

8.6379E- 01  -3.4910E-03  -1 
NEVAL=  167  J 

8.76i6E-Gi  -3.  59  62  E- 03  -j 
NEVAL=  178  j 

9.0165E-01  -3.  78  29E-03  -f 
NEVAL-  20  2 1 

9.14Q5E-01  -3.8160E-C3  -J 
NEVAL=  222  1 

9*  1608E-  01  -3.8177E-03 
NEVAL=  247  | 

9.2214E-G1  -3*8205E“03  -i 
NEVA  t=  2 67  ' 

9.5632E-C1  -3.  7791E-03  -2 
NEVAL=  288  1 

9.7643E-Q1  -3.7025E-03  -2 
NE VAL=  311  f 

9 *7643  E-  Cl  -3*7025  E-C3  - 
NEVAL=  314 

1.GG69E+00  -3.5092E-03  - 
NEVAL=  335 

1.G387E+  00  “2.1772E-03  - 
NE VAL=  356 

1.0528E+  00  -2.9619E-C3  - 
NEVAL=  36  7 

1 • 0 682E+  fifl  -2.  6446E-03  -f 
NE  VAL=  377 


* * * * * * * * * * »****  + *«*«  SWITCH  TO  FINE  STEPSIZE  * * | 

1 1 


I*  * * * INITIAL  COORDINATES  X=-5.aOG3GE+3Q  Y=  0.  Z=»4. 950001 

■J  IFLAG=  7 FOR  KSTEP=  30  NEVAL=  57  HMIN  IS  SET  TO  3.1250E-03: 

IFLAG=  7 FOR  KSTEP=  30  NE VAL=  58  HMIN  IS  SET  TO  1.562£E“03j 

1 INSIDE  QUAD  187  12=  1 1 j 

j ZNF.ROSQ.TSQ, H=  -3.2026E-C4  i.6737E“0l  6.7553E-01  2.5003E-02 

THE  BODY  SURFACE  IS  PENETRATED.  PARTICLE  COORDINATES  ARE  (X  ,Y  , Z)  - 2.41 4! 
! TRIAL  INITIAL  COORDINATES  ARE  (Y I NI T , ZIM  IT  I 0.  -4.95Q0E-01 


AFTER  0 ATTEMPTS  PARTICLE  STILL  PENETRATES  THE  BODY. 


KSTEP  T X Y Z VPX  VPY 

0 0.  -5 . 0 O0OE  + OQ  0.  -4.9503E-01  9.5017E-01  -1. 0 226E-03  -1 

H=  1.  0 000E-01  R=  1.7534E+02  AC=  4.2147E-20  NEV  AL=  1 

10  5.  C0  00E-  01  -4.5250E+00  -5.1385E-C4  -5.Q4Ql£-tli  9.4934E-  01  -1.  0394E-03  -1 

H=  5.0  HO QE-0  2 R=  2.1313E+C1  AC=  1.6874E-03  NFVAL=  13 

20  i.QOOOE+OO  -4.0512E+00  -1.D501E-C3  -5.1333E-01  9.45G2E-01  -1.1222E-03  -1 

H=  1. 0 C00E-01  R=  5. 6799E+C1  AC=  9.2763E-04  NEVAL=  31 

21  1.0000E+00  ”4. 0 512E  + 0Q  -1.05C1E-03  -5.1333E-01  9.4502E-  01  -1.  1222E-C3  -1 

H=  1.0  000E-01  R=  6.6762E+01  AC=  6.7141E-Q4  NEVAL=  33 

31  1.8766E4-00  -3. 2352E+00  -2.  2457E-C3  -5.3643E-01  9.0602E-Q1  -1.7688E-03  “4 

H=  1.5625E-03  R=  2.0029E+02  AC=  5.0043E-04  NEV  AL=  60 

41  1.9063EM30  -3.2083E+00  -2.  2988E-D3  -5.3772E-01  9.0350E-  01  -1.8081E-03  -4 

H=  6.2500E-03  R=  2.0786E+02  AC=  4.9263E-04  NEVAL=  80 


*xw  da  is t" m *nns«ie>nrx-  - 
it  85 

if  - 01  -1.9350E-03  -5.  2476E-Q2  7.22G3E-01  -4.6783E-03  -2.3124E-01 

? 10  3 

76-01  -2.8990E-03  -1.4541E-01  7.75C3E-01  -5.6161E-03  -5.0306E-01 

s 124 

EE- 01  -3*  27  68  £-03  -2.0033E-01  9.5347E-81  -5.6300E-03  -5.  6342E-01 

b 147  ' 

9E-01  -3.49106-03  -2.  3312E-C1  1.G317E+C0  -5.05C0E-C3  -4.5671E-01 

s 167 

&E-C1  -3.5962E-03  -2. 4746E-51  1.0474E+00  -4.9247E-03  -4.0973E-01 

b 178 

5E-C1  -3.  7829E-C3  -2.6766E-C1  1.1G74E+00  -5.0931E-G3  -3.8329E-C1 

- 202 

5E-01  -3.8160E-C3  -2.7199E-31  1.1195E+00  -4.0114E-Q3  -3.1470E-01 

= 222 

BE- 01  -3.8177E-03  -2.  7241E-01  1.1183E+00  -3.9671E-C3  -3.0931E-01 

= 247 

%E-C1  -3.8205E-03  -2.7338E-01  i.  1168E+00  -3.86CCE-03  -2.9616E-D1 
B 2 67 

2E-C1  -3.  7791E-03  -2.7288E-JJ1  1.15116+00  -3.  2909E-03  -2.  4028E-01 

* 288 

3E-C1  -3.7025E-C3  -2.  66486-31  1.15C7E+00  -2.8540E-03  -1.8720E-01 

?B  311 

3.E-B1  -3.7025E-C3  -2.  6648E-01  1.15C6E+B0  -2.8140E-03  -1.83616-01 

¥ 314 

[9E+00  -3.5092E-C3  -2. 49196-01  1.  1656E+00  -2.2639E-03  -1.3240E-01 

!*■  335 

I7E+  00  -3.17  72E-03  -2.1923E-C1  1.  1649E+08  -1.4809E-03  -7.1961E-02 

;*  3 56 

I8E+08  -2.9619E-  03  -2.  0115E-C1  1.  16C3E+0G  -1.0059E-03  -4.1299E-02 

B 367 

\Z E+flO  -2.  6446E-03  -1.  7707E-01  1. 16816+00  -4.1830E-04  -1.9720E-02 

L»  377 


'0  FINE  STEP SIZE***  * * * * * * * * * * + * * * * * * * * * * * * 


Z=-4. 9500 8E-0 i FOR  TRAJECTORY  NUMBER  1 
IS  SET  TO  3.1250E-03 
IS  SET  TO  1.562  ££-0  3 

•-01  2.50G3E-02 

rES  ARE  CX  »Y,Z)  - 2.41 459E+00- 4. 7G245E-03-6. 47195E-01 
-4.950QE-G 1 ATTEMPT  NUMBER  0 

fHE  BODY. 


IPX  VPY  VPZ  VX  V Y 

L7E-01  -1.  0 226E-03  -1.7943E-02  9.  5017E-Q1  -1.0226E-03 

.=  1 

I4E-01  -1.0394E-03  -1.  8156E-02  9.  2731E-01  -1.4808E-03 

.=  13 

J2E-Q1  -1. 1222E-03  -1.9463E-02  8.8821E-01  -2.1833E-03 

31 

I2E-01  -1. 12226-03  -1.9463E-Q2  8.7730E-G1  -2.3654E-Q3 

33 

I2E-G1  -1.7688E-03  -4.2313E-C2  7.  4457E-01  -4.2901E-03 

.=  60 

iOE-fli  -1.8081E-03  -4.4423E-02  7.3095E-01  -4.3746E-03 

L—  80 

rt  a ,.^.a  rs./.  nr  r * n •»- ..j r.. ..  n *7  r -»  *-  . * n 


ORIGINAL  PAGE  IS  . . % 
OF  POOR  QUALITY  • - V I 


V Z 

-9.3971E-03 
-1*70  56E-02 
-3. 4500E-02 
-4. 0409E-02 
-1.  7230  E-01 
-1.8295E-01 


m a 


** ' 


* 

I 

I 


i 


i 


4 r\*  r r-  m t)  4 


.«» -J!,  W 1 *"* 


rn  omrr  fTWfv. 


c * «u e ot» ««  * v - « sr »oc:“ ts ■“sv'fec* t“d i ovshwc- ui  -i»  ^ not-wo 
H=  2.  5 003E-02  R=  2.3887E+02  AC=  4.4563E-04  NEVAL=  94 

2.47 50E«-  03  -2.7105E*G0  -3.5943E-I3  -5.8330E-01  8.4764E-Q1  -2.8141E-03 

H=  5*0  COOE-O  2 R=  3.4415E+02  AC=  4.1415E-04  NEVAL=  115 

2.7125E«-00  -2.5103E+00  -4.32C8E-03  -6.2285E-G1  8.4491E-01  -3.3024E-C3 

H=  1.253QE-02  R=  3.7292E+02  AC=  4.048DE-G4  NEVAL=  137 


»*****»**«**»»»»»«**»*»*»  TANGENT  TRAJECTORY  IS  AS  POLL 


INITIAL  COORDINATES  X=-5 .flOOODE+00 


Z=-5.000 


I FLAG = 7 

FOR 

KSTEP= 

28 

NEVAL= 

60 

HMIN 

IS 

SET 

TO 

3.125CE-0 

IFLAG=  7 

FOR 

KSTEP= 

29 

NEVAL= 

63 

HMIN 

IS 

SET 

TO 

1 .562  5E-0 

IFLAG  = 7 

FOR 

KSTEP= 

108 

NEVAL= 

23  5 

HMIN 

IS 

SET 

TO 

7.812EE-0 

KSTEP  T X Y 

0 0.  -5.00OOE+O3  0. 

H=  l.OaOOE-Ol  R=  3. 7292E+02  AC= 
10  5.00  00E-G1  -4.5250E+00  -5.1313E-04  - 

H=  5. 0 OQ3E-02  R=  2.1255E-M51  AC  = 
20  1.0000E*Q3  -4.G512E+D0  -1.0485E-C3  « 

H=  l.OCOOE-Oi  R=  6.6561E+01  AC= 
30  1.87  97E*  00  -3.2321E+00  -2.2468E-C3  - 

H=  !•  5 625E-03  R=  1.9997E+Q2  AC= 
40  1.9Q63E«-00  -3.2081E+0O  -2.2942E-03  - 

H=  6.2500E-03  R=  2.0666E+C2  AC= 
49  2.00G0E+C0  -3.1237E+00  -2.  4692E-C3  - 

H=  2. 5 030E-0 2 R=  2.3735E+02  AC= 
5 9 2 . 5 2 50E«-00  -2.6674E+00  -3.7260E-03  * 

H=  5.0  OOOE-O 2 R=  3.  5235E+02  AC= 
69  2.  7125E+03  -2.5Q91E+G0  -4.3C54E-E3  - 

H=  1.2500E-02  R=  3.6565E+02  AC= 
79  2.875QE+00  -2.3701E+3Q  -4.8572E-83  « 

H=  2*  5 COOE-O 2 R=2.7019E+02  AC= 

84  3.G0G0E+00  -2. 2614E+0 0 -5.3004E-03  • 

H=  2.  5033E-02  R=  2.2479E+02  AC= 
94  3.  26 87E*  00  -2.0226E+00  -6.  2920E-C3  * 

H=  6.2533E-03  R=  2.2802E+02  AC= 
104  3.  3750E«-03  -1.  9261E+00  -6.6963E-C3  ■ 

H=  2*5  C0DE-0  2 R=  2.0274E+02  AC= 
114  3.  3937E+00  -1.9089E+D0  -6.7679E-03  - 

H=  1.5625E-03  R=  1.9867E+02  AC= 
124  3.45G0E+00  -1.8572E+00  -6.9827E-C3  - 

H=  1.2533E-02  R=  1.8939E+02  AC= 
134  3.80G0E+0Q  -1.5285E+00  -8.3154E-C3  * 

H=  5.  0 G33E-02  R=  1.9Q86E+02  AC= 

144  4*  0QG0E+  00  -1.3352E+GQ  -9.0641E-03  - 

H=  5.0000E-02  R=  1.8499E+02  AC= 

145  4.  0OOOE*OO  -1.3352E+00  -9.  0641E-03  - 

H=  2.5000E-02  R=  1.6398E+02  AC= 
155  4. 35  0QE+  GO  -9.8833E-01  -1.G328E-G2  ■ 

H=  2.5G0QE-C2  R=  1.9043E+02  AC= 

165  4.  77  50  E*-  00  -5.53Q6E-01  -1.1753E-C2  • 

H=  5.3GD0E-G2  R=  1.8739E+02  AC= 

170  5.G000E+03  -3.1772E-01  -1.2414E-02  ■ 

H=  5.3G03E-Q2  R=  1.8378E+02  AC= 

175  5.  2995E+03  1.1102E-16  -1.3284E-Q2  • 

H=  1*0  C30E-Q1  R=  1.  7534E+02  AC= 


5.0003E-G1 
9.3174E-21 
5.0  905  E“ 01 
1.6923E-03 
■5.1842E-31 
6.7263E-04 
•5.4173E-01 
5.3975E-04 
•5.4294E-G1 
4.9  383E-04 
5.4747E-01 
4.4684E-04 
5.9541E-G1 
4.1138E-04 
6.2775E-D1 
4.G703E-04 
■6.6323E-G1 
4.4643E-04 
■6.9333E-01 
4.9  517E-04 
■7.6277E-G1 
4.7  372E-04 
7.9143E-01 
4. 9 549 E- 04 
"7.9  653E-01 
5.3852E-04 
•8.1193E-01 
5.4795E-04 
•9.U780E-G1 
5.4461E-04 
■9.  6181E-G1 
5.4930E-G4 
■9.6181E-G1 
5. 5533E-04 
•1.0523E*00 
5.4239E-04 
*1.1 520  E+  00 
5.4443E-04 
■1. 1993E  + G0 
5.5173E-G4 
•1.2559E+GC 
5.5777E-G4 


VPX  VPY 

9.5022E-01  "1.3211E-C3 
NEVAL=  1 

9.4939E-01  -1.S3  79E-03 
NEVAL*  17 

9.451CE-G1  -1.12G4E-G3 
NEVAL=  37 
9.0617E-01  -1.7668E-G3 
NEtf AL=  65 
9.C393E-01  -1.8018E-03 
NEVAL=  85 
8.9545  E- 01  -1.9350E-03 
NEVAL=  103 
8.46G7E-G1  -2.699 UE-G3 
NEV  AL=  124 
8.4692E-S1  -3.2768E-03 
NEtf AL=  147 
8 . 6379E- 01  -3. 491 OE-03 
NEVAL=  167 
8. 7616E-01  -3.5962E-C3 
NEtf AL=  178 

9. 0 165  E- 01  -3.78  29  E- £3 
NEV  AL=  202 
9 .14  05  E-  01  -3.81G0E-v3 
NEVAL=  222 

9. 16C8E- 01  -3. 8177E-C3 
NEV  AL=  247 

9 • 2214E- 01  -3.8205E-03 
NEVAL=  267 

9. 5632E- 01  -3. 779  IE- 03 
NEV AL=  288  ■ 

9.7643E-  01  -3.7325E-C3 
NEVAL=  311 

9 .7643  E- 01  -3.  73  25E-03 
NEVAL=  3i4 

1.0  069E+  00  -3. 50  92E-C3 
NEVAL=  335 

1.G38FE+  00  -3.1772E-03 
NE VAL=  356 

1.G528E+Q0  -2.9619E-03 
NEVAL=  367 

1.G662E+00  -2. 64'+6E-03 
NEV  AL=  377 


poioour  fRA.4 


rotooucr 


STEREO 

PLOT  TANGENT  TRAJECTORY  TO  THE  TEST  BODY 


NUMBER  OF  SYMMETRY  PLA NES=  0 NUMBER  OF  TRA JECTORIES=  1 X START 

MINIMUM  AND  MAXIMUM  COORDINATES  - 

X AXIS=  -5.0Ca0QE+00  2*  QQ.GQOE+QQ 

Y AXIS=  -2.0000OE+0a  2.  00000E+00 

Z AX IS=  -1.25593E+00  i.OCQOCE+OO 

COORDINATE  TRANSLATIONS  USED  TO  CENTER  THE  PLOTS  - DEL  X*  OELY,  OELZ  - 

-1.  50000E  + 00  ].  -1.27964E-Q1 


CRT  PLOTS 


THETA  = 0. 0 C PSI  = 160.00  OELTA  = 3.50 

PLOT  LABEL  - THETA  = 0 » PSI=160,  DE  LT A=3. 5 
PEMSF  = 1. 5466E+00 


TRAJ.  NO.  1 OF 

22  POINTS 

XTRA  J 

YTRA  J 

ZTRAJ 

X PLOT 

YPLOT 

-• 500CE+01 

0. 

-•5000E+00 

-. 2158E+01 

-. 5754E+00 

- * 50  00  E+0 1 

0. 

- .500  QE+00 

-.21  58E+01 

-• 5754E+0Q 

-• 4525E+0 1 

-• 5131E-03 

-.5091E  + 00 

-.1865E+01 

-.5894E+00 

^ -• 40  51E  + 01 

-.1049E-02 

-.518  4E+00 

-.1572E+C1 

-• 6G39E+00 

w - . 3232E+0  1 

-.2247E-02 

-.541 ££+00 

-.10  65E+01 

-•64Q0E+00 

-• 3208E+0 1 

-.2294E-Q2 

- .542  SE+00 

-.10  50E+01 

-• 6418E+00 

3124E+01 

-.2469E-Q2 

- .547  5E+  00 

- • 9978E+00 

- • 6488E+Q0 

-.2667E+01 

-• 3726E-02 

-•5954E+00 

-•  7146E+0B' 

-.7229E+Q0 

-• 2509E*  O 1 

-«  4305E-Q2 

-.6277E+00 

- . 61 62E+C  0 

-.7729E+00 

-.2370  E+0 i 

-.4857E-02 

- . 6633E+30 

-. 5297E+00 

-.8279E+C3 

-•  2261E+3  1 

-• 530QE-02 

- .693 4E+Q0 

-. 4620E+00 

-.8744E+00 

2023E+01 

-.6292E-02 

- . 762  €£+  00 

-• 3133E+00 

-.9818E+00 

-.1926E+01 

-.6696E-02 

-•7915E+00 

-• 2533E+00 

-• 1026E+01 

- • 1909E  + 0 1 

-.6768E-02 

-.7  966E+0Q 

-. 2426E+00 

-.lfi34E+01 

-.1857E+01 

- .6  983  E-0  2 

- .8 119E+  00 

-. 2104E+00 

-.1058E+01 

-• 1528  E+0 1 

-.8315E-02 

-.9076E+C0 

-• 5772E-02 

-.1206E  + 01 

- • 1335E+0 1 

- • 9064E-Q  2 

- .96ifE  + 00 

. 1145E+0C 

-.1290E+01 

-. 1335E+01 

-• 9064E-0  2 

-.961 EE+00 

. 1145E+0  0 

- .129OE  + 0 1 

-•9880E  + 0 0 

-.1033E-01 

- .105  2E+  01 

. 3304E+GQ 

-•1429E+01 

-• 5531E  + 0 0 

-.1 175 E-0 1 

-.1152E+01 

. &QQ6E+00 

-.1584E«-0i 

-.3177E+00 

-.1244E-01 

-.1199E+01 

. 7468E+0O 

-.1657E+01 

• 111GE-15 

-.1328E-01 

- .125  6E  + 01 

• 9439E+00 

- • 1744E+0 1 

TRAJ.  NO.  1 OF 

22  POINTS 

XTRAJ 

YTRAJ 

ZTRAJ 

X PLOT 

YPLOT 

-•  500  QE  + 0 1 0.  -.5000E+00  -.1537E+C1 

-.5000E+01  0.  - . 530  OE+OO  -.1537E  + 01 

-.4525E+01  -.5131E-03  -.5091E+00  -.1328E«-Q1 

-•  4051E+01  -.1Q49E-Q2  -.5184E+00  -.1119E+01 

-.3232E+01  -.2247E-02  -.5418E+00  -.7575E+00 

-•  3208E  + 0 1 -.2  294E-U2  -.542SE4-oa  -.7469E+00 

-• 3124E+01  -.2469E-Q2  -.5475E+00  -.7096E*00 

-• 2667E  + Q 1 - . 3726E-0  2 -.5954E+Q0  -.5Q73E+00 


- . 5754E+00 
- .5754E+0  0 
-• 5894E+00 
-.6C39E+00 
-.6400E+00 
- • 6418E  + Q 0 
- • 6483E+00 
-.7229E+03 


1 


XSTART--5. 0B3O  Q£+00 


OELY  t OELZ  - 
27964E-Q1 


1 YPLOT 


r 

r«5754E+00 
5754E  + 00 
[-.5894E  + 00 
‘-•6039E+00 
[-•64Q0E+00 
jf— • 6418E+Q0 
l— • 6488E  + 00 

I-.7229E+Q0 

I-.7729E+00 
|-.8279E+0fl 
: ”.8744£(«-a0 
E -•9818E+00 
f-.l026E+01 
| ■“•1C34E  + 01 
|-.i058E+01 
f **  • i 2 0 6E  + 0 i 
I-.1290E401 
- •1290E  + 3 1 
I-.1429E+01 
F-.1584E<-0i 
| -.1657E+01 
I - .1744E  + 01 


YPLOT 


■ , 5754E  + A0 
■.5754E+00 
••  5894E  + 00 
-.6039E+00 
»,  6400E  + 00 
■ •6418E  + 0 0 
* • 6488E  + 00 
•.7229E+00 

T *•»  OAr.*.A 


^icni/rfRA?, 


- •©<£/ rc»uu 

G 

- • 2370E+Q  1 

-.4857E-02 

- .6633E+Q0 

-.37  50E+80 

-.8279E+00 

-• 2261E+0 1 

5300E-02 

-.6934E+00 

-.3266E+00 

-.8744E+00 

-.2C23E+01 

-.6292E-02 

“ • 7 S2SE+  00 

-.2202E+00 

- . 9818E+00 

€ 

-• 1926E+0  3 

-.6696E-02 

- c 7915E+08 

- . 1772E+0  0 

-.1G26E+01 

-•1909E+0 1 

-• 6766E-0  2 

-.7966E+00 

-.1696E+00 

-.1034E+01 

-• 1857E+01 

-•6983E-Q  2 

-.8119E+C0 

-• 1466E+0O 

-.105SE+01 

r 

-.1528E+01 

-.8315E-82 

-.9078E+00 

-.18G9E-03 

-.1206E+01 

v> 

- » 133  5E+0 1 

-.9Q64E-C2 

-.961 fE+QO 

• 8585E-01 

- • 1 29  0E+01 

-.1335E+01 

-.9064E-02 

-•9618E+00 

•S585E-01 

- .1 290E+0 1 

C 

-• 988OE+O0 

-.1033E-01 

- .105  2E+01 

• 240  2E  + 00 

-•1429E+81 

-• 5531E+A0 

-.1175E-B1 

- • 1152E+01 

• 4334E+Q0 

- .1 584E +0 1 

-• 3177E  + 0 0 

-.1244E-G1 

-.1199E+01 

« 5378E+G0 

- • 1657E+01 

( 

.1110E-15 

-.1328E-01 

- • 1256E+01 

. 6786E+00 

-.1744E+01 

i 

THETA  = . 0.0  C 

PSI  * 

160.00 

DELTA  = 

3.00 

\t 

PLOT  LABEL  - THETA=0,  PSI=160 , 

OELTA-3.0 

PEWSF  = 

1.  5568E+00 

(. 

TRAJ.  NO.  1 OF 

22  POINTS 

i 

XTRAJ 

YTRAJ 

ZTRAJ 

X PLOT 

. YPLOT 

5000E+0  1 

0 © 

-.5OQCE+0O 

2129E+01 

- • 5732E+30 

-.5000E+01 

0. 

-.50Q0E+O9 

-• 2129E+01 

-• 5792E+00 

-.4525E+01 

-.5131E-S3 

- • 5091E+8Q 

- • 18  39E+0 1 

- • 5S33E  + 00 

-• 4051E+0 1 

-.1049E-02 

-.5184E+00 

-.1550E+01 

- .6  079E+00 

-• 3232E+0  1 

-.2 247E-0  2 

- .541 8E+  03 

-.1050E+01 

-.6442E+30 

-• 3208E+0  1 

- • 2 294E-0  2 

- .5429E+09 

-• 1036E+0 1 

-.6460E+30 

c 

- • 3124E+0  1 

- • 2 469 E-0  2 

-.547  5E  + 80 

-. 9841E+00 

-.6531E+0Q 

- • 2667E+01 

- » 3726E-0  2 

- .5954E+00 

-•7048E+00 

-.7277E+03 

-.25O9E+01 

-.4305  E-0  2 

-.6277E+00 

-• 6076E+00 

-• 7780E+00 

. 

-• 2370E+0  1 

-•4857E-82 

- • 6 63  3 E + 0 0 

-.5223E+C0 

-.8334E+00 

-• 2261E+01 

-• 53Q0E-0  2 

-*  69  34E+00 

- • 4555E+00 

- .S802E+00 

-•  2023E+Q1 

-.6292E-02 

- .7626E+00 

- • 30  88E+8Q 

-.9882E+00 

( 

-•1926E+0 1 

- . 6 696E-0  2 

-.7S15E+Q0 

-• 2496E+0  0 

- • 1033E+0 1 

-• 1909E+O1 

- .6 768 E -02 

-.7S66E+03 

-• 239CE+00 

- . 1 041E+S 1 

-• 1857E+0  1 

-•6983E-02 

-.8119E+00 

- • 20  73E+0  0 

- .1065E  + 01 

-•  1528E+0  1 

-• 8315E-0  2 

-.9O7SE+G0 

- . 5410  E-0  2 

-•1214E+01 

-• 1335E+0  1 

-.9064S-S2 

-.9618E+00 

. 1133E+00 

- • 1298E  + 01 

-• 1335E+0  1 

-.9064E-G2 

-.9612E+QQ 

. 11 33E+00 

- • 1296E+0 1 

! ” 

-• 9880E+00 

-.1033E-01 

- • 1052E+01 

. 32  62E+Q  0 

-.1439E+01 

-• 5531E+0  0 

-.1175E-01 

-.1152E+01 

. 5928E<-00 

-.1594E+01 

- . 3177E+00 

-.1 244E-01 

-.1199E+01 

•7378E+00 

-.1668E+01 

{ 

• 1110E-15 

-•1328E-01 

- .1256E+01 

• 9315E+00 

-•1756E+0 1 

TRAJ.  NO.  1 OF 

22  POINTS 

1 

XTRAJ 

YTRAJ 

ZTRAJ 

X PLOT 

YPLOT 

r 

-.5CQ0E+01 

0. 

- * 5000E  + 00 

-.1593E401 

- • 5792E+00 

-• 50Q8E+9  1 

0. 

- .500  OE  + 00 

- * 159  3E+0 1 

-.579  2E+00 

i " 

-.4525E+01 

-• 5131E-03 

- • 5091E  + 00 

- • 13  76E+0 1 

- • 5933E+00 

-•  4051E+G1 

-• 1049E-02 

“»5184E+0fi 

-.lieOE+Ol 

-.6079E+00 

-.3232E+01 

-.2 247 E-0 2 

- • 5418E+  00 

-.7850E+U0 

-• 6442E+03 

i r 

-• 32Q8E  + 0 1 

-.22 94E-S2 

-.5429E+00 

-• 7740E+00 

- • 6460E  + 0 0 

-. 3124E+01 

- . 2 469  E-G  2 

- » 5475E+00 

- • 73  54E+00 

-.6531E+00 

- . 2667E+9  1 

-• 3726E-02 

- .5  954E+00 

-• 5258E+00 

-.7  277E  + 03 

-• 2509E+01 

- • 4305E-0  2 

-.627  7E+00 

-• 4529E+00 

-.7780E+00 

-• 237  0E  + Q1 

-•4857E-0  2 

-.663 3E+00 

3668E+QG 

-•8334E+U0 

-• 2261E+01 

-• 5390E-0  2 

- • 6934E+  00 

-•3387E+C0 

-•8802E+03 

-.2Q23E+01 

-.6292E-02 

-.762  8E+ 00 

-»  2265E  + 00 

- • 9882E  + 0 0 

-• 1926E+0  1 

-• 6 696E-0  2 

- . 791 5E+0Q 

-.18402+00 

-* 1033E+0 1 

— 

, *■ «„  -ii  liTit — .4  ...  — ■*&-*- 

«j>"  + 

- • x'au  scru  i 

“•oioo c-y  c 

- coct  uu 

-•if  cic+uy 

“•mtic+yi 

-.1857E+01 

- • 6983E-0  2 

“.8119E+Q0 

-• 1522E+0Q 

-.1Q65E+Q1 

- • 1528E+0 1 

-.8315E-02 

• • 9078E  + 00 

- • 5852E-0  3 

-,1214E+ai 

- • 1335E+0 1 

- • 9064E-02 

- *961 8E+02 

•8853E-C1 

-.1298E+01 

- • 1335E+Q  1 

-.9064E-Q2 

- .9616E+00 

. 8853E-01 

-.1298E+01 

-.9880E  + 0 ( 

-.1033E-01 

“ •105  ££+01 

• 2464E+00 

- • 1439E+0 1 

- • 55  31E  + 0 0 

-.1175E-01 

-.il52E+Gi 

•4435E+00 

-.1594E+31 

- • 3177E  + G 0 

-.1244E-01 

- • 1199E+01 

• 5566E+0  0 

-.1663E+fli 

• 11 1 OE-i  5 

-.1328E-01 

-.1256E+01 

• 70  25E+00 

-.1756E+01 

THETA  = 0.0  0 PSI  = 

PLOT  LABEL  - THETA=0,  PSI=160, 
PEMSF  = 1.5672E+0C 

160.00 

DELTA=2.5 

DELTA  = 

2.50 

TRAJ.  NO,  1 OF 

22  POINTS 

XTRAJ 

YTRAJ 

ZTRAJ 

X PLOT 

YPLOT 

5Q00E+01 

0, 

-.500CE+00 

-. 2Q99E+01 

-.5831E+0G 

-.5GQQE+Q  3 

0 9 

-.5G0CE+Q0 

-•  2G99E+01 

-• 5831E+00 

-.4525E  + 01 

5131E-03 

-•509  IE + 00 

-.1814E+81 

- • 5973E  + 00 

- • 4G51E+01 

-.1Q49E-32 

” • 5184E+  00 

-.1529E+01 

••6119E+30 

- • 3232E  + 0 1 

• • 2 247E-0  2 

-.5418E+00 

- • 10  3 6E  + 0 1 

-•  6465E+Q0 

-.32Q8E+01 

-.2  294E-G2 

- • 542  SE+00 

-•1021E+01 

-•65G4E+00 

3124E+01 

“•  2469 £-0  2 

“ • 5475E+  00 

-.970  3E+00 

-.  6575E+00' 

- • 2667E  + 0 1 

-.3726E-82 

-.595AE+00 

“•  6948E+00 

-.7326E+C0 

-• 25G9E+01 

-.4305E-82 

-.6277E+00S 

-.599GE+0U 

-•7633E+80 

237GE  + 01 

- • 4 857 E-3  2 

-.6633E+00 

-. 51486+00 

-.6390E+00 

-•  2261E+0  3 

- • 5 3Q0E-C  2 

"• 693  4E+  00 

-• 449CE+Q0 

”• 886  IE  + 00 

- • 20  23E  + 0 i 

“ . 6 292E-0  2 

-.76  2 8E+0a 

- • 30  43E+00 

- • 9949E+0Q 

-• 1926E+  0 1 

- c 6 696E-C  2 

~ ,791 5E+  00 

-• 2459E+0  0 

-.104GE+O1 

^ -.19Q9E+01 

-.6768E-G2 

-.7966E+0Q 

-• 2355E+00 

-• 1048E+01 

01  - • 18  57E+01 

- . 6 983E-0  2 

-.8119E+00 

-•2041E+00 

-.1Q72E+01 

-• 1528E+0  1 

-.8315E-02 

- .9  076 E+ 00 

- • 50  43E-0  2 

- • 1222E+0 1 

- • 133  5E  + 0 1 

- . 9064E-G  2 

-• 9616E+00 

• 1120E+GO 

-• 13Q7E+01 

-. 1335E+01 

-.9064E-02 

-.9618E+00 

• 112QE+QQ 

-.13076+01 

-•988GE+QG 

-.1333E-C1 

“.1052E+01 

• 3223E+GG 

-.1449E+01 

5531E+08 

-.1175E-01 

- • 115  2E+  01 

. 5849E+6  0 

-.1605E+ai 

-. 3177E+00 

- . 1 244E-Q 1 

- .1 199E  + 01 

.72716+00 

-.1679E+01 

•liiOE-15 

-• 1328E-01 

-.1256E+G1 

• 918  9E+G  0 

-•1768E+0 1 

TRAJ.  NO.  1 OF 

22  POINTS 

XTRAJ 

YTRAJ 

ZTRAJ 

XPLOT 

YPLOT 

-• 5000E+0 1 

0 9 

- .5000E+00 

- • 1649E+Q 1 

-•563 IE +30 

-•500GE+01 

0. 

-.530CE+00 

- • 1649E+0 1 

-.5631E+00 

- • 4525E+01 

- • 5 131E-0 3 

-.509  IE *00 

-.1425E+01 

- . 5973E  + 30 

— • 40  51E  + 0 1 

- . 1Q49E-0  2 

-.518AE+00 

- • 120 1E+C 1 

-.6U9E+00 

- • 323  2E+01 

-.2247E-D2 

-•541 fE+Q0 

-.8129E+00 

-• 6485E+00 

3208E+01 

-.2294E-G2 

- .5  429E+QQ 

-.8815E+S0 

- • 6504E  + 0 0 

-• 3124E+01 

-. 2469E-02 

- • 5475E+  00 

-• 7615E+00 

-•6575E+UU 

-.  2667E  + 01 

- . 3726E-0  2 

-•5954E+0G 

- • 5446E+00 

- . 7326E+00 

-.  2599E+ifi 

• • 4305E-Q  2 

-.6277E+00 

- • 469 1E  + 0 0 

-.7833E+00 

-.2  37  0E  + 01 

-.48576-02 

- • 66 3 3 £+03 

-•40  28E  + 0 0 

- •6393E  + 00 

2261E+01 

- • 5390E-G  2 

-.6934E+00 

-•35G9E+00 

-•8861E+00 

-.2023E+C1 

- . 6 292E-G2 

- • 762  6E  + Q0 

-.2369E+00 

-.9949E+00 

- • 19  26E+Q  1 

- • 6 696E-0  2 

- • 791 SE+0G 

-• 1908E+00 

-.1040E+01 

-• 1909E+D1 

“•6768E-02 

- • 7 S66E+  00 

162  6E*0  0 

-• 1C  46E  + 0 1 

-.1857E+G  1 

“•6983E-0  2 

- • 8 S19E+  00 

-.1579E+00 

- • 107  2E  + Q 1 

- • 1528E+0  1 

-.8315E-02 

-.9D78E+00 

- • 9949E-0  3 

-.1222E+01 

1335E  + 01 

-. 9064E-02 

- .961 8E  + 00 

« 91 24E-0 1 

-.1307E+01 

- • 1335E+G  1 

-• 9 064E-G  2 

-• 9618E+00 

•9124E-01 

-•1307E+01 

..ftjR.*.  n r 4 . 

.......  — ,n  A __ 

, ...  T ....  « r-  o r*  ■ <* 

.'3 9JT-  -»  m.  . 

^ J 4 J A,r  • +»  A 

* • uooutt uu 

-.5531E+00 
-• 3177E+0  C 
•iilOE-15 


'•iUOOfWi 

- • 1 175E-0 1 
-.1244E-01 
- • 1 328E-01 


-•lustttui 
- • 1152E+  01 
-.1199E+01 
-.1256E+01 


• iscftrvu 

• 4638E+0  0 
. 5758E+00 
• 7268E+08 


-vj 

CTl 


-.1605E+01 
-.1679E+01 
- • 1768E+0 i 
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PROGRAM  PBOXC 


74/74 


CPT  = 2 


PTN  4. 7*^76 


C2/23/80  20.25.11 


iPT?Drf,>  Pr^r  ' 1NPUT»TAP^&»  TAPE5=INPUT,  OUTPUT, 

1 TAPES  , TAPE9 , TAPE3S,  PUNCH,  TAPtl=PUNCH) 

H.  G.  NORMENT,  ATMOSPHERIC  SCIENCE  ASSOCIATES  - NOVEMBER  1979 

THIS  CODE  HAS  THREE  PRINCIPAL  USES  - 

1.  DEBUG  HESS-SMITN  COOE  INPUT  DATA. 

2.  PLOT  3 -01  MENS  I CNAL  BODY  SURFACE  DESCRIPTION. 

I!!MKw«SSr5JJgit ELEhENT  DAU  T0  UNIT  9 F0K  LAT£fi 


PERFORMS  PRELIMINARY 
TRANSLATING,  RCTATING 

non-lifting  coce  ( rpt 

may  9E  PUNCHED  (IPUNC 
ALSO  MAY  OE  PPCCESSED 
SMITH  FIRST  OUTPUT  <t 
TRUE) . OATA  ALSO  MA 
0 ATA  ARE  WRITT  (N  ON  T 
BY  SR  STEREO  WHICH  PL 


PROCESSING  ( IPR0S=  TRUE ) (SCALING, 

) OF  INPUT  DATA  FOR  THc.  HESS-SHITH 
*;!?,•  1“J622).  PRELIMINARY  PROCESSED  DATA 
H-TRUE).  AFTtR  PRELIMINARY  PROCESSING,  OAT 
INTO  QUADRAL ATER AL  ELEMENTS  ANC  TMt  HESS- 
S.  41622  SEC.  9.4)  MAY  Bt  PRINTED  <IPRNT= 

Y 3E  PLOTTcO  (IPICT=TRU£) . IN  ANY  CASE  THE 
0 JNIT  9,  WHICH  MAY  BE  SAVED  FOR  USE  LATER 
OTs  THE  BODY  ALONG  KITH  TRA JECT CR F S. 


i 

90  00 


REAL  MACH 

LOGICAL  IPROS , IPUNCH,  I PRNT , IPICT,  ICRT 
COMMON  ft/  MACH,  BETA,  R3ETA 
R (AO  I N CONTROL  DATA 

TOS«T,(5;5!f00,!‘"^,-I:,l  = lll5,>IFLAC-',S’"'  Kfl SE 

• 10  “•  “•  »• 

IFIKMACH  .NE.  C)  RE  AO (5, b)  MACH 
6 FORMAT  ( F 1 0 . 6 ) 

BEI A = S CRT (1.0  - MACH  * MACH) 

RBETA  = 1,0  / BETA 

„„  fo^;85;1Tip,'os'  imj-  t«i 

IF(  IPRO!  ) RE  AO  ( 5 , 70  UO ) 

1 Y TRA  NS , ZTRANS 
7 C 00  FORMAT  ( 7F  10. 0 > 

IFC.NOT.  IFROS)  GC  TO  53 
IFCXSCALE  .EC.  0.0)  XSCAlE=1.0 
I F ( Y SC  AL E .EQ.  U.O)  VSCALE=1.C 
I F( 7SC ALE  .EQ.  0.0)  ZSC4LE=1.J 
COSA  = COST  0.0174533  * ANGLE) 

SINA  a S IN ( 0.0174533  * ANGLE) 

50  REWIND  8 
REWINO  9 
CALL  PINFUT 

IFTIPICT  ) CALL  PICTUR 

) CALI  FRAME  ( 0 . 5 * 11  < 

.AND.  .NOT.  ICRT) 

.ANO.  .NOT.  ICRT) 


ANGLE,  XSCALE,  Y SCALE , L SCA LE ,X T RAN S , 


IF(  ICRT 
IF( IPICT 
I F ( IPICT 
I F< IPICT 
REWINO  9 
STOP 
E (0 


•AND, ICRT)  CALL  ENDPlT 


5) 

CALL 
CALL  ENDCC 


PLOT (15,0,  4. a, -3) 


FBOXC 
PBOXC 
PBOXC 
P8CXC 
PBOXC 
PBCXC 
P8CXC 
PBOXC 
PBCXC  10 
PBOXC  11 
PBCXC  12 
PBOXC  13 
PBCXC  14 
APBCXC  15 
PBOXC  16 
PBCXC  17 
PBCXC  18 
PBCXC  19 
PBOXC  20 
PBCXC  cl 
PBCXC  22 
PBCXC  23 
PBCXC  24 
PBCXC  25 
FBC.XC  26 
FBCXC  27 
PBCXC  28 
PBCXC  29 
FBOXC  30 
PBCX  ( 31 
FBOXC  32 
PBOXC  33 
PBCXC  34 
PBCXC  35 
FBCXC  36 
FBCXC  37 
PBCXC  38 
PBCXC  39 
PBOXC  40 
FBCXC  41 
PBOXC  42 
PBCXC  43 
PBCXC  44 
PBCXC  45 
PBCXC  46 
P6CXC  47 
PBCXC  48 
PBOXC  49 
PBCXC  50 
PBCXC  51 
PBOXC51A 
FBCXC  52 
PBCXC  53 
FBCXC  54 
FBCXC  55 
PBOXC  56 
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♦DECK,  PEAOER 

SUBROUTINE  PEADER 

COMMON  HEDRC  15),  NQUAD,  KASE,  NSYM,  IFLAG,  IPROS,  IPUNCH,  IPRNT 

1 IPICT,  ICRT,  SINA,  CO SA » XSCALE,  YSCALE , ZSCAlE,  XTRANS,  YTSANS 

2 ZTRANS 

LOGICAL  IPROS,  I PUNCH,  IFRNT,  IPICT , ICRT 
DATA  IPAGE/07 

1 FORMAT  I 1H1,  4X,  14H  PROGRAM  PBCXC,  15X,  30 HATMOSPHERIC  SCIENCE 
1SOCIATES/  38X  , 22H8EDFORD,  MASSACHUSETTS,  22X,  4HPAGEI 

2 7X,  8H  BODY  ID..  2X,  A4/  30X,  15A4) 

10  IPAGE  = IPAGE  «•  1 

WRITE  16,1)  IPAGE,  KASE,  IHEORC I) , 1=1, 15) 

RETURN 

END 


r L.  W 

PE  AO 
, PEAD 
, PE  AO 
PEAD 
PEAD 
PEAD 
ASPEAO 
57PEA0 
PEAD 
PEAD 
PEAD 
PEAD 
PE  AO 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 


♦DECK,  PATPROS 

SUBROUTINE  PATPROS C X,  Y,  Z,  XX,  YY,  ZZ  > 

THIS  IS  A SIMPLE  SCALING  ANO  ORIGIN  TRANSLATION  COCE  FOR  THE 
DOUGLAS  BOXC  POTENTIAL  FLOW  CODE  DATA  INPUT 

XTRANS,  YTRANS,  ZTRANS  ARE  ORIGIN  TRANSLATIONS 
. XSCALE,  YSCALE,  ZSCALE  ARE  SCALE  FACTORS 
THE  CODE  ALSO  ALLOWS  FOR  ROTATION  IN  THE  X - Z PLANE  TO  ADJUST 
FOR  ARBITRARY  ANGLE  OF  ATTACK 

SINA,  COSA  ARE  SINE  AND  COSINE  OF  ANGLE 

ANGLE  IS  THE  ANGLE!  INPUT  IN  DEGREES)  THAT  THE  AIRPLANE  AXIS 
MAKES  WITH  THE  NEGATIVE  X AXIS  POSITIVE  COUNTERCLOCKWISE 
FROM  THE-X  AXIS)  AFTER  SCALING  ( NOTE  - AFTER  SCALING  THE 
AIRPLANE  NOSE  POINTS  DOWN  THE  NEGATIVE  X AXIS) 

THIS  VERSION  FOR  USE  WIT  F P80XC 


LOGICAL  IPROS,  IPUNCH,  IPRNT,  IPICT,  ICRT 

COMMON  HEDRI  15),  NQLAO,  KASE,  NSYM,  IFLAG,  IPROS,  IPUNCH,  IPRNT, 

1 IPICT*  ICRT,  SINA,  COSA,  XSCALE,  YSCALE,  ZSCALE,  XTRANS,  Y TRANS , 

2 ZTRANS 

X = C X - XTRANS  ) * XSCALE 

Y = ( Y - YTRANS  ) * YSCALE 

Z = ( Z - ZTRANS  ) * ZSCALE 

XX=  C XX-  XTRANS  ) * XSCALE 

YY=  ( YY-  Y IRA  NS  ) * YSCALE 

ZZ=  ( ZZ-  ZTRANS  ) * ZSCALE 
XP  = X 

X = XP  * COSA  - Z * SI KA 

Z = XP  * SINA  ♦ Z * COSA 

XP  - XX 

XX=  XP  * COSA  - ZZ*  SINA 

ZZ=  XP  * SINA  ♦ ZZ*  COSA 

RETURN 


PA  TP 

1 

PA  TP 

2 

PATP 

3 

PA  TP 

4 

PATP 

5 

PATP 

6 

PATP 

7 

PATP 

8 

PATP 

9 

PATP 

10 

PATP 

11 

PATP 

12 

PATP 

13 

PATP 

14 

PATP 

15 

PATP 

16 

PATP 

17 

PATP 

18 

PATP 

19 

PATP 

20 

PATP 

21 

PATP 

22 

PATP 

23 

PATP 

24 

PATP 

25 

PATP 

26 

PATP 

27 

PATP 

28 

PATP 

29 

PATP 

30 

PATP 

31 

PATP 

32 

PATP 

33 

PATP 

34 

PATP 

35 

PATP 

36 

o o o 


*DECK,PINPUT  PI  NP 

SUBROUTINE  PINPUT  PINP 

PINP 

PROCESSES  THE  HESS-SHITH  COOE  INPUT  DATA  PINP 

PINP 

REAL  NX,  NY,  N2  , MACH  PINP 

LOGICAL  IPROS,  IPUNCH,  IFRNT,  IPICT,  ICRT,  RFLAG , AFLAG,  BFLAG  PINP 
INTEGER  STAT,  STATT,  C CNV  PINP 

COMMON  HEDR ( 151,  NQUAD,  KASE,  NSYM,  IFLAG,  IPROS,  IPUNCH,  IFRNT,  PINP 

1 IPICT,  ICRT,  SINA,  COS  A,  XSCALE,  Y SCALE,  ZSCALE,  XTRANS,  VT  FANS , PINP 

2 ZTRANS  PINP 

COMMON  /M/  MACH,  BETA,  REETA  PINP 

DIMENSION  SPH  ( 200  ),  CPH  ( 203  >,  XINP  C 200  ),  ZINP  ( 200  ) PINP 
DIMENSION  LAXIS ( 8) , RAX  IS  C 6 ) , L45(6),  L<5)  PINP 

DIMENSION  XA  ( 500  ),  XB  C 500  ),  YA  ( 500  ),  YB  ( 500  ) , PINP 

1 ZA  ( 500  ),  Z3  ( 500  >»  NL I NE  ( 5 0 0 ),  NLT  ( 500  ),  CFLAG  (3 ) , PINP 

2 XI  ( 4 ) * ETA  (4),  XIN  (4),  YIN  (41,  ZIN  (41,  PINP 

4 RX  14) , ft  (4),  RY  (4)  PINP 

EQUIVALENCE  <NULL,NQUAO>  PINP 

DATA  CFLAG  / 2H  1,  2H  2,  2H  / PINP 

DATA  PI/3,  141593E0/,  HAFPI/i.  570736EC*/,  EPS/. 0001/  PINP 

DATA  LAXIS  / 4HVIEW,  4H  CF  , 4HB00Y,  4H  LOO,  4HKING,  4H  OOW,  PINP 

i 4HN  TH,  1HE/  PINP 

DATA  RAXIS/  4H  AXI  , 4HS  TO,  4HWAR3,4H  THE,  4H  ORI,  4HGIN  / PINP 

DATA  L4 5/  4H45-0,  4HEGRE , 4 HE  VI,  4HEW  F,  4HROM  , 4HTHE  / PINP 

DATA  R4 5/  4HSIDE/,  L/5*4H  / PINP 

DATA  PLUSX,  MINUSX,  FLUSY,  MINUSY,  PLUSZ,  MINUSZ  PINP 

1 / 4H  +X  , 4H  -X  , 4H  «■  Y , 4H  -Y  , 4H  + Z , 4H  -Z  / PINP 

1 FORMAT  ( 3E10.0,  12  / 3F10.O,  12)  PINP 

4002  FORMAT  ( 1H0,  6X  5 FN  M,  7X,  4 ( 1HX,  liX  ),  2HNX,  11X,  3HNFX,  PINP 

1 liX,  1HD  / 19X,  4 ( 1HY,  iiX  I,  2HNY , 11X,  3HNPV , 11X,  1HT  / PINP 

2 19X,  4 ( 1H Z,  11X  ),  2HNZ,  ilX,  34NPZ,  11X,  1HA  ) PINP 

4005  FORMAT  MHO*  7X,  14,  4F12.6,  2F13.6,  E14.4, A2/(  12X,  4F12.6,  PINP 

1 2F13.6,  E14.4  ) ) PINP 

4010  FORMAT  ( 1H0,  3X  , 214,  4F12.6,  2F13.6,  E14. 4 , A2/ ( 12X , 4F12.6,  PINP 

1 2F13.6,  E14.4  ) ) PINP 

4015  FORMAT  ( 1H0,  3 ( 20 X,  12H************  ))  PINP 

PINP 

C INPUT  — SECTION  9.1  INPUT  SCHEME  PINP 

KLCT  = 0 PINP 

NULL  = 0 PINP 

NPRT  = 13  PINP 

CALL  PEADER  RINP 

WRITE  <6,  40)  PINP 

40  FORMAT  ( 1H0 , 16X , 44HP  ARAMETRIC  INFORMATIO  N//)PINP 
IF  (NSYM  - 1)  54,  56,  58  PINP 

54  WRITE  (6,  55)  PINP 

55  FORMAT  (1H0 ,16X, 21HN C SYMMETRY  SPECIFIED)  PINP 

GO  TO  61  PINP 

56  WRITE  (6,  57)  PINP 

57  FORMAT  C 1H 0 ,16X,  30  HT HERE  IS  ONE  P.ANE  OF  SYMMETRY)  PINP 

GO  TO  61  PINP 

58  WRITE  (6,  59)  NSYM  PINP 

59  FORMAT  (1H0 , 16X , 9HTH ERE  ARE, 12,  13H  PLANES  OF  SYMMETRY)  PINP 

61  IF  ( MACH  , NE.  0.0  ) WRITE  (6,  21)  MACH  PINP 

21  FORMAT  (1H0, 16X* 13HMACH  NUMBER  =,F10.5)  PINP 

IF  (IFLAG  • EQ.  0)  GO  TO  29  PINP 

READ  (5,  20)  NLM1,  MMIN,  B,  C . PINP. 

IF  (8  . EQ.  0.0)  B = l.,0  PINP 

IF  (C  • EQ,  0, 0 ) C = 1,0  PINP 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
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20  FORMAT  <215,  2F10.5  ) 

4 FORMAT  < 8F10.Q  ) 

WRITE  <6,  62)  NLMi,  MMIN,  B,  C 

62  FORMAT  <1H0,16X, 10HGENERATE  A, 13, 

1 4X,3HC  =,F10,5  ) 

MLINES  = MMIN  ♦ 1 
NLINES  = NLMi  ♦ 1 
N = 0 

IF  < NSYM  .EQ.  0 i GO  TO  2 
IF  < NSYM  - 2 ) 3,  5,  6 

2 PITH  = PI 
PIPHI  * PI  ♦ PI 
GO  TO  7 

3 PITH  = PI 
PIPHI  ='  PI 
GO  TO  7 

5 PITH  = PI 
PIPHI  = HAFPI 
GO  TO  7 

6 PITH  = HAFPI 
PIPHI  = PITH 

7 SPH  < MLINES  ) = SIN  < PIPHI  ) 

SPH  < 1 > = 0.0 

CPH  < MLINES  ) * COS  < PIPHI  ) 

CPH  <11=  i.O 
EKM  = MMIN 
EKN  = NLMI 
EMM  = 0.0 
DO  8 1 = 2,  MMIN 

EMM  = EMM  + 1.0 
PHI  = EMM  / EKM  * PIFHI 
SPH  < I > = SIN  < PHI  ) 

8 CPH  ( I ) = COS  < PHI  > 

IF  < IF  LAG  .EQ.  2 ) GO  TO  10 
ENN  = i.O 

DO  9 1 = 1,  MLINES 

XA  ( I ) = i.O 

YA  (I  ) = 0.0 

9 ZA  < I ) = 0.0 

GO  TO  18 

10  READ  (5,4)  ( XI NP  ( I ) , ZINP  < I ), 

DO  11  I = 1,  MLINES 
XA  < I ) = XINP  < 1 ) 

YA  ( I ) = 8 * ZINP  ( 1 I * SPH  II) 

ZA  < I ) = - C * ZINP  < 1 ) * CPH  ( I ) 

XB  < I ) = XINP  < 2 ) 

YB  ( I ) = 0 * ZINP  < 2 ) * SPH  < I ) 


11 

ZB 

< I 

) = 

- C * ZINF  < 

2 ) * 

CPH 

< 

I 

) 

NLCT  = 

2 

GO 

TO 

250 

12 

DO 

14 

1 = 1 

, MLINES 

XA 

< I 

) = 

XB  < I ) 

YA 

( I 

) = 

YB  < I ) 

14 

ZA 

< I 

) = 

ZB  < I ) 

IF 

< IFLAG 

.EQ.  1 ) GO 

TO  16 

NLCT  = 

NLCT 

♦ 1 

DO 

15 

I = 

1,  MLINES 

XB 

< I 

) = 

XINP  < NLCT 

) 

YB 

C I 

> = 

B * ZINP  < 

NLCT  ) 

* SPH 

< 

I 

15 

ZB 

( I 

> = 

- C * ZINP 

< NLCT 

) * 

CPH 

< 

PI NP  61 
PI NP  62 
PI NP  63 

2H  X , 13 » 12H  SPHERE,  B =,F10  .5,  PINP  64 

PINP  65 
PINP  66 
PINP  67 
PINP  68 
PINP  69 
PINP  70 
PINP  71 
PINP  72 
PINP  73 
PINP  74 
PINP  75 
PINP  76 
PINP  77 
PINP  78 
PINP  79 
PINP  80 
PINP  81 
PINP  82 
PINP  83 
PINP  64 
PINP  65 
PINP  86 
PINP  87 
PINP  88 
PINP  89 
PINP  90 
PINP  91 
PINP  92 
PINP  93 
PINP  94 
PINP  95 
PINP  96 
PINP  97 
PINP  98 
PINP  99 
PINP  10  0 

1 = 1,  NLINES  ) PINP  101 

PINP  102 
PINP  1C3 
PINP  10  4 
PINP  105 
PINP  106 
PINP  107 
PINP  108 
PINP  109 
PINP  110 
PINP  ill 
PINP  112 
PINP  113 
PINP  114 
PINP  115 
PINP  116 
PINP  117 
PINP  118 

) PINP  119 

I ) PINP  120 


81 


GO  TO  2 53 

PINP 

121 

16  ENN  = ENN  + 1.0 

PINP 

122 

18  THETA  = ENN  / EKN  * PITH 

PINP 

123 

STH  = SIN  ( THETA  ) 

PINP 

124 

CTH  = COS  ( THETA  ) 

PINP 

125 

DO  17  I = 1,  MLINES 

PINP 

126 

XB  ! I ) = CTH 

PINP 

127 

YB  I I ) = B * STH  * SPH  ! I ) 

PINP 

128 

17  ZB  ( I ) = - C * STH  * CPH  ! I ) 

PINP 

129 

GO  TO  2 50 

PINP 

130 

29  N = -1 

PINP 

131 

IF  ( IPROSI  WRITE!  6,  10  1) 

PINP 

132 

IF ( IPROS)  WRITE  !6» 102)  XSCALE,  YSCALE,  ZSCALE,  XTRANS,  YTRANS, 

PINP 

133 

1 ZTRANS,  COSA,  SINA 

PINP 

134 

IF(IPICT)  WRITE! 6* 103) 

PINP 

135 

IF ( IPUNCH)  WRITE ! 6,104) 

PINP 

PINP 

136 

137 

101  FORMAT!  1H0  , 16X,  61HINPLT  DATA  ARE  PROCESSED  BY 

SCALING,  ROTATI  N3  PINP 

138 

1 AND  TRANSLATING) 

PINP 

139 

102  FORMAT!  18X,  58HXSCA LE»  YSCALE,  ZSCALE,  XTRANS, 

YTRANS,  ZTRANS, 

COPINP 

140 

ISA,  SINA/  15X,  8UPE14.4)) 

PINP 

141 

103  FORMAT!  1H0,  16X,18HFLOTS  ARE  PREPARED) 

PINP 

142 

1 0 A FORMAT!  1H0,  16X,  16HDATA  ARE  FUNCHED) 

PINP 

143 

XMIN  = 1. 0E6 

PINP 

144 

XMAX  = -1.  0E6 

PINP 

J.i  9 

YMIN  = 1.  0E6 

PINP 

1*6 

YMAX  = -1.0E6 

PINP 

147 

ZMIN  = 1.  0E6 

PINP 

148 

ZMA  X = -1.0E6 

PINP 

149 

GO  TO  50 

PINP 

150 

30  IF  1 RFLAG  ) GO  TO  50 

PINP 

151 

RFLAG  = .TRUE. 

PINP 

152 

X = XX 

PI  NP 

153 

Y = YY 

PINP 

154 

Z = ZZ 

PINP 

155 

STAT  = STATT 

PINP 

156 

GO  TO  66 

PINP 

157 

50  RFLAG  = .FALSE. 

PINP 

158 

51  READ  { 5,  1 ) X,  Y,  Z,  STAT,  XX,  YY , ZZ,  STATT 

PINP 

159 

IF  ! IPROS  ) CALL  PATPROS!  X,  Y,  Z,  XX,  YY , ZZ  ) 

PINP 

160 

IF ! IPUNCH  ) WRITE  !1, 5100)  X,  Y,  Z,  STAT,  XX,  YY, 

ZZ,  STATT 

PINP 

161 

5100  FORMAT!  3!  F10.7),  12/  3!  F10  .7) , 12) 

PINP 

162 

WRITE  ! 9)  X ,Y,Z, STAT  , XX, YY ,ZZ, STATT 

PINP 

PINP 

163 

164 

64  XMIN  = AMINUXMIN,  X * RBETA) 

PINP 

165 

YMIN  = AMIN1! YMI  N»  Y) 

PINP 

166 

ZMIN  = AMI N1 ! Z MI N*  Z) 

PINP 

167 

XMAX  = AMAX1!  XMAX,  X * REETA) 

PINP 

168 

YMAX  = AMAX1! YMAX.Y) 

PINP 

169 

ZMA X = AMA XI ! ZMA  X, Z) 

PINP 

170 

IF! STAT  .£Q.  3)  GO  TO  164 

PINP 

171 

XMIN  = AMINUXMIN,  XX*  REETA) 

PINP 

172 

YMIN  = AMIN  liYMIN,  YY) 

PINP 

173 

ZMIN  = AMI N1 ! ZMI N, ZZ ) 

PINP 

174 

XMAX  = AMAX1 ! XMAX , XX*  RBETA) 

PINP 

175 

YMAX  = AMAX1! YMAX, YY) 

PINP 

176 

ZMA X = AMAX1! ZMAX, ZZ  ) 

PINP 

177 

164  IF!  NSYM  .EQ.  0 ) GO  TO  65 

PINP 

178 

YMIN  = AMIN1!  YMIN,  -Y) 

PINP 

179 

YMAX  = AMA  XU  YMAX,  -Y) 

PINP 

180 

82 


IFCSTAT  .EQ.  3)  GO  TO  165 
1 YMIN  = AMI  NIC  YMIN,  -YY  > 

YMAX  = AMAXK  YMAX,  -YY) 

165  IF ( NS YM  .EQ.  1 » GO  TO  65 
ZMIN  = AMIN1I  ZMIN,  -Z) 

ZMAX  = AMAXK  ZMAX » -Z) 

IFCSTAT  .EQ.  3)  GO  TO  65 
ZMIN  = AM INI C ZMIN,  -ZZ) 

ZMAX  = AM  X1C  ZMAX,  -ZZ) 

65  IF  CN  .EU.  i-1)  )GO  TO  80 

66  IF  (STAT  .EQ.  0 .OR.  STAT  .EQ.  3)  GO  TO  180 
IF  C STAT  .EQ.  2 ) GO  TO  200 

IF  ( .NOT.  AFLAG  ) GO  TO  200 
MC  = M 
80  -M*  1 

IF  ( STAT  .EQ.  2 > GO  TO  150 
IF  C .NOT.  8FLAG  ) GO  TO  84 
75  OO  81  J = 1,  MC 
f-  XA  C J ) = XB  ( J ) 

YA  ( J ) = YB  ( J ) 

83  ZA  C J ) = ZB  I J ) 

r 83  XB  C 1 ) = X 

t Y3  ( 1 ) = Y 

«■.  Z 8 (1  ) = Z 

GO  TO  30 

84  IF  ( AFLAG  ) GO  TO  85 

l BFLAG  = .TRUE. 

GO  TO  75 

85  AFLAG  -•  .FALSE. 

GO  TO  83 

150  AFLAG  = .TRUE. 

f BFLAG  = .FALSE. 

IF  CN  .EQ.  C-1DN  = 0 
160  XA  C M ) = X 
YA  C M ) = Y 
ZA  < M ) = Z 
£ GO  TO  30 

180  M = M + 1 

IF  C AFLAG  ) GO  TO  160 
» XB  CM  ) = X 

E YB  C M ) = Y 

| ZB  C M > = Z 

I IF  C STAT  .NE.  3 ) GO  TO  30 

I 200  MMIN  = MI NO  CM,  MC)  - 1 

'•  MC  = M 

250  N = N ♦ 1 

KLCT  * KLCT  + 1 

IF ( .WOT.  IPRNT)  GO  TO  2100 

i C BEGIN  COMPUTATION  OF  NULL  PCINTS  AND  28  QUANTITIES 

DO  2000  1 = 1,  MMIN 
NULL  = NULL  ♦ 1 

' XI NCI)  = X A C I ) * REETA 

f XINC2)  = XACH-i)  * RBETA 

\.  XINC3)  = XBCI*1)  * RBETA 

XINC4)  = XBC  I ) * RBETA 
' YIN (1)  = YACI) 

YINC2)  = YA  <1*1) 

YINC3 ) = Y B C I * 1 ) 

' 83 


PINP  181 
PI NP  182 
PINP  163 
PINP  184 
PINP  125  ) 

PINP  186 
PINP  187 
PINP  168 
PINP  189 
PINP  190 
PINP  191 
PINP  192 
PINP  193 
PINP  194 
PINP  195 
PINP  196 
PINP  197 
PINP  198 
PINP  199 
PINP  290 
PINP  201 
PINP  202  ,^i 
PINP  20  3 
PINP  204 
PINP  20  5 
PINP  206 
PINP  207 
PINP  208 
PINP  209 
PINP  210 
PINP  211 
PINP  212 
PINP  213 
PINP  214 
PINP  215 
PINP  216 
PINP  217 
PINP  218 
PINP  219 
PINP  220 
PINP  221 
PINP  222 
PINP  223 
PINP  224 
PINP  225 
PINP  226 
PINP  227 
PINP  228 
PINP  229 
PINP  230 
PINP  231 
PINP  232 
PINP  233 
PINP  234 
PINP  235 
PINP  236 
PINP  237 
PINP  236 
PINP  239 
PINP  2 40 


J 


c 

c 


Y I N ( 4 ) 

= YB (I) 

PINP 

241 

ZIN<1) 

= ZA ( I) 

PINP 

242 

ZINC2) 

= ZA  C I +13 

PINP 

243 

ZIN (31 

= ZB (I+i) 

PINP 

244 

ZI N £ 4) 

=.  ZB(I» 

PINP 

245 

PINP 

246 

FORM  DIAGONAL  VECTORS 

PINP 

247 

ECU  AT  I ON 

( 64  ) 

PINP 

248 

PINP 

2 49 

T1X  = 

XINC  3 ) - 

X IN ( 1 ) 

PINP 

2 50 

T2X  = 

X IN( 4)  - 

XIN  (2) 

PINP 

251 

T1Y  - 

Y IN( 3 ) - 

YIN ( 1 1 

PINP 

252 

T2Y  = 

Y IN ( 4 ) - 

YIN ( 2 ) 

PINP 

2 53 

T1Z  = 

ZIN( 31  - 

ZIN(l) 

PINP 

254 

T2Z  = 

Z IN( 4 ) - 

Z IN (2  ) 

PINP 

255 

C FORM  CROSS  PRODUCT 
C EQUATION  ( 65  > 


N = T2  XT! 


NX  = T2Y*T1Z  - T1Y*T2Z 
NY  = T1X*T2Z  - T2X  *T12 
NZ  = T2X*T1Y  - T 1X*T 2Y 

VN  = SQRT  C NX*  NX  * NY*  NY  ♦ NZ*  NZ  ) 

C FORM  UNIT  NORMAL  (/ECTOR 
C EQUATION  ( 66  ) 

NX  = NX  / VN 
NY  = NY  / VN 
NZ  = NZ  / VN 

C COMPUTE  AVERAGE  POINT 
C EQUATION  ( 68  ) 

AVX  = .25  * < XIN(l)  + X IN  ( 2)  + XINC3»  ♦ XIN<4)  I 

AVY  = .25  * C YINCi)  + YIN(2>  + YIN<3)  + YIN(4>  ) 

AVZ  = .25  * ( ZIN(l)  + Z IN ( 2)  ♦ ZIN(3I  ♦ ZIN(4)  ) 


C COMPUTE  PROJECTION  DISTANCE 
C EQUATIONS  ( 69  ) AND  ( 71  ) 

D = NX ♦ l AVX  - XI M 1)  > + 
PD  = A9SC  D ) 

C EQUATIONS  C 73  > AND  ( 74  ) 


NY* ( AVY  - YIN ( 1 ) ) + NZ* (AVZ-ZIN(l)l 


T = SQRT  C T1X*T IX  4 T1Y*T1 Y ♦ T1Z*T1Z  ) 

T1X  = T1X  / T 
T1Y  = T1Y  / T 
T1Z  * T1Z  / T 

C EQUATION  ( 75  » 

T2X  = NY*T1Z  - NZ*T1Y 
T2Y  = N Z*T IX  - N X*T 1 Z 
T2Z  = NX*T1Y  - N Y*T1X 

C COMPUTE  COORDINATES  OF  CORNER  POINTS  IN  REFERENCE  COORD.  SYSTEM 
C EQUATION  S 72  > 

84 


PI  NP 
PI  NP 
PI  NP 
PINP 
PI  NP 
PI  NP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 


2 56 
2 57 

258 

259 

260 
261 
262 

263 

264 
2 65 
266 

267 

268 
269 
2 70 
2 71 
2 72 
2 73 

274 

275 

276 

277 

278 
2 79 
260 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 


DO  1020  J = 

1,  4 

PINP 

XP  = XINCJ) 

4 NX 

* D 

PINP 

YP  = YINCJ) 

4 NY 

* O 

PINP 

ZP  = ZIN(J) 

+ NZ 

* D 

PINP 

D = - D 

PINP 

XOIF  = XP  - 

A VX 

PINP 

YDIF  = YP  - 

AVY 

PINP 

ZDIF  = ZP  - 

AVZ 

PINP 

C TRANSFORM  CORNER  PGIN1S  TO  ELEMENT  COORDINATE  SYSTEM 
C WITH  AVERAGE  POINT  AS  ORIGIN 

C EQUATION  ( 80  ) if 


C XI,  ETA  ) 


XI(J)  = T1X*XDIF  + T 1Y* YOIF  + TiZ*ZOIF 
10C0  ETA  C J)  = T2X*XDIF  4 T2Y*YQIF  + T2Z*ZDIF 


C 

C 


COMPUTE  CENTR  CIO 
EQUATION  C 81  } 


XIO  = • 3333333E0  * ( 
1 * ( ETA  (4)  - ETA 

ETAQ  = -.3333333E0  * 


XI  (4) 

! 1)  ) J 
ET  Mi) 


1 ( ETA  (1) 
/ ( ETA  (2 


ETA  <2  > ) + 
- ETA  (41  l 


XI  < 2 ) 


C OBTAIN  CORNER  POINTS  IN  SYSTEM  WITH  3ENTROIO  AS  ORIGIN 


PI  NP 
PI  NP 
PI  NP 
PI  NP 
PI  NP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 


301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 


C 

EQUATION  ( 82  ) 

PINP 

326 

PINP 

327 

DO  1C 20  J = 1, 

4 

PINP 

328 

XI ( J ) = XI(J> 

- 

XIO 

PINP 

329 

1020  ETA(J)  = ETA(JI 

- ETA0 

PINP 

330 

PINP 

331 

C 

COMPUTATION  AIOS 

PINP 

332 

ETA2M1  = ETA  ( 

2 

) - ETA  C 1 » 

PINP 

333 

ETA3M2  = ETA  ( 

3 

) - ETA  < 2 J 

PINP 

334 

ETA4M3  = ETA  ( 

4 

) - ETA  ( 3 ) 

PINP 

335 

ETA1M4  = ETA  ( 

1 

) - ETA  ( 4 ) 

PINP 

336 

XI1M2  = XI  ( 1 

) 

- XI  ( 2 1 

PINP 

337 

XI2M3  = XI  ( 2 

) 

- XI  C 3 ) 

PINP 

338 

XI3M4  = XI  ( 3 

) 

- XI  ( 4 ) 

PINP 

339 

XI4M1  = XI  ( 4 

) 

- XI  ( 1 ) 

PINP 

340 

ETA2P4  = ETA  ( 

2 

> 4 ETA  ( 4 ) 

PINP 

341 

XI3M1  = XI  ( 3 

) 

- XI  ( 1 1 

PINP 

342 

XI4M2  = XI  ( 4 

) 

- XI  ( 2 » 

PINP 

343 

ETA2M4  = ETA  ( 

2 

) - ETA  ( 4 ) 

PINP 

344 

XI1234  = XI  ( 

1 

1 ♦ XI  C 2 1 4 XI  ( 3 > 

* XI  ( 4 ) 

PINP 

345 

PINP 

346 

c 

TRANSFORM  CENTROID 

TO  REFERENCE  COORDINATE 

SYSTEM 

PINP 

347 

c 

EQUATION  ( 63  ) 

PINP 

3 46 

XCENT  = AVX  4 

TIX*XIQ  ♦ T 2X*ET A 0 

PINP 

349 

YCENT  = AVY  4 

T1Y*XI0  4 T2Y*ETA0 

PINP 

350 

ZCENT  = AVZ  4 

TiZ*XI 0 * T2Z4ETA0 

PINP 

351 

PINP 

352 

c 

COMPUTE  LARGER  DIAGONAL  VECTOR 

PINP 

353 

c 

EQUATION  ( 84  ) 

PINP 

354 

TSQ  = AMAXi  ( 

XI3M1  *4  2,  XI4M2  **  2 «• 

ETA2M4  **  2 ) 

PINP 

355 

T = SQRT  ( TSQ 

) 

PINP 

356 

PINP 

357 

PINP 

358 

c 

COMPUTE  AREA 

PINP 

359 

c 

EGUATION  ( 85  ) 

PINP 

360 

85 


AREA  = .5  * XI3M1  * ETA2M4 

PI  NP 

361 

PI  NP 

362 

COMPUTE  CONSTANTS  FOR  EQUATIONS  C 42 

) AND 

< 43  i 

PI  NP 

363 

EQUATION  ( 45  ) 

PINP 

364 

D12SQ  = XI1M2  **  2 ♦ ETA2M1  **  2 

PI  NP 

365 

D12  = SORT  ( D12SQ  ) 

PINP 

3 66 

D23SQ  = XI2H3  **2  ♦ ETA3M2  **  2 

PINP 

367 

023  = SORT  ( 023SQ  ) 

PINP 

3 66 

D34SQ  = XI3M4  **  2 ♦ ETA4M3  **  2 

PINP 

369 

D34  = SORT  ( 034SQ  ) 

PINP 

370 

D41SQ  = XI4W1  **  2 + ETA1M4  **  2 

PINP 

371 

D41  = SQRT  ( 041 SQ  ) 

PINP 

372 

Cl  = 0.0 

PINP 

373 

C 2 = 0.0 

PINP 

3 74 

C3  = 0.0 

P I NP 

3 75 

C4  = 0.0 

PINP 

376 

C5  = 0.0 

PINP 

3 77 

C6  = 0.0 

PINP 

3 78 

C7  = 0.0 

PINP 

379 

C8  = 0.0 

PINP 

380 

XNP  = 0.0 

PINP 

381 

YNP  = 0.0 

PINP 

382 

IF  C 012  ) 1233*  1040,  1030 

PINP 

383 

1030 

Cl  = ETA2M1  / D12 

PINP 

384 

C5  = XI1M2  / 012 

PINP 

385 

18  40 

IF  { D23  ) 1050,  1060,  1050  . 

PINP 

386 

1050 

C2  = ETA3M2  / D23 

PINP 

387 

C6  = XI2M3  / D23 

PINP 

388 

1060 

IF  { D34  ) 1C70,  1080,  1070 

PINP 

389 

10  70 

C3  = ETA4H3  / D34 

PINP 

390 

C7  = XI3M4  / D34 

PINP 

391 

1080 

IF  ( D41  ) 1090,  1100,  1090 

PINP 

392 

1090 

C4  - ETA1M4  / 041 

PINP 

393 

C8  = XI4M1  / D 41 

PINP 

394 

1108 

CONV  = 3 

PINP 

3 85 

PINP 

396 

PINP 

3 97 

BEGIN  NULL  POINT  ITERATION 

PINP 

398 

PINP 

399 

DO  1590  ITR  = i,  30 

PINP 

42G 

DO  1580  K = 1,4 

PINP 

401 

EQUATION  ( 47  ) 

PINP 

402 

R ( K ) = SQRT  < ( XNP  - XI  ( K ) 

) ** 

2 ♦ < YNP  - ETA ( K ) 1 **  2 ) 

PI  NP 

403 

RX  (K  ) * ( XNP  - XI  ( K ) ) / R ( 

K 1 

PINP 

404 

1580 

RY  (K  l = ( YNP  - ETA  ( K ) ) / R 

1 K ) 

PINP 

405 

R1PR2  = R < 1 1 + R C 2 ) 

PINP 

406 

R2PR3  = R C 2 > + R C 3 > 

PINP 

407 

R3PR4  = R C 3 ) + R < 4 ) 

PI  NP 

40  8 

R4PR1  = R ( 4 1 + R ( 1 ) 

PINP 

409 

ARGl  = ALOG  C ( R1PR2  - 012  > / 1 

R1PR2 

♦ 012 

) ) 

PINP 

410 

ARG2  = ALOG  ( ( R2PR3  - 023  ) / C 

R2PR3 

+ D23 

) ) 

PINP 

411 

ARG3  = ALOG  MR3PR4  - D34  ) / < R3PR4  + 

034  ) 

> 

PINP 

412 

ARG4  = ALOG  ( ( R4PR1  - D41  ) / ( R4PR1  + 

041  ) 

> 

PINP 

413 

- 

PINP 

414 

PINP 

415 

COMPUTE  INDUCED  VELOCITY  COMPONENTS 

PINP 

416 

EQUATIONS  ( 42  J AND  ( 43  ) 

PINP 

417 

VX  = Cl  * ARGl  ♦ C2  * ARG2  ♦ C3  * 

ARG3 

+ C4  * 

ARG  4 

PINP 

418 

VY  = C5  * ARGl  + C6  * ARG2  ♦ C7  * 

ARG  3 

+ C8  * 

ARG4 

PINP 

419 

PINP 

420 

86 


o o 


C COMPUTE  PARTIAL  DERIVATIVES  OF  INDUCEO  VELOCITIES  PINP 

C EQUATION  ( 98  ),  USING  EQUATIONS  C 9i  ) - ( 93  > PINP 

PINP 

PINP 

D12P=  ( R1PR2  **  2 - D12  SQ  ) * .5  PINP 

023 P=  t R2PR3  2 - 02 3 SG  ) * .5  PINP 

034P=  C R3PR4  **  2 - 034  SQ  ) * .5  PINP 

041  P=  ( R4PR1  *■*  2 - 041  SQ  ) * *5  PINP 

C1P  = ETA2M1  / D12P  PINP 

C2P  = ETA3M2  / 023P  PINP 

C3P  = ETA4M3  / 034P  PINP 

C4P  = ETA1M4  / 041P  PINP 

C5P  = XI1M2  / 012P  PINP 

C6P  = XI2M3  / D23P  PINP 

C7P  = XI3M4  / D34P  PINP 

C8P  = XI4H1  / D41P  PINP 

R12Y  = RY  ( 1 ) + RY  I 2 ) PINP 

R23Y  = RY  J 2 ) ♦ RY  C 3 J PINP 

R34Y  = RY  { 3 I + RY  ( 4 I PINP 

R41Y  = RY  ( 4 ) + RY  ( 1 ) PINP 

VXX  = C1P*  ( RX  ( 1 ) + RX  ( 2 ) ) + C2P*  I RX  I 2 I + RX  ( 3 ))  fPINP 

1 C3P*  i RX  (3)+RX(4))+  C4P*  C RX  ( 4 ) ♦ RX  < 1 ) > PINP 

VXY  = C1P*  R12Y  + C2P*  R23Y  + C3P*  R34Y  + C4P*  R41Y-  PINP 

VYY  = C5P*  R12Y  + C6F*  R23Y  ♦ C7P*  R34Y  + C8P*  R41Y  PINP 

PINP 

PINP 

C COMPUTE  NEW  NULL  POINT  < XNP,  YNP  > PINP 

C EQUATION  ( 94  > PINP 

PI  NP 

XMXP  = I VY  * VXY  - VX  * VYY  ) / C VXX  * VYY  - VXY  2 ) PINP 

XNP  = XMXP  + XNP  PINP 

YNP  = YNP  - C VX  + VXX  * XMXP  ) / VXY  PINP 

PINP 

C TEST  NULL  POINT  CONVERGENCE  PINP 

IF  ( ABS  ( VX  ) .LT.  EPS  *ANO.  ABS  < VY  ) .LT.  EPS  ) GO  TO  1600  PINP 

1590  CONTINUE  PINP 

C NO  CONVERGENCE  * USE  30TH  ITERATION  PINP 

CONV  = 2 PINP 

PINP 

C TEST  IF  THIS  POINT  IS  0U1SI0E  THE  ELEMENT  PI  NP 

1608  IF  ( XNP  **  2 ♦ YNP  2 .LE.  TSQ  ) GO  TO  1620  PINP 

PINP 

C CONVERGES  TO  POINT  AT  INFINITY  PINP 

CONV  = 1 PINP 

XNULL  = XCEM  PINP 

YNULL  = YCENT  PINP 

ZNULL  = ZCENT  PINP 

GO  TO  1700  PINP 

PINP 

TRANSFORM  NULL  POINT  TC  REFERENCE  COORDINATE  SYSTEM  PINP 

EQUATION  C 79  ) NOTE  THAT  Z - COORDINATE  IS  ZERO  PINP 

1620  XNULL  = XCENT  + TiX  * XN3  ♦ T2X  * YNP  PINP 

YNULL  = Y CENT  + T1Y  * XN3  + T2Y  * YNP  PINP 

ZNULL  = ZCENT  ♦ T1Z  * XN3  + T2Z  * YNP  PINP 

PINP 

PINP 

C PRINT  RESULTS  — SECTION  9*4  THE  FIRST  OUTPUT  PINP 

PINP 

1700  IF  I NPRT  *GE.  11  ) GO  TO  1750  PINP 

NPRT  = NPRT  * 1 PINP 


421  I 

422  | 

423  I 

424  1 

425  I 

426  1 

427  1 

428  § 

429  I 

430  I 

431  I 

432  § 

433  I 

434  | 

435  1 

436  1 

437  I 

438  I 

439  I 

440  I 

441  I 

442  I 

443  1 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454  I 

455  1 

456  j 

457  } 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 
4 79 
480 
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o o o o o o 


TO  17  €0 
XIN,  NX, 

» It 


I* 


XIN, 

* T , 


IF  C I .EQ.  1 ) GO 
WRITE  (6,  40G5)  I, 

1 YIN,  NY,  YNULL 
GO  TO  1770 
1750  NPRT  = 0 

CALL  PEAOER 
WRITE  ( 6,  40Q2  ) 

1 760  WRITE  < 6,  40101  N 
1 ),  YIN,  NY,  YNULL 

1770  CONTINUE 

2000  CONTINUE 

2100  NLT  ( KLCT  ) = MMIK 
NLINE  ( KLCT  ) = N 
IF  C IFLAG  .EQ.  0 ) GO  TO  2001 
IF  * N .LT.  NLM1  ) GC  TO  12 
IFC  IPRNT  ) WRITE(6, 4015) 

GO  TO  2025 

2001  IF  C STAT  .LT.  2 ) GO  TO  80 
NLT  (KLCT)  = -NLT  (KLCT) 

NPRT  = NPRT  ♦ 1 

IF ( IPRNT  ) WRITE(6»  4015 ) 


XNULL 
ZIN,  NZ, 


PD,  CFLAG 


ZNULL 


(CONY)  , 
AREA 


NX,  XNULL 
ZIN,  NZ,  ZMJLL 


PD, 


CFLAG 
, AREA 


C T 1ST  FOR  END 
2020  IF  ( STAT 
2025  NN1  = HOD 

NQNN1  = NQUAD 
IF  ( NN1  .LT. 
DEL  X = -0.5  * 
DELY  = -0.5  * 
DELZ  = -0.5  * 


OF  CASE 
.NE.  3 ) GC 
( 3 * NQUAD, 


5 .ANO. 
(XMIN  ♦ 
(YMIN  + 
(ZMIN  + 


TO  80 
255 

t 

NN1  . 
X MAX) 
YMAX) 
ZMAX) 
YMIN, 


) 


GT.  0 ) NQNN1  = NQUAD  + 2 


YMAX,  ZMIN  , ZMAX,  DELX , DEuY  , OELZ, 


WRITE  (9)  XMIN , XMAX, 

1 NSYM 
ENDFILE  9 
REWIND  9 

IF  ( .NOT.  IPICT  ) GO  TO  8500 

SET  UP  PERSPECTIVE  ANGLES  FOR  PLOFS 

WRITE  (8)  XMIN,  XMAX,  YMIN,  YMAX,  ZMIN,  ZMAX,  QELX , DELY,  DELZ 
LAST  - 0 
PHI  = 0.0 

THE  OPERATION  OF  ANGLES  THETA  AND  PSI  ARE  AS  FOLLOWS  FOR  A RIGHT 
HANDED  COORDINATE  SYSTEM  WITH  THE  Z AXIS  DIRECTED  UPWARD.  FIRST 
ROTATE  THE  COORDINATE  SYSTEM  3Y  A'JGLE  THETA  ABOUT  THE  Y AXIS  SUCH 
THAT  FOR  POSITIVE  THETA  THE  POSITIVE  X AXIS  TILTS  UPWARD.  THEN 
ROTATE  BY  ANGLE  PSI  ABOUT  THE  NEW  Z AXIS  SUCH  THAT  FOR  POSITIVE 
PSI  THE  ROTATION  IS  CLOCKWISE  WHEN  VIEWED  FROM  ABOVE. 


PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
(CONVPINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PI  NP 
PINP 
PINP 
PINP 
PI  NP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PI  NP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 
PI  NP 
PI  NP 
PINP 
PINP 
PINP 
PINP 
PINP 
PINP 


2027 


481 

482 

483 

484 
48  5 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 


2028 


IF  (NSYM  .GT. 

C)  IF  (NSYM 

- 2)  2028, 

2029,  2030 

PINP 

526 

PSI  = 

90. 

PINP 

527 

THETA 

= 0.0 

PINP 

528 

WRITE 

(8)  PSI, 

THETA, 

PHI, 

LAST, 

LAX  IS,  MINUSY,  RAXIS 

PINP 

529 

PSI  = 

45. 

PINP 

530 

THETA 

= 45. 

PINP 

531 

WRITE 

(8)  PSI, 

THETA, 

PHI, 

LAST  , 

L45 , 

PLUSX,  MINUSY, 

PLUSZ , 

R45  »L  PINP 

532 

THETA 

= -45. 

PINP 

533 

WRITE 

(8)  PSI, 

THETA, 

PHI, 

LAST, 

L45  » 

PLUSX,  MINUSY, 

MIN'USZ , 

R45  »LPI NP 

534 

PSI  = 

135. 

PINP 

535 

WRITE 

(8)  PSI, 

THETA, 

PHI, 

LAST, 

L45 , 

MINUSX,  MINUSY, 

PLUSZ, 

R45  »L  PINP 

536 

THETA 

II 

vn 

• 

PINP 

537 

WRITE 

(8)  PSI, 

THETA  , 

PHI, 

LAST, 

L 4 5 , 

MINUSX , MINUSY, 

MINUSZ 

,R45,LPINP 

538 

PSI  = 

0. 

PINP 

539 

THETA 

= -90. 

PINP 

540 

88 


WRITE  (8)  PSI, 
THETA=  45. 

PSI  =-13  5. 

THETA, 

PHI, 

LAST 

WRITE  (81  PSI, 

THETA=-45. 

PSI=-45. 

THETA, 

PHI, 

LAST 

2029 

WRITE  C8)  PSI, 
PSI  = 180. 
THETA  = 0. 

THETA, 

PHI, 

LAST 

WRITE  (8)  PSI, 
PSI  = -135 • 
THETA  =-45. 

THETA, 

PHI, 

LAST 

2030 

WRITE  (81  PSI, 
THETA  = 0.0 
PSI  = 0. 

THETA, 

PHI, 

LAST 

WRITE  (8)  PSI, 
THETA  = 0.0 
PSI  = -90. 

THETA, 

PHI, 

LAST 

WRITE  (8)  PSI, 
THETA  = 90. 

PSI  = 0. 

THETA, 

PHI, 

LAST 

WRITE  C8»  PSI, 
THETA  = 45. 

PSI  =-45. 

LAST  = 1 

THETA, 

PHI, 

LAST 

8 500 
n 

WRITE  (8)  PSI, 
REWIND  8 

THETA, 

PHI, 

LAST 

\j 

IF(IPRNT)  WRITE (6, 9999)  NQUAD 

9999 

FORMAT  < 1H0,  16X,  15, 
RETURN 

26H 

BASIC 

ENQ 


PI NP  543 
PI  NP  54! 
PI  NP  543 
PINP  54* 
PI  NP  54« 
PINP  54< 
PINP  541 
PINP  54( 
PINP  54! 
PINP  55( 
PINP  5 53 
PINP  55! 
PINP  55! 
PINP  5541 
PINP  55! 
PINP  5561 
PINP  553 
PINP  5581 
PINP  55' 
PINP  560l 
PINP  5611 
PINP  5621 
PINP  5631 
PINP  5 64 
PINP  565 
PINP  565 
PINP  567 
PINP  56ft! 
PINP  5 69] 
PINP  5 70. 
PINP  571; 
PINP  572; 


89 


o o 


♦DECK, PICTURE 

SUBROUTINE 


PICTUR 


PLOTS  SURFACE  ELEMENTS  ON  A 3-DIMENS 10 NAL  BODY 

LOGICAL  IPROS,  IPUNCH,  IFRNT,  IPICT,  ICRT,  RFLAG , AFLAC,  BFLAG 
COMMON  HEDR(  15),  NQUAD,  KASE,  NSYM,  IFLAG,  IPROS,  IPUNCH,  IFRNT, 

1 IPICT,  ICRT,  SINA,  COSA,  XSCALE,  YSCALE,  ZSCALE,  XTRANS,  YTFANS , 

2 ZTRANS 

DIMENSION  XA(250),Xe(250),YA(25C)  , Y8( 250 ) , Z A ( 250 ) ,ZB<  250), 

1 XI  N (4)  , YIN (4)  , ZIN (4)  ,H LA 6 EL (15),  PROGIOC  3), 

2 YIN2(4>,ZIN2(4> , YPLTSCC  4),  ZFLTSC(  4)  ,HLIN£2  (7)  , 

3 HLINE1 (7) , XMC2),  YM(2),  ZM(2) 

REAL  NX,NY*NZ,NXO 

INTEGER  ST  AT  , ST  ATT 

DATA  PROGIO/  7HN0RMENT , 4H3840,  3HLYC/ 

OATA  ISHAD,IFRAME/8 , 0/  * XSC, YSC , ZSC/ 3* 1. 0/ 

FIRST (QX,QY,QZ,Qi»Q2 ,Q3 ).  = QX*Qi  «•  QY*Q2  + QZ*Q3 

THIRD ( QX*  QY , QZ ,QPSI , QTHETA, QPHI ) = QX* (COS ( QTHET A) *COS ( QPSI ) ) ♦ 

1 QY* (-SIN ( QPSI ) *C  OS (QPHI ) +SIN ( QTHET A) *COS (QPS I) *S IN (QPHI ) ) * 

2 QZ*  (SIN<  QPSI)  *SIN(  QPHI)  «-S  IN  I QTHETA  )*COS(  QPSI)  *COS  CQPHI)  ) 


2 ) IREFL  = 2 


7 50 


200.0, 

-3  ) 


11.0,  1.0) 


IREFL  = NSYM 
IF  I IREFL  .GT. 

IPIC  = 1 

IF<  ICRT  ) GO  TO 
CALL  PLOTID 
CALL  PLTI03I  PROGID, 

CALL  PLOT  ( 5.0,  0.0, 

GO  TO  2 

CALL  MICRO  (PRQGID*  1.0,  14.0) 

READ  (5, 3000  ) HLINE1,  HLINE2 
FORMAT  C7A6/7A6) 

CALL  TITLi HLINE1 »HLINE2) 

WRITE ( 6,  5201  ) 

FORMAT C 1H-,  12H  CRT  PLOTS) 

REWIND  9 

READ  (8)  XMC1)  , XM < 2 ) ,YM (1) ,YM(2),ZM(1) , Ztt  (2 ) ,DELX,DELY,D£LZ 
WRITE (6,7400)  XM (i  ) , XM(  2)  , YM (1) ,YM f 2) , ZM ( 1) , ZM ( 2 ) 

WRITE (6,7500) 

WRI  TE  ( 6 ,770 0)  DELX  ,DELY,DELZ 

FORMAT!  1H0,  9X,  61HMINIMUM  AND  MAXIMUM  COORDINATES  IN  THE  SC^ 
ID,  TRANSLATED,  ROTATED  SYSTEM  -/12X,  7HX  AXIS=2UP£1  5.  5)  / 
2 12X , 7HY  AXIS  = 2(1PE15.5)/  12X,  7NZ  AXIS=2  ( 1PE15 . 5)  ) 

7500  FORMAT  ( 1H0 , 9X,  69HCC0RD INA TE  TRANSLATIONS  USED  TO  CENTER  THE  FI 
IS  - DELX,  DELY,  DELZ  -) 

7700  FORMAT! 12X, 39 H AFTER  SCALING, 

4 IPIC  = IPIC  ♦ 1 


750 


3000 


5201 

2 

301 


7400 


TRANSLATING,  ROTATING  -3 ( 1PE15. 5) ✓ ) 


I READ  PLOTTING  INSTRUCTIONS 

READ  ! 8 ) PSI, THETA, PHI, LAST, 
WRITE ( 6,5205) H LABEL 
5205  FQRMAT(5X,  15A4) 


HLABEL 


8 


IF( 

IF( 


IPIC 

IPIC 


• GT. 
.GT. 


2 

2 


.AND  . 
.AND  . 


.NOT 


SET  UP  STARTING  CONSTANTS 


icrf 

ICRT 


90 


) CALL  PLOT ( 10.0, 
) CALL  FRAME(  0.5, 


-5.5, 

0.  5 ) 


-3  ) 


PICT 

1 

PICT 

2 

PICT 

3 

PICT 

4 

PICT 

• 5 

PICT 

6 

PICT 

7 

PICT 

8 

PICT 

9 

PICT 

10 

PICT 

11 

PICT 

12 

PICT 

13 

PICT 

14 

PICT 

15 

PICT 

16 

PICT 

17 

PICT 

18 

PICT 

19 

PICT 

20 

PICT 

21 

PICT 

22 

PICT 

23 

PICT 

24 

PICT 

25 

PICT 

26 

PICT 

27 

PICT 

28 

PICT 

29 

PICT 

30 

PICT 

31 

PICT 

32 

PICT 

33 

PICT 

34 

PICT 

35 

PICT 

36 

PICT 

37 

PICT 

38 

PICT 

39 

PICT 

40 

PICT 

41 

PICT 

42 

PICT 

43 

PICT 

44 

PICT 

45 

PICT 

46 

PICT 

47 

PICT 

48 

PICT 

49 

PICT 

50 

PICT 

51 

PICT 

52 

PICT 

53 

PICT 

54 

PICT 

55 

PICT 

56 

PICT 

57 

PICT 

58 

PICT 

59 

PICT 

60 

IFADV  -=  1 

PSI  = PSI  / 57, 2 95 78 EO 
THETA  = THETA  ✓ E7.29578E0 
PHI  ' = PHI  / 57*2957 fiEQ 
SINTH  = SIN(THETA) 

COSTH  = COS  (THET A} 

SINPSI=  SINCPSI) 

COSPSI=  COS(PSI) 

SINPHI=  SI N (PHI  I 
COSPHI-  COS (PHI ) 

Ai  = COSTH  * SINFSI 

= CO SPSI*COSPHI  ♦ SINTH*SINPSI*SINPHI 

+ SI NTH*SINPSI*  COSPHI 


A2 

=-COSPSI*SINPHI 
=-SI NTH 

= COSTH*SINPHI 
= COSTH*COSPHI 
= COSTH*COSPSI 
=-SINPSI*COSPHI 
= SINPSI*SINPHI 


A3 
Ai* 

A5 
A6 
A7 
A8 
A9 

SET  SCALE  FACTOR 
YSM  = i. £50 
ZSM=  1.E50 
YLG=-1.  E50 


+ 
+ 

FOR 


SINTH*COSPSI*SINPHI 
SI  NT H*COSPSI*COSP  HI 
THE  PLOT 


ZLG=-1.E50 
00  20  1=1,2 
X=XM  (I ) +DELX 
DO  20  J=l,  2 
Y=YM ( J) +DELY 
00  20  K = l,  2 
Z=ZM(K)  +OELZ 

YNR=FIRST  (X  ,Y,Z,  Al  ,A2,A3) 
ZNR=FIRST(X,Y,Z, A4,A5,A6) 
YSM=AMINl(YSN,YNR) 
ZSM=AMINUZSM,ZNR) 

YLG  = AMAXi(  YLG,  YNR) 

20  ZLG=AMAXi(ZLG»ZNR> 

PENSF  = 9 .99/ AMAX1  (YLG-YSM  ,ZLG-ZSM) 
N = -1 


NN  = - 1 


C 


29 


30 

50 

60 

70 


SURFACE 

X,Y,Z,STAT, 

» OR  > 


. EQ.  3 
.FALSE* 


GO  TO 
TRUE. 


50 


READ  IN 
READ  (9) 

IF  (STAT 
RFLAG  = 

GO  TO  80 
IF  iRFLAG) 

RFLAG  = . 

X = XX 
Y = YY 
Z = ZZ 

STAT  = STATT 
GO  TO  60 
RFLAG  = .FALSE. 

READ  (9)  X,Y,Z»STAT, 

IF  ISTAT  *EQ.  3 .OR. 

IF  CSTAT  • EQ.  0 .OR. 

IF  (STAT  • EQ.  2J  GO 

IF  (.NOT.  AFLAG)  GO 
MC  = M 


DATA 

XX, YY,ZZ, STATT 
STATT  .EQ.  3)  REWIND 


XX, YY»ZZ, STATT 
STATT  .EQ.  31  REWIND  9 
STAT  . EQ.  3)  GO  TO  180 
TO  200 
TO  200 


PICT  61 
PICT  62 
PICT  63 
PICT  64 
PICT  65 
PICT  66 
PICT  67 
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PICT  75 
PICT  76 
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PICT  80 
PICT  81 
PICT  62 
PICT  83 
PICT  84 
PICT  65 
PICT  66 
PICT  87 
PICT  88 
PICT  89 
PICT  90 
PICT  91 
PICT  92 
PICT  93 
PICT  94 
PICT  95 
PICT  96 
PICT  97 
PICT  98 
PICT  99 
PICT  100 

pict  iai 

PICT  102 
PICT  103 
PICT  104 
PICT  105 
PICT  106 
PICT  107 
PICT  108 
PICT  109 
PICT  110 
PICT  111 
PICT  112 
PICT  113 
PICT  114 
PICT  115 
PICT  116 
PICT  117 
PICT  118 
PICT  119 
PICT  120 


91 


80  M 


= i 

IF  ( STAT  .EQ.  2)  GO  TO  150 
IF  (.NOT.  BFLAG I GO  TO  6 4 


75 

OO  81  J 

=1.MC 

X A ( J I 

= XB( J I 

YA(J) 

= YBiJI 

81 

Z A ( J I 

= Z B ( J I 

83 

XB (1 1 = 

X 

YB ( 1 I = 

Y 

ZB ( 1)  = 

Z 

GO  TO  30 

84  IF  ( AFL  AG)  GO  TO  85 

BFLAG  = .TRUE. 

GO  TO  75 

85  AFLAG  = .FALSE. 

GO  TO  83 

150  AFLAG  = .TRUE. 

BFLAG  = .FALSE. 

N = N+l 

160  X A ( M I = X 
YA(M)  = Y 
ZA  ( HI  = Z 
GO  TO  30 
180  H = M + 1 

IF  (AFLAG)  GO  TO  160 
XB  CM)  = X 
YB (Ml  = Y 
ZB (Ml  = Z 

IF  (STAT  .ME.  3)  GO  TO  30 
200  MMIN  = MIN0  CM.MC)  - 1 
MC  = M 

250  N - N + 1 

NN  = NN  1 


C BEGIN  COMPUTATION  OF  SURFACE  ELEMENT 

450  OO  20  00  1=  1» MMI N 

X IN ( 1 1 = XACI)  * XSC  ♦ DELX 
X IN  ( 2 1 = XAM+l)  * XSC  ♦ OELX 

X IN  ( 3 1 = XB(H-i)  * XSC  + DELX 

XIN (41  = XB ( I I * XSC  ♦ OELX 
YIN ( 1 I = YAIII  * YSC  ♦ DELY 
YIN  (2)  = Y A ( 1+ 1 1 * YSC  «■  DELY 

Y IN  ( 3 1 = YB  ( I-fi)  * YSC  ♦ DELY 

YIN (41  = YB ( I I * YSC  + DELY 
ZIN(l)  = ZA ( I I * ZSC  ♦ OELZ 
Z IN  ( 2 1 = ZAII+i)  * ZSC  ♦ OELZ 
ZIN (3 1 = ZB (I ♦ 1)  4 ZSC  ♦ OELZ 
ZIN (4)  = ZB ( I > * ZSC  + OELZ 
IRFLG  = 0 

C FORM  DIAGONAL  VECTORS  - EQUATION  (641 
T1X  = XIN  (3)  - XI N'(  1) 

T2X  = XIN  ( 4)  - XI K( 2 1 
T1Y  = YIN  (3)  - YI  Ml) 

T2Y  a YIN (4)  - YIM2) 

T1Z  = ZIN (3)  - ZIN(l) 

T2Z  = ZIN (41  - ZI K( 2) 
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CHARACTERISTICS  PICT  156 

PICT  157 
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PICT  160 
PICT  161 
PICT  162 
PICT  163 
PICT  164 
PICT  165 
PICT  166 
PICT  167 
PICT  168 
PICT  169 
PICT  170 
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PICT  177 
PICT  178 
PICT  179 


; FORM  CROSS  PRODUCT  N=T2  X T1  - EQUATION  C65) 

PICT 

181 

NX  = T2Y*T1Z  - T1Y*72Z 

PICT 

182 

NY  = T1X*T2Z  - T2X*T1Z 

PICT 

183 

NZ  = T2X*T1Y  - T1X*T2Y 

PICT 

184 

VN  = SORT  C NX* NX  + NY*  hY  ♦ NZ*NZ  ) 

PICT 

185 

PICT 

186 

: FORM  UNIT  NORMAL  VECTOR  - EQUATION  C&6) 

PICT 

187 

NX  = NX  / VN 

PICT 

188 

NY  = NY  / VN 

PICT 

189 

NZ  = NZ  / VN 

PICT 

190 

PICT 

191 

IF  tIFADV  • ECU  B)  GO  TO  471 

PICT 

192 

PICT 

193 

; 

A NEW  VIEW  OF  THE  BODY  IS  TO  BE  PLOTTED.  PLOT  THE 

LEGEND  AND 

PICT 

194 

t 

INITIALIZE  FOR  THE  BODY  PLOT. 

PICT 

195 

IF ( ICRT  ) GO  TO  524 

PICT 

196 

CALL  PLOT!  2.5,  0.  C,  3 ) 

PICT 

197 

CALL  SYMBOL ( d, 5,  0.0,  0.150,  H LABEL , 0*0,  60) 

PICT 

190 

CALL  PLOT!  7.5,  5.5,  -3) 

PICT 

199 

GO  TO  5 25 

PICT 

200 

524 

CALL  ST  BEAM ( 24) 

PICT 

201 

CALL  SYMBOL*  3.0,  0.0,  0.150,  HLA3EL , 0.0,  60) 

PICT 

202 

CALL  STBEAMC19) 

PICT 

203 

CALL  PLOT*  8.0,  5.5,  -3) 

PICT 

204 

525 

IFAOV  = 0 

PICT 

205 

PICT 

206 

471 

NXO  = THIROCNX, NY, NZ,PSI, THETA, PHI) 

PICT 

207 

IF  (NXO. LE. 0.0  .AN*.  ISHAO.EQ.C)  30  TO  571 

PICT 

208 

PICT 

209 

PICT 

210 

I CALCULATE  POINTS  TO  BE  PLOTTED 

PICT 

211 

530 

YOl  = FIRST (XIN(1),YIN(1),ZIN(1),A1,A2,A3) 

PICT 

212 

Y02  = FIRST CXINI2) ,YIN<2> »ZIN(2) ,A1,A2, A3) 

PICT 

213 

Y03  = F IRST (XIN(3),YIN(3),ZIN(3),Al,A2,A3) 

PICT 

214 

Y04  = F IRST  * XIN 1 4) , YIN*  4 ) » ZIN (4)  »A 1 , A2 , A3 ) 

PICT 

215 

ZOl  = FIRST  CX I N( 1) ,YIN(1),ZIN(1),A4,A5 ,A6) 

PICT 

216 

Z02  = FIRST  *XIN(2),YIN(2),ZIN*2),A4,A5,A6) 

PICT 

217 

703  = FIRST (XIN* 3) ,YIN*3) ,ZIN*3),A4,A5,A6) 

PICT 

218 

704  = FIRST (XIN(4)*YIN(4)»ZIN(4),A4,A5»A6) 

PICT 

219 

PICT 

220 

YI N2( 1)  = YOl 

PICT 

221 

YIN2 ( 2 ) = Y02 

PICT 

222 

YIN2(3)  = Y03 

PICT 

223 

YIN2(  4)  = YC4 

PICT 

224 

71  N2(  1)  = ZOl 

PICT 

225 

ZI N2( 2)  = Z02 

PICT 

226 

ZIN2(3)  = Z03 

PICT 

22.7 

ZIN2C4)  = Z04 

PICT 

228 

PICT 

229 

SCALE  AND  PLOT  A SINGLE  QUA  ORAL ATERAL 

PICT 

230 

DO  540  11=1,4 

PICT 

231 

YPLTSC ( II)  = YIN2( II  J * PEN SF 

PICT 

232 

ZPLTSCCII)  = ZIN2 ( II ) * PENSF 

PICT 

233 

IF*  ABS(ZPLTSC(II1)  .LE. 

5.000) 

PICT 

234 

1 

GO  TO  540 

PICT 

235 

WRITE ( 6 , 50 0 0)  N,  M 

PICT 

236 

5000 

FORMAT*  1H0 , 10X,  21HSCALE  TROUBLE  FOR  N =14,  3X, 

3HM  =14) 

PICT 

237 

GO  TO  2000 

PICT 

238 

540 

CONTINUE 

PICT 

239 

CALL  PLOT*  YPLTSC*  1),  ZPLTSC*  1),  3) 

PICT 

240 

93 


o o o o o o 


DO  550  11=2*4 

PICT 

241 

550 

CALL  PLOTC  YPLTSCdll,  ZPLTSCCII) , Z) 

PICT 

242 

CALL  PLOT(  YPLTSC(  1),  ZFLTSCI  1),  2) 

PICT 

243 

PICT 

2 44 

5 71 

IF  (IREFL  .EQ.  0 .OR*  IRFLG  .EQ.  3)  GO  TO  2000 

PICT 

245 

IF  (IREFL  .EQ.  2 *ANC.  IRFLG  .EQ.  1)  GO  TO  600 

PICT 

246 

IF  (IREFL  .EQ.  2 .ANO.  IRFLG  .EQ.  2)  GO  TO  602 

PICT 

247 

PICT 

248 

REFLECT  QUADRANT  I ELEMENTS  TO  QUAORANT  II 

PICT 

2 49 

DO  580  II  = 1,4 

PICT 

250 

583 

YIN (II ) = -VINCII) 

PICT 

2 51 

NY  a -NY 

PICT 

252 

GO  TO  604 

PICT 

253 

PICT 

254 

REFLECT  QUADRANT  II  ELEMENTS  TO  QUAORANT  IV 

PICT 

255 

600 

DO  601  II  = 1,4 

PICT 

256 

YIN(II)  = -YIN(II) 

PICT 

257 

601 

ZIN (II ) = -ZIN(II) 

PICT 

258 

NY  = -NY 

PICT 

259 

NZ  = -NZ 

PICT 

260 

GO  TO  604 

PICT 

261 

PICT 

262 

REFLECT  QUAORANT  IV  ELEMENTS  TO  QUAORANT  III 

PICT 

263 

602 

OO  603  II  = 1,4 

PICT 

264 

603 

YIN(II1  = — Y IN ( II ) 

PICT 

2 65 

NY  = -NY 

PICT 

266 

PICT 

267 

PICT 

268 

604 

IRFLG  = IRFLG  + 1 

PICT 

2 69 

IF  (IREFL  .EQ.  i>  IRFLG  = 3 

PICT 

2 70 

GO  TO  471 

PICT 

271 

PICT 

272 

PICT 

273 

2000 

CONTINUE 

PICT 

2 74 

2001 

IF  (STAT  .LT.  2)  GO  TO  460 

PICT 

275 

NN  = NN  - 1 

PICT 

276 

N = « 1 

PICT 

277 

475 

IF  ( IFRAME  .EQ.  2)  IFAOV  = 1 

PICT 

278 

480 

IF  (IFRAME  .EQ.  1)  IFAOV  = 1 

PICT 

279 

405 

IF  (IFAOV  .EQ.  1)  CALL  PLOT (13. 0,-5. 5,  -3) 

PICT 

2 80 

PICT 

281 

PICT 

282 

TEST  FOR  END  OF  CASE 

PICT 

283 

2020 

IF  (STAT  .N£.  3)  GO  TO  80 

PICT 

26  4 

IF  (LAST  .EQ.  1>  RETURN 

PICT 

285 

GO  TO  4 

PICT 

286 

END 

PICT 

287 
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OVERLAY (8QXC,0«0)  BOXC 

PROGRAM  MAIN(  INPUT, TAPE6,  TAPE5*INPUT,  OUTPUT, 

1 TAPEi,  TAPE3,  TAPE8,  TAPE9,  TAPE11,  TAPE12,  TAPE13,  BO>C 

2 TAPE4,  TAPE10,  TAPE14)  BOXC 

80  X c 

H.  G.  NORMENT,  ATMOSPHERIC  SCIENCE  ASSOCIATES  - DECEMBER  1979  BOXC 

BOXC 

THIS  IS  ESSENTIALLY  THE  NON- LIFTING  POTENTIAL  FLOW  CODE  OF  HESS  BOXC 
AND  SMITH  AS  OESCRIBEO  IN  DOUGLAS  AIRCRAFT  CO.  RPT . E.  S.  4062 2 BOXC 
(15  MARCH  1962),  AO-282  255#  THAT  REPORT  SHOULD  BE  CONSULTED  F0R80XC 
DETAILS  OF  THE  METHOO  AND  COMPUTATION.  BOXC 

BOXC 

EIGHT  OVERLAYS  ARE  USED.  THE  FINAL  OVERLAY  WRITES  THE  28  BOXC 

QUANTITIES  ON  LNIT  14  F3R  USE  BY  SR  FLOVEL  IN  CALCULATING  FLOW  BOXC 
VELOCITIES.  BOXC 

BOXC 

ALSO  REQUIRED,  IN  ADDITION  TO  THE  SYSTEM  INPUT,  OUTPUT  ANO  PUNCH  BOXC 
UNITS,  ARE  THE  FOLLOWING  UNITS  - 1,3,8,9,10,11,12,13.  BOXC 

BOXC 

LOGICAL  iPROS  BOXC 

COMMON  HED Rfi 5) »MPR»NER, IPRS , ISIG, ITER,NCFLG, NFLOW.NQUAD , BOXC 

1 KASE, NOFF,NSYM, I FLAG, IF LOW, NCOOE  BOXC 

REAL  MACH  BOXC 

COMMON  /SPACER/  DUMMY  (14000)  BOXC 

COMMON  / ATAPE  / NATAPE  BOXC 

COMMON  /*/  MACH,  BETA,  RBETA  BOXC 

LOGICAL  AFLOW,  BFLOW , CFLOW  BOXC 

COMMON  /OFLOW/  AFLOW,  BFLOW  ,CFLCW,  NMAT,  NMATM1,  NAFLOW,  NBFL  OW,  NCFLOW  BOXC 
COMMON/SOLVE/  Ni, N2,N3, CORE, NFL  BOXC 

COMMON  /INFT/  LIST,  IPROS  BOXC 

COMMON  /PROS/  SINA, COSA , XSCALE,  YSCALE , ZSCALE,  XTRANS,  BOXC 

1 YTRANS,  ZTRANS  BOXC 

COMMON  /FLGWP/  NU ,NNON  BOXC 

COMMON  /SIG/  NFLCOM  BOXC 

COMMON  /TAPES/  MN  BOXC 

COMMON  /FRINTO/  KMAT, NSEQ,KTP14  BOXC 

COMMON  /GLEAK/  LEAK,  FRACT  BOXC 

6 FORMAT  (F10.6)  BOXC 

7000  FORMAT ( 7F10.0)  BOXC 

7500  FORMAT ( 18X,  55HANGLE,  XSCALE,  YSCALE,  ZSCALE,  XTRANS,  YTRANS,  ZBGXC 

1 TRANS  =/  1GX,  7< 1PE13 .4) ) BOXC 

8000  FORMAT ( LI)  BOXC 

9300  FORMAT  ( 15  A4  ,211, 3L1,  411, 12,  411,  IX, A4)  BOXC 

93  00  FORMAT  ( 14,  F10.0  ) BOXC 

9400  FORMAT ( lHfl,  17X, 31HNUM3ER  OF  LEAKY  QUADRALATERALF=I4,  3X,  BOXC 

1 40 HFRACTIGN  OF  FREE-STREAM  VELOCITY  L EAKED=1PE11 • D BOXC 

95  00  FORMAT ( 1H0,  17X,  61HIN°UT  DATA  ARE  PROCESSED  BY  SCALING,  ROT ATING80XC 
1 ANO  TRANSLATING)  BOXC 

OATA  KORE  /14000/  BOXC 

NSEQ  = 0 BOXC 

C READ  IN  CONTROL  DATA  BOXC 

1 REAO  ( 5,  9000  > HEQR,  I FLAG , LIST,  AFLOW,  BFLOW,  CFLOW,  ISIG,  BOXC 

1 IPRS,  MPR,  NCOOE,  NNON,  NSYM , NOFF,  KMACH,  KTP14,  KASE  BOXC 

READ (5,8000)  IPROS  BOXC 

IF ( IPROS  ) READ( 5, 70 00)  ANGLE,  XSCALE,  YSCALE,  ZSCALE , XTRANS , BOXC 

1 YTRANS,  ZTRANS  BOXC 

IF(  .NOT.  IFROS)  GC  TO  2 BOXC 


1 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 


nc 


o o o 


PROGRAM  MAIN 


74/74  OPT  =2 


FTN  4.7*476 


0 2/27/80 


17 • 14 • 3 


I FI  XSC  ALE  .EQ.  0.0)  XSCALE  = 1.0 

BOXC 

58 

IFIYSCALE  .EQ.  0.0)  YSCALE=i.O 

BOXC 

59 

IFIZSCALE  .EQ.  0.0)  ZSCAL£=i.Q 

BOXC 

60 

CONTINUE 

BOXC 

61 

READ  < 5,9300  ) LEAK,  FRACT 

BOXC 

62 

REWINO  1 

BOXC 

63 

REWIND  3 

BOXC 

64 

REWINO  8 

BOXC 

65 

REWINO  9 

BOXC 

66 

REWINO  10 

BOXC 

67 

REWINO  11 

BOXC 

68 

REWINO  12 

BOXC 

69 

REWINO  13 

BOXC 

70 

IF  I LI  ST  . EQ.  0)  REWINO  4 

BOXC 

71 

MACH  = 0.0 

BOXC 

72 

IF  (KMACH  *LE • 0)  GO  TO  7 

BOXC 

73 

NNON  = 0 

BOXC 

74 

READ  C 5,  6 ) MACH 

BOXC 

75 

AFLOW  = .TRUE. 

BOXC 

76 

9FL  OW  = .FALSE. 

BOXC 

77 

CFLOW  = .FALSE. 

BOXC 

78 

BETA  = S CRT  ( 1.  C - MACH  * MACH) 

BOXC 

79 

50 


RBETA  = 1,0  / BETA 
NU  = S 
CALL  HEADER 

WRITE ( 6 » 9 2 0 0 > 3FL AG » LIST , ISIG,  JPRS,  MFR,  NCuOE,  NNON, 

1 NO  FF » KMACH  , KTP14 

92  C D FORMAT  ( 1HO  , 17X,  17H  INPUT  PARAMETERS-//  2{JX,  6HIFLAG=I2,  5X, 

1 5HL IS  T= 12  , 5X,  5HISIG=X3,  6X,  5HIPRS=I2,  7X,  hHMPR=I2// 

2 20  X * 6HNCOOE  = 12  » 5X,  5HNNON-I2,  5X,  5HNQFF=I3,  5X,  6HKMACH=I2, 

3 5X , 6HKTP14=I2> 

I F ( • NCT . IPRCS)  GO  TO  40 
WRITE*  6, 9500) 

WRITEI  6.  750C  ) ANGLE , XSC A uE , YSCAlE , ZSCA LE , XTRANS , Y TRANS ,Z TRANS 
40  W RIT  E ( 6,9  400  ) LEAK,  F^ACT 
I F< • NOT*  I PROS  I GO  TO  53 
COSA  = COS(  0 •017h 53 3 * ANGLE) 

SINA  = SIN ( 0.0174533  * ANGLE) 

IF  < AFLOW  .OR.  8F LOW  .OR.  CFLGW ) NU  = 1 
CALL  INPIT  (LIST) 

CALL  0 VERL  AY(4H0OXC,1,O) 

IF  ( LI  ST  • NE.  U GO  TO  10 
CALL  FLOWS  < NU  , NNON) 

CALL  CVERLAY(4H80XC,1,1) 

IF(KTP14  .EQ.  1)  CALL  0/ ERLA Y !4H60 XC ,6 t 0 ) 

GO  TO  1000 
CONTINUE 
GO  TO  5000 

FORM  XIJ  , YIw  , ANO  ZIJ  MATRICES 

C1000  CALL  V FORM 
10  00  CALL  Ov/ERLAY<4HBGXC,2,0> 

IF  ( NC  ODE)  500  0 , 1500  , 2000 
1500  NCODE  = 1 

IF  INQUAO  «GT  • 500  > NC  DDE  = 2 
2000  IF  ( NM AT  .EQ.  3)  NCQOE  = 2 


10 


BO  XC  80 

aoxc  6i 

BO  XC  62 
BO  XC  83 
BO  XC  84 
80  X C 65 
66 
07 


BOXC 
BO  XC 
BOXC 
BOXC 
BOXC 
BOXC 
80X0  92 

BOXC  93 
BOXC  94 


69 

90 

91 


95 

96 

97 
96 
99 


BOXC 
BOXC 
BOXC 
BOXC 
BOXC 
BOXC  ICO 
BOXC  101 
BOXC  102 
BOXC  103 
BOXC  104 
BOXC  105 
BOXC  106 
BOXC  1C7 
BOXC  108 
BOXC  1 09 

boxc  no 

BOXC  111 
BOXC  112 
BOXC  113 
BOXC  114 
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PROGRAM  MAIN 


74/ 74  CPT=2 


FTN  4.7*476 


Cc/27/6b 


17.14.36 


C CALL  AFCRM 

CALL  O\/ERLAY(4H0OXC,3,O> 

IF  I NAFLO  F » 2100,  2103,  2050 
2050  KMAT  = 1 

NFL  = NAFLCW 
GO  TO  2300 

2103  IF  t N3FL01  ) 2200,  2203,  2150 
2150  KMAT  = 2 

NFL  = N8FLCW 
GO  TO  2300 

2200  IF  ( NCFLO»  ) 5000,  5003,  2253 
2250  KMAT  = 3 

NFL  = NC  FLOW 
2300  NQ  = NQUAO  + 1 
MN  = 1 

Nil  = MOO  l NQ,  255  ) 

IF  ( NM  ,LT.  5 .ANO.  NM  . GT.  0 ) NQ  = NQ  ♦ 5 
NFLCOM  = 0 

NSOL  = MINC ( 6003  / NQUAO,  ltfl) 

IF  (NCODE  .NE.  1)  GO  TO  2500 
2403  Ni  = 6 
N 2 = 9 
N3  = 13 

2450  NCFLG  = NFL 

C CALL  SCLi/Il  (DUMMY(l),  NQUAO,  NFL,  KORE,  Nl, 

CALL  OVEFLAY14HBOXC,4,OJ 
REWIND  3 

C IF  (MN  .EQ.  1)  CALL  ATAPES  (MN) 

IF  (MN  .EQ.  1) 

1CALL  OVERLAYC4F80XC, 6 ,0) 

GO  TO  3300 

C2503  CALL  ATAPES  (MM 
2500  CALL  O VERL AY( 4H80  XC, 6 ,0) 

NSKIP  = 0 

2900  NCFLG  = NINO  (NSOL,  NFL  - NSKIF) 

C CALL  SIGMA  (NFLCOM  ) 

CALL  OVERLAY(4HB0XC,5,0) 

ITER  = 0 

C 33 00  CALL  PRINT1  (NFLCOM,  MN,  KMAT,  NSEC) 

3300  CALL  CVERLAY(4HB0XC,7,0> 

NFLCOM  = NFLCCM  * NCFLG 

NSKIP  = NSKIP  ♦ NCFLG 

IF  ( NC  CO  E .EQ.  1)  GO  TO  3700 

I F ( NSKIF  .NE.  NFL  ) GO  TO  2900 

MN  = MN  * 1 

IF  ( KMAT  - 2 ) 3500,  3600,  5000 

3500  IF  ( N9FL0F  ) 3600,  3603,  3550 
3550  NFL  = N3FLCH 
KMAT  = 2 
GO  TO  2500 

3600  IF  ( NC  FLO  F ) 5000,  5003,  3650 

3650  NFL  = NCFLCW 
KMAT  = 3 
GO  TO  2500 

3700  IF  (MN  .EQ.  2 .OR.  NM  AT  .EQ.  1)  GO  TO  5000 
Nl  = l(i 
N 2 = 13 


N2, 


N3,  3, 


5,2  475) 


80XC  115 
80  XC  116 
80XC  117 
80  XC  118 

eoxc  119 

30  XC  120 
BO  XC  121 
80XC  122 
eoxc  123 
BO  XC  124 
BOXC  125 
30XC  126 
BOXC  127 
BOXC  128 
BOXC  129 
BOXC  130 
BOXC  1 -1 
BOXC  132 
BOXC  133 
BOXC  134 
BOXC  125 
BOXC  136 
BOXC  137 
BOXC  138 
BOXC  139 
BOXC  140 
BOXC  141 
BOXC  142 
BOXC  143 
BOXC  144 
BOXC  145 
EOXC  146 
BOXC  147 
BOXC  148 
BOXC  1*.9 
BOXC  150 
BOXC  151 
60XC  152 
BOXC  153 
BOXC  154 
BOXC  155 
BOXC  156 
BOXC  157 
BOXC  158 
BOXC  159 
BOXC  160 
BOXC  161 
BOXC  162 
0OXC  163 
BOXC  164 
BOXC  165 
BOXC  166 
30 XC  167 
BOXC  168 
80XC  169 
BOXC  170 
BOXC  171 
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PROGRAM  MAIN 


74/7*4  OPT  = 2 


FTN  4.7*476 


02/27/80  17.14.35 


N3  = 6 

30  XC 

172 

MN  = 2 

QOXC 

173 

c ** 

POSITION  THE  TAPE  FOR  THE  SIGf'AS. 

80  XC 

174 

JJ  = £ 

60  XC 

175 

IF  CISIG  o NE.  C)  JJ  = 3 

QOXC 

176 

JJ  = NFLOW  * JJ  ♦ NFL 

30XC 

177 

DO  3750  J = 1,  JJ 

QOXC 

176 

3750 

READ 

QOXC 

179 

NFL  = NFLOW  - NFL 

BO  XC 

180 

x C KM AT  - 2)  38  00?  3903*  5000 

90  XC 

161 

38  00 

IF  (N8FL0W)  3900,  3900,  3S50 

30  XC 

182 

3 8 50 

KMAT  = 2 

BOXC 

183 

GO  TO  2450 

90  XC 

16*4 

3900 

KMAT  = 3 

BOXC 

185 

GO  TO  2450 

BOXC 

166 

50  00 

CONTINUE 

BOXC 

187 

WRITE  (6,  5100) 

aoxc 

186 

5ian 

FORMAT  < 1H Q , 10X,  12HLEA/ING  MAIN) 

BOXC 

189 

BOXC 

190 

BOXC 

191 

80  X C 

192 

CALL  EXIT 

BOXC 

193 

c 

IF  (LIST  .NE.  C)  STOP 

BOXC 

194 

GO  TO  1 

BOXC 

195 

END 

eoxc 

196 

98 
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♦DECK, HEADER 

SUBROUTINE  HEADER 

COMMON  HEOR (15) * MPR, NER, IPRS,ISIG, I TER, NCFLG, NFL OW, NQUAQ, 

1 KASE,  NOFF, NSYM, IF  LAG, IFLOW»NGOC£ 

DATA  IP AGE/0/ 

1 FORMAT ( 1H1,  5X,  13HPROGRAM  BOXC  , 15X,  30 H ATM OSPHERIC  SCIE 
10CIATES/  38X,  22H8ECFCR0,  MASSACHUSETTS , 22X,  4HPAGE,  15/ 

2 7X,  8H BODY  ID.,  2X,  A4/  30X,  15A(») 

10  IPAGE  = IPAGE  + 1 

WRITE  (6,1)  IPAGE,  KASE,  HEDR 

RETURN 

END 


HEAD 
HEAD 
HEAO 
HEAD 
HEAD 
NCE  ASSHEAD 
HEAD 
HEAO 
HEAO 
HEAD 
HEAO 
HEAD 


♦0  ECK,  ROWV  ROWV 

SUBROUTINE  ROWVf  XIJ,  YIv,  ZIJ,  III,  KSKIP  ) ROWV 

COMMON  HEDR (1 5) , MPR, NER , IPRS, ISIG, ITER, NCFLG, NFL OW,NQUAD  , ROWV 

1 KASE  »NOFF,  NSYM,IFLAG,IFLOW,NCOQE  ROWV 

LOGICAL  AFLOW,  6 FLOW , CFLOW  ROWV 

COMMON  /DFLOW/  AFLGW,8FLOW,  CFLOW»v|MAT,  NMATMl.N AFLOW, NBFLOW,  NCFLOW  ROWV 
DIMENSION  XIJ(i),  YIJ(l),  ZIJ(i)  ROWV 

INTEGER  CKFLG  R0WV 

DIMENSION  NT(3)  R0WV 

DATA  NT  / 1,  11,  I?  / R0WV 

5 CKFLG  s 0 ROWtf 

N1  = 1 ROWV 

N2  = NQUAO/  3 ROwv 

N3  = NQUAD  - N2  - N2  R0WV 

NN  = N2  ROWV 

C READ  IN  ONE  ROW  OF  THE  VX,  VY , VZ  ROWV 

DO  50  11=  1,  3 ROWV 

NTAPE  = NT  ( ID  R0WV 

10  READ (NT APE)  (XIJ  (12)  , YIJ(I2)  , ZIJ(I2)  , 12  = Ni  , NN  ) ROWV 

Ni  = NN  + 1 R0  WV 

IF ( II  .EQ.  2 ) GO  TO  35  ROWV 

NN  — NN  t N2  ROWV 

GO  TO  50  ROWV 

35  NN  = NN  + N3  ROWV 

50  CONTINUE  rqwv 

NER  = 0 ROWV 

IF  ( III  ,NE.  (NQUAD  + NOFF))  IF  ( KSKIP  ) 80,  80,  100  ROWV 

REWIND  1 R0WV 

REWIND  11  R0WV 

REWINO  12  R0WV 

80  RETURN  ROWV 

100  IF  ( NMATM1  .EQ.  0 ) RETURN  ROWV 

DO  110  NI  = 1,  NMATM1  . ROWV 

READ  ( 1 ) ROWV 

RE AO  ( 11  ) R0WV 

110  READ  ( 12  ) R0Wl/ 

RETURN  RO  WV 

END  RO  WV 


99 


17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 
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i 
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♦DECK,  INPUT 

SUBROUTINE  INPUT 
C SUBROUTINE  INPUT  (LIST) 

LOGICAL  IPROS 
COMMON  /INPT/  LIST,  IPROS 
REAL  NX,  NY,  NZ  , IXX,  IXY, 
LOGICAL  AFLOW,  BFLOW , CFIOW, 
INTEGER  STAT,  STATT,  CONV 
DIMENSION  SPH  ( 200  ),  CPH 
DIMENSION  XOFF(IOOO),  YGFF 
DIMENSION  XA  ( 590  ),  XB  ( 

1 ZA  ( 500  ),  ZB  ( 500  ), 

2 XI  (4) , ETA  (4) , XIN  (4), 

3 YNULL  (1000)  , Z NULL  110  CO)  , 


IYYf 


RFLAG , 


MACH 

AFLAG, 


BFLAG 


) , ZINP  ( 200  ) 


3030 

1 

4002 


( 209  ) , XINP  ( 200 
(1090) , ZOFF  (1000) 

500  ! , YA  ( 500  ) , YB  < 500  ) , 

NLINE( 500  ),  NLT  ( 500  ),  C FLAG (3) , 

YIN  (4),  ZIN  (41 , XNULL  (1000), 
XNORM(iOOG) , 

4 YNORM  ( 1100),  ZNORM  (1000),  RX  (4),  R (4),  RY  (4) 

COMMON  HEDR (15) »MPR,NER» IPRS, ISIG, ITER, NCF LG, NFL OW, NQU AO , 

1 KASE,  NOFF,  NS  YM,  I FLA  C-,  IFLOW,  NCODE 
COMMON  /M / MACH,  BETA,  RBETA 
COMMON  /NORMS/  XNORM,  YNORM,  ZNORM 
EQUIVALENCE  (XNULL,  XOFF),  ( YNULL,  YOFF) , 

1 (ZNULL , ZOFF),  (NULL,  NQUAD) 

COMMON  /DFLOW / AFLCW  , BFL  CW  , CFLOW,NMAT»  NMATM1,N AFLOW, NBFLCW , NCF LOW 
DATA  CFLAG  ✓ 2H  1,  2H  2,  2H  / 

DATA  PI/3.141593E0/,  HAF FI/1. 570796EG/ , EPS/. 0001/ 

FORMAT  (1H1) 

( 3E10.0,  12  / 3F10.0,  12) 

( 1H0,  6X , 5HN  M,  7X,  4 ( 1HX,  11X  ),  2HNX , 

1HD  / 19X,  4 ( 1HY , 11X  ),  2HNY,  11X,  3HNPY , 

),  2HNZ,  11X,  3( NPZ  » 11X,  1H A 


FORMAT 
FORMAT 

1 11X, 

2 19X, 

4005  FORMAT 

1 2 F 1 3 • 

4010  FORMAT 

1 2F13.6,  E14.4 

4015  FORMAT  ( 1HC,  3 ( 


4(1HZ,  11X 
( 1H0 , 7X , 
6,  E14.4  ) 
( 1H0 , 3X, 


11X, 

11X, 

) 


3HNPX, 
1HT  / 


14,  4F12.6,  2F13.6,  £14. 4, A2/( 12X, 4F 12 . 6, 

) 

214,  4F12.6,  2F13.6,  E14.4.A2/ (12X,  4F12.6, 

) ) 

20  >,  12H ****** ******  )) 


INPUT  — SECTION  9.1  INPUT  SCHEME 
KLCT  = 0 
NULL  = 0 
NPRT  = 13 
WRITE  (6,  40) 

40  FORMAT  ( 1HO , 16X, 44HP  ARAMETRIC 
1 ///  38 X,23HGENERATEO  UNIFORM  FLOWS  //) 


INFORMATION 


41 


42 


43 


44 


45 

46 

47 

48 

49 
51 


IF  ( AFLOW  ) WRITE  (6, 
FORMAT  (46X,6HX-FL0W) 

IF  ( BFLOW  ) WRITE  (6, 
FORMAT  (46X,6HY-FL0W) 

IF  ( CF LOW  ) WRITE  (€, 
FORMAT  (46X  , 6HZ--FL0 W ) 

IF  (IPRS  • NE.  0)  WRITE 
FORMAT  (1H0,16X, 22HPRINT 
IF  (MPR  .EQ.  0)  GO  TO  52 
IF  (MPR  “ 2)  45,  47,  49 
WRITE  (6,  46) 

FORMAT  (lHQ,16X,18hPRINT 
GO  TO  52 
WRITE  (6,  48) 

FORMAT  (1H0:  ,16X,  18HPRINT 
GO  TO  52 
WRITE  (6,  51) 

FORMAT  (1H0,16X,  31FPRINT 


41) 


42) 


43) 


(6,  44) 
SIGHA 


ITERATIONS  ) 


VIJ  MATRICES) 


AIJ  MATRICES  ) 


BOTH  VIJ  ANO  AIJ  MATRICES  ) 


INPU 

1 

INPU 

2 

INPU 

3 

INPU 

4 

INPU 

5 

INPU 

6 

INPU 

7 

INPU 

8 

INPU 

9 

INPU 

10 

INPU 

11 

INPU 

12 

INPU 

13 

INPU 

14 

INPU 

15 

INPU 

16 

INPU 

1*7 

INPU 

18 

INPU 

19 

INPU 

20 

INPU 

21 

INPU 

22 

INPU 

23 

INPU 

24 

INPU 

25 

INPU 

26 

INPU 

27 

INPU 

28 

INPU 

29 

INPU 

30 

INPU 

31 

INPU 

32 

INPU 

33 

INPU 

34 

INPU 

35 

INPU 

36 

INPU 

37 

INPU 

38 

INPU 

39 

INPU 

40 

INPU 

41 

INPU 

42 

INPU 

43 

INPU 

44 

INPU 

45 

INPU 

46 

INPU 

47 

INPU 

48 

INPU 

49 

INPU 

50 

INPU 

51 

INPU 

52 

INPU 

53 

INPU 

54 

INPU 

55 

INPU 

56 

INPU 

57 

INPU 

58 

INPU 

59 

INPU 

60 

100 


IF  CIFLAG  .EQ.  0)  GO  TO  29 
READ  <5*  20)  NLMi,  MMIN*  8,  C 
IF  IB  • EQ.  0,0)  B = 1.0 
IF  (C  .EQ.  0.0)  C = 1.0 

20  FORMAT  i 215,  2F10.5  ) 

4 FORMAT  < 8F13.0  ) 

WRITE  (6,  62)  NLM1,  l-MIN,  B,  C 

62  FORMAT  C1H0,16X, 10HGENERATE  A, 13, 

1  4X,3HC  =,  F10 . 5 ) 

MLINES  = MMIN  ♦ 1 

NUNES  = NLM1  ♦ 1 

N = 0 

IF  C NS YM  .EQ.  0 ) GO  TO  2 
IF  ( NS  YM  - 2 ) 3,  5,  6 

2 PITH  = PI 
PIPHI  = PI  + PI 
GO  TO  7 

3 PITH  = PI 
PIPHI  = PI 
GO  TO  7 

5 PITH  = PI 
PIPHI  = HAFPI 
GO  TO  7 

6 PITH  = HAFPI 
PIPHI  = PITH 

7 SPH  ( MLINES  ) = SIN  < PIPHI  ) 

SPH  ( 1 ) = 0.0 

CPH  ( MLINES  ) = CCS  C PIPHI  ) 

CPH  t 1 ) = 1.0 
EKM  = MMIN 
EKN  = NLM1 
EMM  =0.0 
OO  8 I = 2,  MMIN 
EMM  = EMM  +1.0 

PHI  = EMM  ✓ EKM  * PIFHI 

SPH  t I ) = SIN  ( PHI  ) 

8 CPH  t I ) = COS  ( PHI  ) 

IF  I IFLAG  .EQ.  2 ) GO  TO  10 
ENN  = 1.0 

DO  9 1=1,  MLINES 

XA  C I ) = 1.0 
YA  ( I ) = 0.0 

9 ZA  ( I ) = 0.0 
GO  TO  18 

10  READ  ( 5,  4 ) C XINP  I I >,  2INP  ( I )» 
DO  11  I = 1,  MLINES 
XA  ( I ) = XINP  i 1 1 


I NPU  61 
INPU  62 
INPU  63 
INPU  64 
INPU  65 
INPU  66 
INPU  67 
INPU  68 
INPU  69 
INPU  70 
INPU  71 
INPU  72 
INPU  73 
INPU  74 
INPU  75 
INPU  76 
INPU  77 
INPU  78 
INPU  79 
INPU  80 
, F 10  • 5 , INPU  81 
INPU  82 
INPU  83 
INPU  84 
INPU  85 
INPU  86 
INPU  87 
INPU  88 
INPU  89 
INPU  90 
INPU  91 
INPU  92 
INPU  93 
INPU  94 
INPU  95 
INPU  96 
INPU  97 
INPU  98 
INPU  99 
INPU  100 
INPU  101 
INPU  102 
INPU  103 
INPU  104 
INPU  1U5 
INPU  106 
INPU  107 
INPU  106 
INPU  109 
INPU  110 
INPU  111 
INPU  112 
INPU  113 
INPU  114 
INPU  115 
INPU  116 
INPU  117 

1=1,  NLINES  ) INPU  118 

INPU  119 
INPU  120 


52  IF  (ISIG  «N£.  0)  WRITE  (6,  53) 

53  FORMAT  (1H0  ,16X,  19HINPUT  SIGMA  GUESSES  ) 

IF  CNSYM  - 1)  54,  56,  58 

54  WRITE  (6,  55) 

55  FORMAT  (1H0,16X,  21HNC  SYMMETRY  SPECIFIED  ) 

GO  TCT  61 

56  WRITE  (6,  57) 

57  FORMAT  C1H0  ,16X, 30HTHERE  IS  ONE  PLANE  OF  SYMMETRY  ) 

GO  TO  61 

58  WRITE  (6,  59)  NS  YM 

59  FORMAT  UH0>i6X„9HTHERE  ARE, 12,  19H  PLANES  OF  SYMMETRY  ) 
61  IF  C MACH  .NE.  0.0  ) WRITE  (6,  21)  MACH 

21  FORMAT  (1H0,16X, 13HM ACH  NUMBER  =,F10.5) 


2H  X , 13 , 12H  SPHERE.  8 = 
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I ) 
I ) 
I ) 
I > 
I ) 
= 2 


YA  I 
ZA  ( 

XB  C 
YB  C 

11  ZB  ( 

NLCT 
GO  TO  250 

12  DO  14  I = i»  Mil NES 

XA  C I ) = XB  ( I ) 

YA  ( I I = YB  ( I 

14  ZA  ( I > = ZB  ( I 

IF  C IFLAG  ,EQ.  1 

NLCT  = NLCT  + 1 

I = It  MLINES 
) = 

) = 

) = 


8 * 

ZINF  ( 

1 

} 

* 

SPH  ( 

I 

) 

- C * ZINF 
XI NP  ( 2 ) 

( 

1 

I 

* CPH 

( 

I ) 

B * 

ZINP  ( 

2 

) 

* 

SPH  ( 

I 

) 

- C 

* ZINf 

( 

2 

1 

* CPH 

( 

I ) 

I 

) 

) GO  TO  16 


DO  15 
XB  ( I 
YB  ( I 
ZB  ( I 
GO  TO  250 
16  ENN  = ENN  + 
18  THETA  = ENN 


15 


XI NP  ( NLCT  ) 

B * ZINP  ( NLCT  ) * SPH  < I ) 

- C * ZI>P  ( NLCT  ) * CPH  C I ) 


1.0 

/ EKN 


* FITH 


STH  = SIN  ( THETA  ) 
CTH  = COS  ( THETA  ) 
I = 


It  MLINES 
} = CTH 

B 

- C 


* STH  * SPH  { I 

* STH  * CPH  ( I 


DO  17 
XB  ( I 
YB  ( I ) = 

17  ZB  C I ) = 

GO  TO  2 50 
29  N = -1 

IF  (LIST  .EQ.  G)  GO  TO  50 
WRITE  <6t  19) 

19  FORMAT  (1H0  16X  28HBASIC  DATA  CALCULATIONS  ONLY) 


INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 

INPU 


121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

1 40 

141 

142 

143 

144 

145 

1 46 

147 

148 

149 

150 

151 


GO  TO  50 

INPU 

152 

33 

IF  ( RF LAG  ) GO  TO  50 

• 

INPU 

153 

RFLAG  = .TRUE. 

INPU 

154 

X = XX 

INPU 

155 

Y = YY 

INPU 

156 

Z = ZZ 

INPU 

157 

STAT  = STATT 

INPU 

158 

IF  (LIST)  66t  66,  65 

INPU 

159 

50 

RFLAG  = .FALSE. 

INPU 

160 

READ  ( 5,  1 ) X,  Y,  Z,  STAT, 

XX,  YY 

, ZZ,  STATT 

INPU 

161 

IF  ( IPROS  ) CALL  OATPROSi  X, 

Y,  Z, 

XX,  YY,  ZZ  ) 

INPU 

162 

65 

IF  (N  .EQ.  («li  )GO  TO  80 

INPU 

163 

66 

IF  (STAT  .EQ.  0 .OR.  STAT  . EQ. 

3)  GO 

TO  180 

INPU 

164 

IF  ( STAT  .EQ.  2 ) GC  TO  200 

INPU 

165 

IF  ( .NOT.  AFLAG  ) GO  TO  200 

INPU 

166 

MG  = M 

INPU 

167 

80 

M = 1 

INPU 

168 

IF  ( STAT  .EQ.  2 ) GO  TC  150 

INPU 

169 

IF  ( .NOT.  9FLAG  ) GO  TO  84 

INPU 

170 

75 

DO  81  J = 1,  MC 

INPU 

171 

XA  ( J ) = XB  ( J ) 

INPU 

172 

YA  ( J ) = YB  ( J ) 

INPU 

173 

81 

ZA  ( J ) = ZB  ( J 1 

INPU 

174 

83 

XB  ( 1 ) = X 

INPU 

175 

YB  ( 1 ) = Y 

INPU 

176 

zb  m * z 

INPU 

177 

GO  TO  30 

INPU 

178 

84 

IF  ( AFLAG  ) GO  TO  85 

INPU 

179 

BFLAG  = .TRUE. 

• 

INPU 

180, 
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GO  TO  75  INPU 

85  AFLAG  = .FALSE.  ' INPU 

GO  TO  83  INPU 

150  AFLAG  = .TRUE.  INPU 

BFLAG  = .FALSE.  INPU 

IF  (N  . EQS  (-ll)N  = 0 INPU 

160  XA  C M ) = X INPU 

YA  C M I = Y INPU 

Z A ( M ) = Z INPU 

GO  TO  30  INPU 

180  M = M + 1 INPU 

IF  ( AFLAG  ) GO  TO  160  INPU 

X3  (M  ) = X INPU 

Y8  ( M I = V INPU 

ZB  ( M ) = Z INPU 

IF  ( STAT  .NE.  3 ) GO  TO  30  INPU 

200  MMIN  = HINO (M»  HC>  - 1 INPU 

MC  = M INPU 

250  N = N + 1 INPU 

KLCT  = KLCT  ♦ 1 INPU 

INPU 

C BEGIN  COMPUTATION  OF  NULL  POINTS  AND  28  QUANTITIES  INPU 

INPU 

DO  2000  1 = 1,  MHIN  INPU 

NULL  = NULL  ♦ 1 INPU 

XIN(i)  = X A < I J * RBETA  INPU 

XINC2I  = X A ( I+l  I * RBETA  INPU 

XINC3)  = XBCI+1)  * R8ETA  INPU 

XINC4)  = XBC  I 5 * RBETA  INPU 

YIN ( 1 I = YA  CD  INPU 

YINC2)  = YAII+1)  INPU 

YIN(3J  = Y 8(1+11  - INPU 

YINJ4)  = YBCII  INPU 

ZIN (I)  = ZACII  INPU 

ZIN (21  = ZA (I+il  INPU 

ZIN  (3)  = Z8(I  + 1)  INPU 

ZI N ( 4)  = ZB  (I ) INPU 

INPU 

C FORM  DIAGONAL  VECTORS  INPU 

C EQUATION  ( 64  ) INPU 

INPU 

T1X  = XINC3I  - X IN (1 ) INPU 

T2X  = XINC4)  - XIN (2)  INPU 

T1Y  = YINC3)  - YIN (1 ) INPU 

T2Y  = Y I N ( 4 ) **  YIN  (2)  INPU 

T1Z  = ZIN(3»  - Z IN ( 1 ) INPU 

T2Z  = Z I N ( 4 1 - ZIN ( 2 I INPU 

INPU 

C FORM  CROSS  PRODUCT  N = T2  X T 1 INPU 

C ECU  AT  I ON  ( 65  ) INPU 

INPU 

NX  = T2Y+T1Z  - T 1Y+T2Z  INPU 

NY  = T1X+T2Z  - T2X*T1Z  INPU 

NZ  = T2X*T 1Y  - T1X  «T2Y  INPU 

VN  = SQRT  ( NX*  NX  + NY*  NY  + NZ*  NZ  ) INPU 

INPU 

C FORM  UNIT  NORMAL  VECTOR  INPU 

C EQUATION  ( 66  I INPU 

INPU 

NX  = NX  / VN  INPU 


181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

19  5 

196 

197 

198 

199 

200 
20 1 

20  2 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 
2 33 

234 

235 

236 

237 

238 

239 

240 
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NY  = NY  / VN 
NZ  = NZ  ✓ VN 

C COMPUTE  AVERAGE  POINT 
C EQUATION  ( 68  ) 

AVX  = .25  * C XINtii  ♦ XINI2I  + XIN<3>  * XIN44J  1 

AVY  = .25  ♦ < YINCil  + YIN<2)  ♦ YIN43)  + YIN<4>  3 

AVZ  = .25  * < ZX  N(l)  + ZIN  ( 2)  ♦ ZIN<3>  + ZIN<4>  ) 

C COMPUTE  PROJECTION  DISTANCE  ' 

C EQUATIONS  ( 69  3 AND  < 71  ) 

D = NX* ( AVX  - XI  Ml)'  ) + NY*  < AVY  - YIN  Cl*  3 * NZ*(AVZ-ZIN 
PD  = ABSI  D I 

C EQUATIONS  ( 73  3 AND  C 74  ) 


T = 

SORT  i T1X*T IX  * 

T1X 

= 

T1X  / T 

T1Y 

= 

T1Y  / T 

T1Z 

2S 

T1Z  / T 

EQUATION 

< 75  3 

T2X 

— 

N Y*T 1Z  - NZ*T1Y 

T2Y 

N Z*  T 1 X - N X*  T 1 Z 

T2Z 

= 

NX*T1Y  - NY*T1X 

C COMPUTE  COORDINATES  OF  CORNER  POINTS  IN  REFERENCE  COORD.  SYSTEM 
C EQUATION  ( 72  ) 

DO  1300  J = 1,  4 

XP  = XIN(J)  + NX  * 0 

YP  = YINU3  * NY  * D 

ZP  = ZINJJ3  * NZ  * 0 

0 = - 0 
XDIF  = XP  - AVX 
YDIF  = YP  - AVY 
ZDIF  = ZP  - AVZ 

C TRANSFORM  CORNER  POINTS  TO  ELEMENT  COORDINATE  SYSTEM  < XI*  ETA  3 
C WITH  AVERAGE  P II NT  AS  ORIGIN 
C EQUATION  t 80  > 

XI(J>  = T1X*XDIF  ♦ T1Y* YDIF  + T1Z*ZDIF 
1000  ETA (J)  = T2X*XDIF  4 T2Y*YOIF  4 T2Z*ZDIF 

C COMPUTE  CENTROID 
C EQUATION  ( 81  3 

XI 0 = . 3333333E0  * C XI  (4)  * ( ETA  (1)  - ETA  (2)  ) + XI  <23 
1 * ( ETA  (4)  - ETA  ( 13  3 ) / < ETA  <2  3 - ETA  <41  ) 

ETAO  = -.3333333E0  * ETAC13 


C OBTAIN  CORNER  POINTS  IN  SYSTEM  WITH  CENTROID  AS  ORIGIN 
C EQUATION  < 32  3 

DO  1020  J = 1,  4 


104 


XIJ  J)  = XI  t J)  - XIO 
10 2 C EFACJJ  = ETA(J)  - ET AO 


C 

C 


C 

C 


C 

c 


c 

c 


c 

c 


COMPUTATION  AIOS 
ETA2M1  - ETA  C 2 
ETA3M2  = ETA  C 3 
ETA4M3  * ETA  < 4 
ETA1M4  = ETA  C 1 
XI1M2  = XI  ( 1 l 
XI2M3  = XI  ( 
XI3M4  = XI  C 
XI4M1  = XI  ( 
ETA2P4  = ETA 
XI 3 Ml  = XI  ( 
XI4M2  = XI  C 
ETA2M4  = ETA 
XI1234  = XI 


2 

3 

4 
( 

3 

4 
( 


t 1 > 


- ETA  I 1 

- ETA  ( 2 

- ETA  ( 3 

- ETA  C 4 
XI  « 2 ) 
XI  C 3 > 
XI  ( 4 ) 
XI  C 1 ) 

ETA  I 4 
XI  C 1 I 
XI  ( 2 ) 

- .ETA  ( 4 
* XI  i 2 ) 


i * 


4 XI  { 3 ) ♦ XI  I 4 ) 


TRANSFORM  CENTROIO  TO  REFERENCE  COORDINATE  SYSTEM 
EQUATION  C 8 3 ) 

XCENT  = AVX  4 T1X*XI0  4 T2X*ETA0 

YCENT  = AVY  4 T1Y*XI0  ♦ T2Y*£TA0 

ZCENT  = AVZ  ♦ T1Z*XI0  4 T2Z*ETA(| 

COMPUTE  LARGER  DIAGONAL  VECTOR 
EQUATION  C 84  > 

TSQ  = AMAX1  * XI3M1  **  2,  XI4M2  **  2 4 ETA2M4  **  2 
T = SQRT  ( TSQ  I 


COMPUTE  AREA 
EQUATION  C 85  ) 
AREA 


= .5  * XI3M1  * ETA2M4 


COMPUTE  2ND  MOMENTS 
EQUATIONS  ( 86  I - ( 
IXX  = 

1 XI123  4 4 

2 XI  ( 3 ) 

3 - XI  ( 4 

IXY  = 

1 44  2 - eta  ( 

2 ETA  (2)4* 


IXY,  IYY 


IXX, 

88  ) 

8,3  23333E-2  * XI3M1  * 
ETA2M4  4 j >i  Ji)  * | xi(lJ 
4*  2 ) 4 XI  ( 2 ) * ETA  ( 2 
) 4 ETA  (4)4  ( XI1234  - 
4.166667E-2  4 XI3M1  ♦ 
4 ) 4*  2 ) - 2.  * XI  ( 
2 ) + ( XI  ( 1 ) 4 XI  ( 


3 ETA  ( 1 ) 4 ETA2P4  ) ) 

IYY  = 6.333333E-2  * XIJM1  * 


( ETA  (1)*  XI4M 
4 XI  (3  ) ) 4 

) * ( X 11234  - XI 
XI  ( 2 ) » ) 

( 2.  ♦ XI  ( 4 ) * 

2 ) * ( ETA  ( 1 ) 
31)4  ETA2M4  * ( 

ETA2M4  * ((ETA  ( 1 


1 ETA2P4  ) *♦  2 - ETA  (It*  ETA2P4  - ETA  ( 2 ) * ETA  ( 


COMPUTE  CONSTANTS  FOR  EQUATIONS  ( 

E GUATION  ( 45  ) 

012SQ  = XI1M2  ♦*  2 4 ETA2M1  **  2 
012  = SQRT  ( 012SQ  ) 

023 SQ  = XI 2 M3  **2  4 ETA3M2  *♦  2 

023  = SQRT  ( 023 SQ  ) 

034SQ  = XI3M4  **2  4-  ETA4M3  **  2 
034  = SQRT  ( 034SQ  ) 

041SQ  ~ XI4M1  ♦*  2 4 ETA1M4  **  2 
041  = SQRT  ( D41SQ  ) 

Cl  = 0.0 
C2  = 0.0 
C3  = 0.0 


42  ) AND  ( 43  ) 


INPU 

3ul 

INPU 

332 

INPU 

303 

INPU 

304 

INPU 

305 

INPU 

306 

INPU 

307 

INPU 

3oa 

INPU 

30  9 

INPU 

310 

INPU 

311 

INPU 

312 

INPU 

313 

INPU 

314 

INPU 

315 

INPU 

316 

INPU 

317 

INPU 

318 

INPU 

319 

INPU 

320 

INPU 

321 

INPU 

322 

INPU 

323 

INPU 

324 

INPU 

325 

INPU 

326 

INPU 

327 

INPU 

328 

INPU 

329 

INPU 

330 

INPU 

331 

INPU 

332 

INPU 

333 

INPU 

334 

INPU 

335 

INPU 

336 

2 4 

INPU 

337 

INPU 

336 

( 4 ) 

) INPU 

339 

INPU 

340 

( ETA 

(1)  INPU 

341 

♦*  2 

- INPU 

342 

2.  4 

INPU 

343 

INPU 

344 

) 4 

INPU 

345 

4 ) ] 

1 INPU 

346 

INPU 

347 

INPU 

348 

INPU 

3 49 

INPU 

3 50 

INPU 

351 

INPU 

3 52 

INPU 

353 

INPU 

354 

INPU 

355 

INPU 

3 56 

INPU 

357 

INPU 

358 

INPU 

3 59 

INPU 

360 
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C4 

0.0 

C5 

0.0 

C6 

0.0 

C7 

■= 

0.0 

C8 

= 

0.  0 

XNP 

= 0.0 

YNP 

1 : 

= 0.0 

IF 

( 

012  ) 1030,  1040, 

1030 

10  30 

Cl 

= 

ETA2M1  / Di 2 

C5 

XI1M2  / D 12 

1040 

IF 

( 

023  ) 1050,  1060, 

1050 

1050 

C2 

.= 

ETA3M2  / D23 

C6 

s 

XI2M3  / D 23 

1060 

IF 

( 

034  ) 1070,  1080, 

1070 

1070 

C3 

zz 

ETA4M3  / D34 

C7 

n 

XI3M4  / 034 

1030 

IF 

( 

041  ) 1090 , 1100, 

1090 

1090 

C4 

=: 

ET  AIM 4 / D41 

C8 

XI4M1  / D 41 

1100 

CON  V 

= 3 

C BEGIN  NULL  POINT  ITERATION 


DO  1591  ITR  = 1,  30 
DO  1580  K = 1,4 
C EQUATION  ( 4 7 > 

R ( K ) = SQRT  C ( XNP  - XI  ( K ) I **  2 + < YNP 
RX  (K  ) = ( XNP  - XI  { K > ) / R ( K ) 

1580  RY  CK  ) = ( YNP  - ETA  < K > ) / R { « ) 

Rlp  R2  = R * 1 ) + R ( 2 ) 

R2PR3  = R C 2 ) f R { 3 ) 

R3PR4  = R ( 3 ) + R C 4 ) 

R4PR1  = R < 4 ) + R ( 1 > 

ARG1  = ALOG  ( ( R1PR2  - 012  ) / ^ R1PR2  + 012  > I 
R4PR1  = R ( 4 ) + R ( 1 ) 

ARG1  = ALOG  ( < R1PR  c - 012  ) / ( R1PR2  + D12  ) ) 

ARG2  = ALOG  ( i R2FR3  - 023  ) / < R2PR3  ♦ C23  ) ) 

ARG3  - ALOG  CCR3PR4  - D3 4 > / ( R3PR4  + D34  ) ) 

ARG4  = ALOG  ( (R4PR1  - D41  > / ( R4PR1  + C41  ) ) 


ETA ( K I ) +* 


C COMPUTE  INDUCED  VELOCITY  CCfPONENTS 
C EQUATIONS  ( 42  > AND  ( 43  ) 

VX  = Cl  * A RSI  «■  C2  * ARG  2 ♦ C3  * ARG3  ♦ C4  ♦ ARG  4 
VY  - C5  * ARG1  «■  C6  * ARG2  * C7  * ARG  3 + C8  * ARG4 


C COMPUTE  PARTIAL  DERIVATIVES  OF  INDUCED 
C EQUATION  ( 90  > , USING  EQUATIONS  ( 91  ) 


0 1 2 P=  ( R1PR2  **  2 - D12  SQ  ) * , 

D23P=  ( R2PR3  **  2 - D23  SQ  ) *■  „ 

D34P=  ( R3PR4  **  2 - D34  SQ  ) * . 

D41P=  ( R4PR1  **  2 - D41  SQ  > f , 

C1P  = ETA2M1  / D12P 

C2P  = ETA3N2  / D23P 

C3P  = ETA4M3  / D34P 

C4P  - ETA1M4  / 0 41P 

C5P  = XI1M2  / D12P 


VELOCITIES 

- ( 93  ) 


5 

5 

5 

5 


INPU  361 
IN PU  3 62 
INPU  363 
INPU  364 
INPU  365 
INPU  366 
INPU  367 
INPU  368 
INPU  369 
INPU  370 
INPU  371 
INPU  372 
INPU  373 
INPU  3 74 
INPU  375 
INPU  376 
INPU  377 
INPU  378 
INPU  379 
INPU  380 
INPU  381 
INPU  362 
INPU  383 
INPU  384 
INPU  385 
INPU  386 
INPU  387 
INPU  388 
INPU  369 
INPU  390 
INPU  391 
INPU  392 
INPU  393 
INPU  394 
INPU  395 
INPU  3S6 
INPU  397 
INPU  398 
INPU  399 
INPU  400 
INPU  401 
INPU  402 
INPU  403 
INPU  *04 
INPU  405 
INPU  406 
INPU  407 
INPU  408 
INPU  409 
INPU  410 
INPU  411 
INPU  412 
INPU  413 
INPU  414 
INPU  415 
INPU  416 
INPU  417 
INPU  418 
INPU  419 
INPU  420 
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C6P  = XI2M3  / D23P  INPU 

C7P  = XI3M4  / D34P  INPU 

C8P  = XI4M1  / 04 IP  INPU 

R12Y  = RY  « 1 ) + RY  ( 2 ) INPU 

R23Y  = RY  C 2 ) + RY  ( 3 > INPU 

R34Y  = RY  ( 3 ) + RY  ( 4 > INPU 

R41Y  = RY  f 4 I ♦ RY  ( 1 ) INPU 

VXX  = CiP*  < RX  ( i ) + RX  ( 2 ) ) ♦ C2P*  < RX  C 2 ) ♦ RX  ( 3 ) ) *INPU 

i C3P*  { RX  ( 3 ) ♦ RX  { 4 ) > + C4P*  t RX  ( 4 ) + RX  ( 1 ) ) INPU 

VXY  = ClP*  R12Y  + C2F*  R23Y  + C3P*  R34Y  ♦ C4P*  R41Y  INPU 

VYY  = C 5P*  R12Y  «■  C6P*  R23Y  «■  C7P*  R34Y  * C8P*  R41Y  INPU 

INPU 

INPU 

C COMPUTE  NEW  NULL  POINT  < XNP*  YNP  ) INPU 

C EQUATION  ( 94  > INPU 

INPU 

XMXP  = ( VY  * VXY  - VX  * VYY  ) / ( VXX  * VYV  - VXY  ♦*  2 ) INPU 

XNP  = XMXP  ♦ XNP  INPU 

YNP  = YNP  - ( VX  ♦ VXX  * XMXP  I / VXY  INPU 

INPU 

C TEST  NULL  POINT  CONVERGENCE  INPU 

1590  IF  ( ABS  ( VX  ) .LT.  EPS  .ANO.  ABS  ( VY  I .LT.  EPS  ) GO  TO  160  0 INPU 

1591  CONTINUE  INPU 

C NO  CONVERGENCE  • USE  30TH  ITERATION  INPU 

CON  V = 2 INPU 

INPU 

C TEST  IF  THIS  POINT  IS  OUTSIOE  THE  ELEMENT  INPU 

1600  IF  ( XNP  **  Z * YNP  **  2 .LE.  TSQ  ) GO  TO  1620  INPU 

INPU 

C CONVERGES  TO  POINT  AT  INFINITY  INPU 

CONV  = 1 INPU 

XNULL  C NULL  ) = XCENT  INPU 

YNULL  ( NULL  ) = YCENT  INPU 

ZNULL  ( NULL  ) = ZCENT  INPU 

GO  TO  1700  INPU 

INPU 

TRANSFORM  NULL  POINT  TO  REFERENCE  COORDINATE  SYSTEM  INPU 

EQUATION  { 79  ) NOTE  THAT  Z - COORDINATE  IS  ZERO  INPU 

162  0 XNULL  ( NULL  ) = XCENT  + T1X  * XN®  ♦ T2X  * YNP  INPU 

YNULL  C NULL  ) = YCENT  ♦ T1Y  * XN®  + T2Y  ♦ YNP  INPU 

ZNULL  C NULL  ) * ZCENT  «■  T1Z  * XN®  «-  T2Z  * YNP  INPU 

INPU 

INPU 

C PRINT  RESULTS  — SECTION  9,4  THE  FIRST  OUTPUT  INPU 

INPU 

1700  IF  ( NPRT  .GE.  11  ) GO  TO  1750  INPU 

NPRT  = NPRT  ♦ 1 INPU 

IF  ( I .EQ.  1 I GO  TO  1760  INPU 

WRITE  (6,  4005)  I,  XIN,  NX,  XNULL  ( NULL),  PC,  CFLAG  (CONV),  INPU 

1 YIN,  NY,  YNULL  (NULL),  T,  ZIN,  NZ,  Z NULL  ( NULL  ),  AREA  INPU 

GO  TO  1770  INPU 

1750  NPRT  = 0 INPU 

CALL  HEADER  INPU 

WRITE  ( 6,  4002  ) INPU 

1 760  WRITE  ( 6,  4010)  N , I,  XIN,  NX,  XNULL  ( NULL  ),  PD,  CFLAG  (CONVINPU 
1 ),  YIN,  NY,  YNULL  (NULL) , T,  ZIN,  NZ,  ZNULL  ( NULL  ),  AREA  INPU 

1770  XNORM  ( NULL  ) = NX  INPU 

YNORM  ( NULL  ) - N Y INPU 

ZNORM  C NULL  ) = NZ  INPU 

INPU 


42| 
42‘ 
431 
433 
43S 
433 
43< 
43! 
43( 
433 
43( 
4391 
440§ 
44l| 
4421 
443! 
444J 
445| 
446 1 
447] 
448 1 
449/| 
4510 
45l] 

452  j 

453  I 

454  { 

455 


4 56 
457 
456 

459 

460 

461 

462 

463 

464 


465 

466 

467 


468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 


107 


o o o o o o 


C WRITE  28  QUANTITIES  CN  TAPE  4 AS  ONE  LOGICAL  RECORD  INPU 

INPU 

2000  IF  CLIST  .EQ.  0)  WRITE  (41  XCENT»  YCENT,  ZCENT « T1X,  TlY,  T1Z,  INPU 

1 T2X*  T 2Y*  T2Z  * NX,  NY,  NZ,  XKi),  ETA  (1 ) , XI(2),  ETA(2I,  XI  (3 ) , INPU 

2 XI (4),  ET A ( 4 1 , TSQ,  AREA,  IXX,  IXY,  IYV,  012,  D23,  034,  041  INPU 

NLT  ( KLCT  ) = MMIN  INPU 

NLINE  ( KLCT  ) = N INPU 

IF  ( IFLAG  .EQ.  0 ) GO  TO  2001  INPU 

IF  < N .LT.  NLMi  ) GO  TO  12  INPU 

WRITE  ( 6,  4015  ) INPU 

GO  TO  2025  INPU 

2001  IF  ( STAT  .LT.  2 ) GO  TO  80  INPU 

NLT (KLCT)  = -NLT (KLCTI  INPU 

NPRT  = NPRT  ♦ 1 INPU 

WRITE  ( 6,  4015  ) INPU 

INPU 

C TEST  FOR  END  OF  CASE  INPU 

2020  IF  ( STAT  .NE.  3 ) GO  TO  80  INPU 

2025  NN1  = MGO  ( 3 * NQUAC,  255  ) INPU 

NQNN1  = NQUAD  INPU 

IF  ( NN1  .LT.  5 .AND.  NNi  . GT.  0 ) NQNN1  = NQUAD  + 2 INPU 

IF  (LIST.NE.  0)  GO  TO  8500  INPU 

C WRITE  UNIT  NORMALS  ON  TAPE  4 AS  ONE  LOGICAL  RECORD  INPU 

2031  WRITE  (4)  (XNORM(J) , YNORM(J),  ZNDRM(J),  J = 1,  NQNNl)  INPU 

C WRITE  CONTROL  TABLES  ON  TAPE  4 AS  ONE  LOGICAL  RECORD  INPU 

WRITE  ( 4 ) KLCT,  < NLINE  (J),  NLMJt,  J = 1,  KLCT  ) INPU 

C **  WRITE  NULL  POINTS  AND  NORMALS  (1  RECORD)  INPU 

3032  WRITE  ( 4) (XNULL < J) , YNULL(J),  ZNULL(J)  »XNGRM(J),  Y NORM (J ) , ZNCRM ( J) I NPU 
1 • J = 1,  NQUADI  INPU 

WRITE  < 6,  3030  ) INPU 

C WRITE  ALL  NULL  POINTS  ON  TAPE  8 (1  LOGICAL  RECORD  / POINT)  INPU 

DO  2058  I = 1,  NQUAD  INPU 

20  58  WRITE  (8)  XNULL  (II,  Y)ULL(I),  ZNULL(I)  INPU 

INPU 

READ  IN  OFF-BODY  POINTS  INPU 

INPU 

IF  ( NOFF  .LE.-  0 ) GO  TO  8000  INPU 

NOFF  = 0 INPU 

5000  NOFF  = NOFF  + 1 INPU 

REAO  (5,  1)  XOFF(NCFF),  YOFF ( NOFF) , ZOFF C NCFF ) , ST A T , X,Y,Z,ST/>TT  INPU 
IF  (STAT  .EQ.  31  GO  TO  5100  INPU 

NOFF  = NOFF  ♦ 1 INPU 

X OFF (NOFF)  = X INPU 

YOFF ( NOFF)  = Y INPU 

ZOFF(NOFF)  = Z INPU 

IF  (STATT  .NE.  3)  GO  TO  5000  INPU 

INPU 

WRITE  OFF-BODY  POINTS  ON  8 ( 1 RECORC  / POINT  ) INPU 

INPU 

5100  DO  7020  1=1,  NOFF  INPU 

XOFF(I)  = XOFF(I)  * RBETA  INPU 

7C2C  WRITE  ( 8)  XOFFCI),  YOFF(I),  ZOFF(I)  INPU 

INPU 

WRITE  OFF-BODY  POINTS  ON  4 (1  REC"PD>  INPU 

INPU 

WRITE  (4) C XOFF (I ) , YCFF(I),  ZOFF(I),  1 = 1,  NOFF)  INPU 

INPU 

WRITE  (6,  63)  NOFF  INPU 

63  FORMAT  (1H0 ,16X , 9HTHERE  ARE, 14,  1SH  OFF-BODY  POINTS  ) INPU 

8000  REWIND  4 INPU 


481 

482 
463 
48  4 

485 

486 
467 

488 

489 

4 90 

491 

492 

493 

494 

495 

496 

497 

498 

499 
5G0 
501 

5 02 

503 

504 

505 
50  6 
507 
5 C 8 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 
520 

531 

532 

533 

534 

535 

536 

537 
536 

539 

540 
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8500  REWIND  8 

c 

WRITE (6  » 9999)  NQUAD 

9999  FORMA T C 1H0  , 5X,  15,  2 6H  BASIC  ELEMENTS  WERE  INPUT) 

C RETURN 

END 


INPU  541 
INrU  542 
INPU  543 
INPU  544 
INPU  545 
INPU  546 


*D  ECK, OATPR  OATP 

SUBROUTINE  DATPROS  ( X,  Y,  Z,  XX,  YY,  ZZ  ) DA  TP 

OATP 

THIS  IS  A SIMPLE  SCALING  AND  ORIGIN  TRANSLATION  CODE  FOR  THE  OATP 

DOUGLAS  30 XC  POTENTIAL  FLOW  CODE  DATA  INPUT  OATP 

XTRANS,  YTRANS,  ZTRAKS  ARE  ORIGIN  TRANSLATIONS  OATP 

XSCALE,  YSCALE,  ZSCALE  ARE  SCALE  FACTORS  OATP 

THE  CODE  ALSO  ALLOWS  FOR  ROTATION  IN  THE  X - Z PLANE  TO  ADJUST  OATP 

FOR  ARBITRARY  ANGLE  OF  ATTACK  OATP 

SINA,  COSA  ARE  SINE  AND  COSINE  OF  ANGLE  DA  TP 

ANGLE  IS  THE  ANGLE ( INPUT  IN  DEGREES)  THAT  THE  AIRPLANE  AXIS  D ATP 
MAKES  WITH  THE  NEGATIVE  X AXIS  (POSITIVE  COUNTERCLOCKWISE  OATP 

FROM  THE-X  AXIS)  AFTER  SCALING  ( NOTE  - AFTER  SCALING  THE  OATP 

AIRPLANE  NOSE  POINTS  DOWN  THE  NEGATIVE  X AXIS)  OATP 

OATP 

THIS  VERSION  FOR  USE  WITH  BCXC  D ATP 

OATP 
OATP 


COMMON  HE0R(15I,MPR, NER, IPRS, IS IG,  ITER, NCFLG,NFLOW, NQUAD,  OATP 

1 KASE,NOFF, NSYM, IF  LA G» I FLOW , NCOOE  D ATP 

COMMON  /PR0S7  SINA, COSA,  XSCALE,  YSCALE,  ZSCALE,  XTRANS,  OATP 

1 YTRANS,  Z TRANS  OATP 

X = ( X - XTRANS  ) * XSCALE  OATP 

Y = ( Y - Y IRA  NS  ) * YSCALE  OATP 

Z = ( Z - Z TRANS  ) * ZSCALE  OATP 

XX=  ( XX-  XTRANS  ) * XSCALE  DA  TP 

YY=  ( YY-  YTRANS  ) * YSCALE  OATP 

ZZ=  ( ZZ-  ZTRANS  ) * ZSCALE  OATP 

XP  = X OATP 

X = XP  * COSA  - Z * SINA  DATP 

Z = XP  * SINA  + Z * COSA  OATP 

XP  = XX  OATP 

XX=  XP  * COSA  - ZZ*  SINA  OATP 

ZZ=  XP  * SINA  ZZ*  COSA  DATP 

RETURN  DATP 

END  OATP 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 
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FLOWS 

FLOW 

1 

SUBROUTINE  FLOWS 

FLOW 

2 

SUBROUTINE  FLOWS  (NU,  NNCN  ) 

FLOW 

3 

COMMON  /FLOWP/  NU,  NNCN 

FLOW 

4 

COMMON  HEOR (15 ) ■»  MPR * tER,  IPRS>  I SIG,  ITER,  NCFLG,NFL  CW, 

NQUAO, 

FLOW 

5 

KASEtNOFF  ,NSYM»  IFLAG»IFLOW,  NO'OOE 

FLOW 

6 

LOGICAL  AFLOW,  BFLO),  CFLOW 

FLOW 

7 

COMMON  /DFLOW/  A FL CW ,BFLCW , CrLOW, NMAT, NMATMi ,NAFLO W 

, NBFLOW, NCF LOW 

FLOW 

8 

COMMON  / FLOW  / NQ,  NL,  KFLOW,  VX(  20  00)  » V/Y€20(30>« 

VZ < 20  0 0 ) , 

FLOW 

9 

VNCU0  00  I 

FLOW 

10 

COMMON  /NORMS/  XNCRM  (1000  ) , YNGRMU0OO  ),  ZNORM(  1000  ) 

FLOW 

11 

FORMAT  ( 311  ) 

FLOW 

12 

FORMAT ( 6F10.8  ) 

FLOW 

13 

FORMAT  (1H0  »5X  1 6HFLOWS  HAS  SET  U°, 

FLOW 

14 

13,  11 H X FLOWS,  13,  15H  Y FLOWS,  AND  13,  11H 

Z FLOWS  . ) 

FLOW 

15 

NAFLOW  = 0 

FLOW 

16 

NBFLOW  = 0 

FLOW 

17 

NCF  LOW  = 0 

FLOW 

18 

NMAT  = 0 

FLOW 

19 

NQ  = NQUAO  + NOFF 

FLOW 

20 

NL  = NQUAO 

FLOW 

21 

NN  = MOD (3*  NQ  , 255) 

FLOW 

22 

IF  C NN  .LT.  5 . ANC.  NN  .GT.  0 ) NQ  = NQ  ♦ 5 

FLOW 

23 

KFLOW  = 0 

FLOW 

24 

NN  = MOD ( NQUAO,  255) 

FLOW 

25 

IF  ( NN  .LT.  5 .AND.  NN  . GT . 0)  NL  = NL  + 5 

FLOW 

26 

IF  (NNON  .GT.  01  GC  TO  140 

FLOW 

27 

IF  (NU  .GT.  0)  GO  TO  50 

FLOW 

28 

WRITE  (6,  115) 

FLOW 

29 

FORMAT  (1H1 ,6X , 2 4HNO  ONSET  FLOWS  SPECIFIED  ) 

FLOW 

30 

STOP 

FLOW 

31 

IF  ( .NOT.  AFLOW  ) GC  TO  60 

FLOW 

32 

KFLOW  = 1 

FLOW 

33 

GO  TO  100 

FLOW 

34 

IF  ( . NCT.  BFLOW  ) GC  TO  70 

FLOW 

35 

KFLOW  = 2 

FLOW 

36 

GO  TO  100 

FLOW 

37 

IF  ( CFLOW  ) GO  TO  90 

FLOW 

38 

IF  (KFLOW  .NE.  0)  GO  TO  4000 

FLOW 

39 

WRITE  < 6,  80  ) 

FLOW 

40 

FORMAT  ( 1H1,6X,12 HI NPUT  ERROR. , 5X, 25H NO  FLOW  MATRIX  SPECIFIED.  ) 

FLOW 

41 

STOP 

FLOW 

42 

KFLOW  = 3 

FLOW 

43 

CALL  UNIFRM 

FLOW 

44 

IF  (KFLOW  - 2)  60,  70,  4000 

FLOW 

45 

FLOW 

46 

THIS  SECTION  SETS  UP  THE  NON-UNIFORM  ONSET  FLOWS 

FLOW 

47 

FLOW 

48 

DO  3000  N s 1,  NNON 

FLOW 

49 

IERR  = 0 

FLOW 

50 

FLOW 

51 

THE  FLAGS  READ  IN  HERE  HAVE  THE  FOLLOWING  VALUES  o.. 

FLOW 

52 

FLOW 

53 

FLAG  MEANING 

FLOW 

54 

FLOW 

55 

FLOW 

56 

KFL  ....  FLOW  MATRIX-ASSOCIATION 

FLAG 

FLOW 

57 

1 X-FLOW,  2 Y-FLCW,  3 Z 

-FLOW 

FLOW 

58 

FLOW 

59 

KUN  ....  0 NON-UNIFORM  FLOW,  1 UNIFORM  FLOW 

FLOW 

60 

no 
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KTYPE  ....  0 INPJT  FLOW  VELOCITY  COMPONENTS, 

1 INPJT  FLOW  NORMAL  VELOCITY 

READ  ( 5,  31  ) KFL,  KUK,  KTV,  E 
KTEST  = KFL  - KFLOW 
IF  (KTEST)  145,  220,  150 

145  WRITE  ( 6,  146)  KFLOW,  KFL 

146  FORMAT  (15Hl*****NOTE*****  / 2 5 HO AN  INPUT  FLOW  FOR  MATRIX, 13, 

1 38H  PHYSICALLY  PRECEOEO  A FLOW  FDR  MATRIX, 13  / 

2 26H0THIS  FLOW  MUST  BE  SKIPPED  //) 

I ERR  = 1 

60  TO  2 20 

150  IF  (NU)  155,  155 , 152 

152  IF  (KTEST  - 2)  170,  153,  160 

153  IF  (KFL  - 2)  145,  160,  161 

155  KFLOW  = KFL 

156  IF  (KFLOW  - 2)  157,  158,  159 
15  7 AFLOW  = .TRUE. 

GO  TO  2 20 

158  BFLOW  = .TRUE. 

GO  TO  220 

159  CFLOW  = .TRUE. 

GO  TO  220 

160  IF  (.NOT.  AFLOW)  GC  TO  1 €1 
KFLOW  = 1 

CALL  UNIFRM 

161  IF  (.NOT.  BFLOW)  GO  TO  162 
KFLOW  = 2 

CALL  UNIFRM 

162  KFLOW  = KFL 

IF  (KFLOW  .EQ.  2)  GO  TO  158 
IF  (CFLOW)  GO  TO  200 
GO  TO  159 
170  KFLOW  = KFL 

IF  (NU  .EQ.  0)  GO  TO  156 
IF  (KFLOW  - 2)  175,  180,  185 
175  IF  (AFLOW)  GO  TO  200 
GO  TO  157 

180  IF  (9FL0W)  GO  TO  200 
GO  TO  158 

185  IF  (CFLOW)  GO  TO  200 
GO  TO  159 
203  CALL  UNIFRM 
220  NVREAD  = NQUAD 

IF  (KUN  .GT.  0)  NVREAD  = 1 
IF  ( KTYPE  .NE.  0 ) GO  TO  222 

REAO  ( 5,  40  ) ( VX(I),  VY(I),  VZ(I),  1=1,  NVREAD  ) 

GO  TO  224 

222  READ  ( 5,  40  ) ( VNC  (I  ),  1=1,  NVREAD  ) 

OO  223  1=1,  NQUAO 

VX(I)  = 0.0 
VY( I ) = 0.0 

223  V Z(I)  = 0.0 

224  IF  ( IERR  .NE.  0 ) GO  TO  1200 
NVREAD  = NQUAD  ♦ NCFF 

IF  (KUN  .L£.  0)  IF  ( NOFF)  240,  240,  230 
00  225  NV  = 2,  NVREAO 
VX(NV)  = VX(1) 

VY(NV)  = VY  (1) 


FLOW  61§ 
FLOW  62| 
FLOW  63 1 
FLOW  64 J 
FLOW  651 
FLOW  66 1 
FLOW  67 1 
FLOW  68 1 
FLOW  69 1 
FLOW  70  I 
FLOW  7 1 « 
FLOW  72 
FLOW  73  ] 
FLOW  74 
FLOW  75 
FLOW  76  : 
FLOW  77  I 
FLOW  78  1 
FLOW  79  I 
FLOW  80  1 
FLOW  81  I 
FLOW  82  1 
FLOW  83  I 
FLOW  8 4 I 
FLOW  85  1 
FLOW  86  I 
FLOW  87  I 
FLOW  88  | 
FLOW  69  1 
FLOW  98  | 
FLOW  91  I 
FLOW  92  I 
FLOW  93  I 
FLOW  94  || 
FLOW  95  "'! 
FLOW  96  I 
FLOW  97  I 
FLOW  98  | 
FLOW  99  ] 

FLOW  10  0 
FLOW  101 
FLOW  102  ; 

FLOW  103  • 

FLOW  104 
FLOW  105 
FLOW  106 
FLOW  107 

flow  laa 

FLOW  109 
FLOW  110 
FLOW  111 
FLOW  112 
FLOW  113 
FLOW  114 
FLOW  115 
FLOW  116 
FLOW  117 
FLOW  118 
FLOW  119 
FLOW  120 
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225 

VZINV)  = VZI1I 

FLOW 

121 

60  TO  240 

FLOW 

122 

230 

NQP1  = NQUAD  «■  1 

FLOW 

123 

DO  235  NV  = NQP1*  NVREAD 

FLOW 

124 

VXCNV)  = o.o 

FLOW 

125 

VY ( NV)  - 0.  t 

FLOW 

126 

235 

VZ(NV)  = 0.0 

FLOW 

127 

240 

IF  ( KFLOW  - 2 ) 600  » 700*  830 

FLOW 

128 

600 

NAFLOW  = NAFLOW  ♦ 1 

FLOW 

129 

GO  TO  900 

FLOW 

130 

700 

N8FL0N  s N8FL0W  ♦ 1 

FLOW 

131 

GO  TO  900 

FLOW 

132 

SCO 

NCFLOW  s NCFLOW  ♦ 1 

FLOW 

133 

900 

IF  ( KTYPE  .NE.  0 ) GO . TO  1075 

FLOW 

134 

DO  1050  J = 1,  NQUAD 

FLOW 

135 

1050 

VNC  CJ)  = VX(J)*XNORM(J)  + VY ( J )*YNORM ( J)  ♦ VZ  ( J)  *ZNCRM(  JJ 

FLOW 

136 

1075 

WRITE  C 3 ) KFLOk,  (VXCK),  VYIK),  VZ<K),  K - 1 » NQ) 

FLOW 

137 

1100 

WRITE  (3)  C VNC(K),  K = 1,  NL  ) 

FLOW 

138 

FLOW 

139 

READ  IN  FIRST  GUESSES  FOR  THE  SIGMAS 

FLOW 

140 

1200 

IF  ( ISIG  ) 3000*  3000,  1600 

FLOW 

141 

1600 

READ  (5,  40)  l VNC(K),  K = 1,  NQUAD  ) 

FLOW 

142 

FLOW 

143 

WRITE  SIGMA  GUESSES  ON  TAPE  3 AS  3 NE  LOGICAL  RECORD 

FLOW 

144 

FLOW 

145 

IF  <IERR  • EQ.  0)  WRITE  <3)  CVNC(J),  J =1,  NL) 

FLOW 

146 

3000 

CONTINUE 

FLOW 

147 

IF  CNU  .NE.  0)  IF  C KFLOW  - 2)  60,  70*  4000 

FLOW 

148 

40  00 

REWIND  3 

FLOW 

149 

IF  ( AFLOW  ) NMAT  = 1 

FLOW 

150 

IF  ( BFLOW  ) NMAT  = NMAT  ♦ 1 

FLOW 

151 

IF  ( CF LOW  ) NMAT  = NMAT  + 1 

FLOW 

152 

NMATM1  = NMAT  - 1 

FLOW 

153 

NFL OW  = NAFLOW  ♦ NBFLOW  ♦ NCFLOW 

FLOW 

154 

WRITE (6 * 9999)  NAFLOW,  NBFLOW,  NCFLOW 

FLOW 

155 

RETURN 

FLOW 

156 

ENO 

FLOW 

157 
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♦DECK*  UNI FRH  UNIF 

SUBROUTINE  UNIFRM  UNIF 

UNIF 

*****  SPECIAL  FOR  LEAKY  QUAOS  ******  UNIF 

UNIF 

COMMON  / FLOW  / NQ*  NL*  KFLOW,  VXC2000),  VYC2Q00),  VZC2000),  UNIF 

1 VNCC1000)  UNIF 

LOGICAL  AFLOW,  BFLOW*  CFLOW  UNIF 

COMMON  /DFLOW/  AFLOW  ,BFLCW>CFLOW,NMAT*  NMATJ^l  ,NAFL0W*  N8FL0W.  NCFLOW  UNIF 
COMMON  /NORMS/  XNORMCIOOO), YNORM(iuQO) ,ZNORMC1000)  UNIF 

COMMON  HEDR(15),MPR, )ER, IPRS, ISIG, ITER , NCFLG,NFLOW ,NQUAO , UNIF 

1 KASE,NOFF,NSYM, IFLAG,IFLOW,NCOOE  UNIF 

COMMON  /QLEAK/  LEAK,  FRACT  UNIF 

\ UNIF 

THIS  ROUTINE  SETS  UP  THE  UNIFORM  ONSET  FLOWS,  FOR  THESE  FLOWS  IT  UNIF 
IS  ONLY  NECESSARY  TO  HAVE  TWO  VELOCITY  MATRICES,  ONE  ALL  ZEROES  UNIF 


AND  THE  OTHER  ALL  ONES.  WE  SHALL  FILL  VX'  WITH  C*S  AND  VY  WITH  1JS.UNIF 


UNIF 

00  10  I = 1,  NQ  UNIF 

VXCI)  = 0,0  UNIF 

10  VYCI)  = 1.0  UNIF 

UNIF 

NOW  WE*LL  TEST  »KFL0W*  TO  DETERMINE  WHAT  FLOW  TO  SET  UP  FOR.  UNIF 

UNIF 

IF  ( KFLOW  - 2 ) 20,  30,  40  UNIF 

UNIF 

THIS  PORTION  SETS  UP  FOR  »A*  FLOW.  UNIF 

UNIF 

20  NAFLOW  = 1 UNIF 

WRITE  C 3 ) KFLOW,  < VYCI)  , VXCI),  VXCI),  I = 1,  NQ  ) UNIF 

UNIF 

THIS  IS  A PATCH  TO  PROVIDE  FOR  LEAKY  QUAOS,  THESE  MUST  BE  THE  UNIF 

FIRST  QUADS  IN  THE  TABLE.  THEY  LEAK  AT  A FRACTION  FRACT  OF  THE  UNIF 

FREE-STREAM  RATE.  ONLY  THE  A FLOW  IS  FRCVIOEO  FOR  HERE.  UNIF 

UNIF 

LEAK  = NO.  OF  LEAKY  QUADS  UNIF 

UNIF 

IF C LEAK  .GT.  C ) GO  TO  21  UNIF 

WRITEC  3)  ( X NORMC I)  , 1 = 1, NL  ) UNIF 

GO  TO  50  UNIF 

21  DO  22  1=1, LEAK  UNIF 

22  VZCI)  = XNORM  Cl)  + FRACT  UNIF 

IF ( LEAK  .GE.  NL  ) GO  TO  25  UNIF 

LEAKP  = LEAK  * 1 UNIF 

DO  24  I=LEAKP,NL  UNIF 

2k  VZCI)  = XNORM  Cl ) UNIF 

25  WRITEC  3 ) C VZCI),  1=1, NL  ) UNIF 

DO  26  1=1, NL  UNIF 

26  VZCI)  = 0.0  UNIF 

GO  TO  50  UNIF 

UNIF 

C THIS  PORTION  SETS  UP  FOR  *B*  FLOW,  UNIF 

UNIF 

30  NBFLOW  = 1 UNIF 

WRITE  C 3 ) KFLCW,  C VXCI),  VYCI),  VXCI),  I = 1,  NQ  ) UNIF 

WRITE  C 3 ) C YNORMCI),  1=1,  NL  ) UNIF 

GO  TO  50  UNIF 

UNIF 

C THIS  PORTION  SETS  UP  FOR  »C*  FLOW.  UNIF 

UNIF 


33 

34 

35 

36 

37 

38 
35 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
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40  NCFLOW  = 1 

WRITE  ( 3 ) KFLOW,  ( VX(I),  VX(I»  « VY ( I) , I = 1 , NQ  I 

WRITE  I 3 ) C ZNORM(I),  I = 1*  ML  ) 

CHECK  FOR  INPUT  SIGMAS* 

50  IF  ( ISIG  *EQ*  0 ) RETURN 

REAO  THE  SIGMA  GUESSES  I RTO  VZ. 

READ  ( 5,  60  ) < VZ(I>,  I = 1,  NQ'JAD  ) 

60  FORMAT  ( 6F10.8  ) 


UNIF  61 
UNIF  62 
UNIF  63 
UNIF  64 
UNIF  65 
UNIF  66 
UNIF  67 
UNIF  66 
UNIF  69 
UNIF  70 
UNIF  71 
UNIF  72 
UNIF  73 

WRITE  SIGMAS  ON  TAPE  3 AS  ONE  LOGICAL  RECORO  AND  HANG  IT  UP.  *TMR* UNIF  74 

UNIF  75 

WRITE  € 3 > € VZ(I),  I = 1,  NL  ) UNIF  76 

RETURN  UNIF  77 

END  UNIF  76 


♦DECK, VFORM 

SUBROUTINE  VFORM 
REAL  Ml 2,  M23,  M34, 
INTEGER  TAPES 


M41  , IXX,  IXY,  IYY 


(335)  , 
1340) 


LOGICAL  AFLOW,  BFLOW,  CFLOW 
DIMENSION  NTAPEI3),  C41I335), 

XI  Ji  <335  ),  XI J 2 (335  ),  XIJ3  ( 335),  YIJi  (335),  YIJ2 

YIJ3  (335),  ZIJ1  (335),  ZIJ2  (335),  ZIJ3  (335),  XXI  ( 

XX  2 (1340),  XX3  (1  240 ) , YY1  ( 1340) , YY  2(  1340)  , YY  3(  1340  >»  ZZl  ( 13  40 ) , 
ZZ  3(  1349  ),  X (8)  , Y ( 8 ) , Z ( 8 ) , XC(335),  YC(335),  ZC(335) 
A12  (335),  A13  (335),  A2K335),  A22(335),  A23(335l» 

A32  (335),  A33  (335),  XIK335),  XI2(335),  XI3(335), 

XI 4 ( 33  5)  >i  ETAK335)  ,ETA2  (335),  ETA  4(  33  5)  , TSQ  ( 335 ) , A (335), 

IXX  (33  5) , IXY  (335),  IYY  (335),  312  (335),  023(335)  , 034(335) 

COMMON  H£DR(15) , MPR, N£R, IPRS, ISIG, ITER  , NCFLG , NFL OW ,NQUAD  , 

1 KASE, NOFF ,NSYM,IFLAG,IFLGW,NCOOE 
EQUIVALENCE  ( XIJ1,  YY 1 (1)  ),  ( XC, 


ZZ2(13  40)  , 
All  (33  5)  • 

A 31  (33  5), 


( ZC,  YY 1(1006)  ), 

( XIJ2,  YY2  (1)  ), 

( A12  , YY2  (1006)) 
( A 21 , YY3  41)  ) 


ETA4  , 
YIJ2  , 


XXI 
YY  2 


( A , 
(ZIJ1, 
( A33, 
(ZIJ2, 
( XI3, 
(D34, 


YY3 

ZZl 

ZZl 

ZZ2 

ZZ2 

ZZ3 


(100  6) ) 
(1)  ) 
(100  O ) 
(1)  ) 
(100  6)  ) 
1 ) ) 


( A13, 

( A22, 
(XIJ3, 

( A31  , 

( IXX, 

< XII, 

( IXY, 
ZIJ3, 


XXi 
YY3 
XX  2 
ZZl 
XX2 
ZZ2 
XX3 


YY1 

1 ) ) , 
336  )), 
(671) P , 

( 336)), 
( 1 ) ) , ( 
(336  I), 
( 671)), 
(336  )>, 
( 1 ) ) , 


(336)  ),  ( YC, YYi  (671) 
( YI  Jl , XXI  ( 33  6 ) > , 
( All,  YY2  ( 671)), 

( TSQ,  XXI  ( 1006  )) , 


( D34,  ZZ3  (ll)a  ( ZIJ3,  ZZ  3 ( 33  6 )),  (XI4,  ZZ3  ( 67,1))  , 

( ETA  1,ZZ3  C 100  6)),  ( ETA2,  XX  3 (671)),  ( IYY,  XX3  ( 1006)) 
COMMON  /DFLOW/  A FLOW, BFL CW, CFLOW, NMA T, NMATM1 ,N AFLOW , NBFL ON , NCFLO 

n a t A n ur»«(  on  o v a n 4 a i 


( A 23,  YY 3 ( 671)), 
YIJ3,  XX2  ( 336)  ), 
(A 32  , ZZl  < 671)) , 

( D12,  XX2  (10061  ) 

( XI 2 , ZZ2  ( 671)), 

[ D23 , XX 3 ( 336  ))  , 
(X 14 , ZZ3  ( 67,1)), 

10  0 6)) 


DATA  RHOISQ, 
DATA  NTAPE 

4004  FORMAT  ( 1H0, 

4005  FORMAT  ( 1H0, 
4C06  FORMAT  ( 1H0, 

INEAR  = 0 
INTERM  = 0 


RH02SQ  / 6.0 

3HRO  W,  I 5, 5 >, 
3HR0W,I5,5X, 
3HR0W  , 15,  5 X , 


16,9  / 

/ 

6HX-FL0W) 

6HY-FL3W) 

6HZ-FL0W) 


x , 


11  , 12  / 


VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
, VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
), VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
, VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
) VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 


1 

2 

3 

4 

5 

6 

7 

8 
9 

19 

11 

12 

13 

14 

15 

16 

17 

18 
19 
2G 
21 
22 

23 

24 

25 

26 

27 

28 
29 
3G 

31 

32 

33 

34 
3 5 

36 

37 
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IFAR  = 0 

VFOR 

38 

10  IF  ( NSVM  - 1 J 56  , 52,  54 

VFOR 

39 

52  ASSIGN  2100  TO  129 

{(FOR 

40 

ASSIGN  910  TO  119 

VFOR 

41 

GO  TO  60 

VFOR 

42 

54  ASSIGN  2200  TO  129 

VFOR 

43 

IF  C NS YM  ,EQ.  3 ) GO  TO  56 

VFOR 

44 

ASSIGN  920  TO  119 

VFOR 

45 

GO  TO  60 

VFOR 

46 

56  ASSIGN  930  TO  119 

VFOR 

47 

GO  TO  60 

VFOR 

48 

58  ASSIGN  2000  TO  119 

VFOR 

49 

60  LOOP  = 2 **  NSYM  + 1 

VFOR 

50 

NEL  = NQUAO  / 3 

VFOR 

51 

NELL  = NEL 

VFOR 

52 

NELP  = NEL 

VFOR 

53 

NREM  = MOO  i 3 * NEL  + 1,  255  ) 

VFOR 

54 

IF  C NREM  .LT.  5 .ANC.  NREM  .GT.'  3 ) NELP  = NEL  ♦ 5 

VFOR 

55 

NON  = NQUAO  + NOFF 

VFOR 

56 

DO  8000  M = 1,  3 

VFOR 

57 

KROW  = 0 

VFOR 

58 

201  NT  = NT APE  C M 1 

VFOR 

59 

202  IF  (M  oNE.  3)  GO  TO  300 

VFOR 

60 

NEL  = NQUAO  - 2 * NEL 

VFOR 

61 

NELP  = NEL 

VFOR 

62 

NREM  = MOD  1 3 * NEL  ♦ 1 , 255  > 

VFOR 

63 

IF  ( NREM  .LT.  5 .ANO.  NREM  .GT,  3)  NELP  = NEL  > 5 

VFOR 

VFOR 

64 

65 

C READ  28  QUANTITIES 

VFOR 

VFOR 

66 

67 

300  DO  500  J = 1,  NEL 

VFOR 

68 

500  READ  *4)  XCCJ) , YC  <JJ,  ZC(J),  All(J),  A12<J),  A13IJI,  A21 

(J  ), 

VFOR 

69 

1 A22 ( J) , A23(J),  A31 (J) , A32(J),  A33(J),  XIl(J) »ETAi ( J J ,XI2 { 

VFOR 

70 

2 J» , ETA2CJ),  XI 3( J)  , XI4(J),  £TA4(J>,  TSQ<J>,  A IJI , IXX 

(Jit 

VFOR 

71 

3 IX Y <J>,  IYVCJI,  D12( J ) « D 23  < J ) » D34(J>,  D41( J) 

VFOR 

72 

800  KROW  = KROW  «■  1 

VFOR 

73 

READ  ( 8 ) XNPP , YNPP,  ZNPP 

VFOR 

74 

DO  2300  11  = 1,  NEL 

VFOR 

75 

DO  1700  12  = 1,  LOOP 

VFOR 

76 

IF  { 12  .EQ.  LOOP  » GO  TO  119, ( 2330,  910,  928,  930  ) 

VFOR 

77 

GO  TO  (1000,  910,  920,  910,  930,  910,  920,  910  ),  12 

VFOR 

78 

910  YC  ( 11  1 ~ - YC  ( 11  ) 

VFOR 

79 

A12  C 11  J = - A 12  ( 11  ) 

VFOR 

80 

A22  ( 11  ) = - A 22  C 11  ) 

VFOR 

81 

A31  ( 11  ) = - A 31  C 11  ) 

VFOR 

82 

A33  < 11  > = - A 33  < 11  ) 

VFOR 

83 

GO  TO  9 32 

VFOR 

84 

920  ZC  C 11  ) = - ZC  < 11  ) 

VFOR 

65 

A13  < 11  > = - A 13  C 11  ) 

VFOR 

86 

A23  ( 11  ) = “ A 23  C 11  ) 

VFOR 

87 

A31  ( 11  3 = - A 31  ( 11  ) 

VFOR 

88 

A32  ( 11  > = - A32  C 11  1 

VFOR 

89 

GO  TO  932 

VFOR 

90 

930  XC  C 11  ) = - XC  < 11  ) 

VFOR 

91 

All  C 11  ) = - All  < 11  > 

VFOR 

92 

A21  ( 11  ) = - A21  < 11  ) 

VFOR 

93 

A32  C 11  ) - - A 32  1 11  ) 

VFOR 

94 

A33  ( 11  > = - A33  i 11  ) 

VFOR 

95 

932  IF  C 12  .EQ,  LOOP  > C-0  TO  129,  ( 2100,  2200  ) 

VFOR 

96 

100  0 XOIF  = XNPP-  XC  ( 11  ) 

VFOR 

97 
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YDIF  = YNPP-  YC  ( 11) 

VFOR 

98 

ZOIF  = ZNPP-  ZC  i 11  ) 

V FOR 

99 

* h 

VFOR 

100 

COMPUTE  DISTANCE  FROM  NULL  FOINT  TO  ORIGIN  CF  J-TH  ELEMENT  COORDINATE VF OR 

101 

SYSTEM  ( J CORRESPONDS  TO  THE  INDEX  11  ) 

VFOR 

102 

VFOR 

103 

INEQUALITY  ( 98  1 

VFOR 

104 

VFOR 

105 

ROSQ  = XDIF  **2  4-  YOIF  **  2 + ZDIF  **  2 

VFOR 

106 

IF  ( ROSQ  .LT.  RH02SQ  * TSQ  < 11  ) ) GO  TO  1400 

VFOR 

137 

VFOR 

108 

COMPUTE  INDUCED  VELOCITY  COKPONENTS 

VFOR 

109 

EQUATION  C 97  I 

VFOR 

110 

VFOR 

111 

IFAR  = IFAR  * 1 

VFOR 

112 

A RSI  = A C III  / SQRT  ( ROSQ  ) **  3 

VFOR 

113 

X (12)  = ARG1  * XOIF 

VFOR 

114 

Y ( 12  I = ARG1  * YDIF 

VFOR 

115 

Z (12  1=  ARG1  * ZOIF 

VFOR 

116 

GO  TO  1700 

VFOR 

117 

VFOR 

118 

TRANSFORM  NULL  POINT  TO  J - ELEMENT  COORDINATE  SYSTEM 

VFOR 

119 

EQUATION  C 78  I 

VFOR 

120 

VFOR 

121 

VFOR 

122 

140C  XNP  = All  ( 11  I * XDIF  + A12  ( 11  ) * YDIF  + A1 3 ( 

11  ) ♦ ZCIF 

VFOR 

123 

YNP  = A21  < 11)  * XDIF  + A22  C III  * YDIF  + A23  <I1)*ZDIF 

VFOR 

124 

ZNP  = A 31  ( 11  1 * XDIF  * A32  (III  * YDIF  + A33  (III 

* ZDIF 

VFOR 

125 

VFOR 

126 

INEQUALITIES  < 99)  A NO  ( 100  ) 

VFOR 

127 

IF  ( ROSQ  ,LT.  RHOISQ  * TSQ  ( 11  i 1 GO  TO  1410 

VFOR 

128 

VFOR 

129 

COMPUTE  INDUCED  VELOCITY  COIPONENTS 

VFOR 

130 

EQUATIONS  < 57  I - < 62  ) 

VFOR 

131 

VFOR 

132 

INTERM  = INTERM  + 1 

VFOR 

133 

P = YNP  ** 2 * ZNP  **  2 - 4.0  * XNP  **  2 

VFOR 

134 

QP=  XNP  **2  ♦ ZNP  2 - 4.0  * YNP  **  2 

VFOR 

135 

RO  = SQRT  C ROSQ  ) 

VFOR 

136 

ROP  = RO  **  (»  71 

VFOR 

137 

WXXX  = XNP  * ( 9.0  * P ♦ 30.0  + XNP  »♦  2 ) * ROP 

VFOR 

138 

WXXY  = 3.0  * P * R CP  * YNP 

VFOR 

139 

WXYY  = 3.0  * XNP  * QP  « ROP 

VFOR 

140 

W YYY  = YNP  * f 9.£  * QP  + 30.0  * YNP  2 ) * ROP 

VFOR 

141 

WXXZ  = 3.0  * ZNP  * P * ROP 

VFOR 

1h2 

WXYZ  = - 15.0  * XNP  * YNP  * ZNP  * ROP 

VFOR 

143 

WYYZ  = 3.0  * ZNP  * QP  * ROP 

VFOR 

144 

ROP  = - RO  *+  ( - 31 

VFOR 

145 

WX  = ROP  * XNP 

VFOR 

146 

WY  = ROP  * YNP 

VFOR 

147 

WZ  = ROP  * ZNP 

VFOR 

148 

HIXX  = .5  * IXX  ( 11  ) 

VFOR 

149 

HIYY  = .5  * IYY  < 11  ) 

VFOR 

150 

VX  = - WXYY*HIYY  - WXXYMXYi  ID  - WXXX*HIXX  - W X*  A < 

ID 

VFOR 

151 

V Y = - WYY Y*H I YY  - WXYY*IXY{  ID  - WXXY+HIXX  - WY*A* 

III 

VFOR 

152 

V Z = - WYYZ*HIYY  - WXYZ*IXY«  ID  - WXXZ*HIXX  - WZ*A( 

ID 

VFOR 

153 

GO  TO  1600 

VFOR 

154 

f 

VFOR 

155 

COMPUTE  INDUCED  VELOCITY  COMPONENTS 

VFOR 

156 

EQUATIONS  ( 42  ) - ( 49  ) 

VFOR 

1 57 
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\/FOR 

1410  ETA4M3  = ET  A4  ( ID  - ETA1  I II  ) VFOR 

INEAR  = INEAR  ♦ 1 VFOR 

RO  = SQRT  ( ROSQ  ) VFOR 

ETA 2 Mi  = ETAS  < II  ) - ETA1  ( II  ) VFOR 

XI4M3  = XI4  ( Ii  > - XI  3 C II  I VFOR 

XI 2 HI  = XI 2 <11  ) - XII  < Ii  I VFOR 

XI3M2  = XI3  < II  I - XI 2 { II  ) VFOR 

XI1M4  = XII  C Ii  ) - XI 4 < II  ) VFOR 

XMX I 1 = XNP  - XII  < II  i VFOR 

XMXI2  = XNP  - XI 2 < II  ) VFOR 

XMXI3  = XNP  - XI 3 ( II  ) VFOR 

XMXI4  = XNP  - XI4  < II  ) VFOR 

YMETA1=  YNP  - ETAl  C 11  ) VFOR 

YMETA  2 = YNP  - ETA2  < II  ) VFOR 

YHETA  4 = YNP  - ETA 4 < II  ) VFOR 

ZNPSQ  = ZNP  * ZNP  VFOR 

IF  ( ZNPSQ  .LT.  TSQ  < II  ) * 1.0E-6  ) ZNPSQ  = 0.0  VFOR 

El  = ZNPSQ  + X MX II  **2  VFOR 

E2  = ZNPSQ  ♦ XHXI2  **2  VFOR 

E3  = ZNPSQ  + XMX  13  **2  . VFOR 

E4  = ZNPSQ  + XMX 14  **2  VFOR 

Hi  = YMETA1  * XMXIi  VFOR 

H2  = YMETA2  * XMXI2  VFOR 

H3  = YMETA1  * XMXI3  VFOR 

H4  - YMETA4  * XMXI4  VFOR 

M12  = 0.0  VFOR 

IF  < XI2M1  .NE.  0.0  M12  = ETA2M1  / XI2M1  VFOR 

M23  =0.0  VFOR 

IF  C XI3M2  .NE.O.fl)  M23  = - ETA2M1  / XI3M2  VFOR 

M34  = 0.0  VFOR 

IF  ( XI4M3  .NE.  0.0  M34  = ETA4M3  / XI4M3  VFOR 

M41  =0.0  VFOR 

IF  ( XI1M4  .NE.  C.C)  M41  = - ETA4M3  / XI1M4  VFOR 

ANUM1  = M12  * El  - HI  VFOR 

ANUM2  = M12  * £2  - H2  VFOR 

ANUM3  = M2 3 * E2  - H2  VFOR 

ANUM4  = M23  * E3  - H3  VFOR 

ANUM5  = M34  * E3  - H3  VFOR 

ANUM6  = M34  * E4  - H4  VFOR 

ANUM7  = M41  * E4  - H4  VFOR 

ANUM8  = M41  * El  - Hi  VFOR 

R 1 = SQRT  < XMXIi  **  2 + YMETAi  **  2 + ZNPSQ)  VFOR 

R2  = SQRT  < X MX  12  **  2 ♦ YMETA2  **  2 + ZNPSQ)  VFOR 

R3  = SQRT  ( XMXI3  **  2 + YMETAI  **  2 4 ZNPSQ)  VFOR 

R4  = SQRT  ( XMX 14  **  2 + YMETA4  **  2 * ZNPSQ)  VFOR 

Q25  = 012  < II  ) VFOR 

Q26  = D23  < II  ) VFOR 

Q27  = 034  ( II  ) VFOR 

Q28  = 041  < II  ) VFOR 

VX  = 0.0  VFOR 

V Y = 0.0  VFOR 

V Z = 0.0  VFOR 

IF  C Q25  ) 1420,  1430,  1420  VFOR 

1420  TEMP  = R1  «■  R2  VFOR 

TEMPI  = TEMP  - Q25  VFOR 

TEMP2  = TEMP  ♦ Q25  VFOR 

ARGi  ~ 1.0  VFOR 

IF  I TEMPI  .NE.  C.C  .AND.  TEMP2  .ME.  0.3  ) ARG1=  AL OG < TEMPI/ TEMP 2 ) VFOR 
TEMP  = ARGI  / Q2 5 VFOR 


158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 
160 
181 
182 

183 

184 

185 

186 

167 

168 
189 
ISO 

191 

192 

193 

194 

195 

196 

197 
158 

199 

200 
201 
202 
20  3 

204 

205 
20  6 
20  7 
20  8 

209 

210 
211 
212 

213 

214 

215 

216 
217 
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1430 

1435 


1440 

1450 


1460 

1470 


1435 


.ANO.  TEMP2  .ME.  0.0  i ARG2= ALOG (TEMP1/TEMP2 > 


1480 


150  2 
1504 
1506 
150  8 

1510 


VX  9 ETA2M1  * TEMP 
VY  - - XI2M1  * TEMP 
IF  ( Q26  ) 1435,  1440. 

TEMP  = R.2  + R3 
TEMPI  = TEMP  - Q?6 
TEMP2  = TEMP  + Q26 
ARG2  a 1.0 
IF  C TEMPI  ,NE.  S.fl 
TEMP  = ARG 2 / Q2  6 
VX  = VX  - ETA 2 Ml  * TEMP 
VY  = VY  - XI3M2  * TEMP 
IF  ( Q27  ) 1450 9 1460,  1450 

TEMP  = R3  ♦ R4 
TEMPI  = TEMP  - Q27 
TEMP2  = TEMP  ♦ Q27 
ARG3  = 1.0 
IF  ( TEMPI  .NE.  G 
TEMP  = ARG3  / Q2  7 
VX  = VX  + ETA4M3  * TEMP 
VY  = VY  - XI4M3  * TEMP 
IF  ( Q28  ) 1470,  1460,  1470 
TEMP  = R4  «■  Ri 
TEMPI  = TEMP  - Q26 
TEMP2  = TEMP  + Q28 
ARG4  = 1.0 
IF  C TEMPI  .NE.  0.0 
TEMP  = ARG 4 / Q2 8 
VX  = VX  - ETA4M3  * TEMP 
VY  = VY  - XI1M4  * TEMP 
IF  « ZNPSQ  .NE.  0.0  ) GO  TO  1510 
TEST  = SORT  (TSQC  ID  * l.QE-3) 

IFtQ25.GT.TEST)  IF  ( ( XMXI  1+ETA2M1-YMETADXI  2M1)  /Q25) 


0 .AND.  TEMP2  .ME.  0.0  ) ARG3=AL0G (TEMP  1/TEMP 2) 


VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 

1630, 1502,1502  VFOR 
IF(Q26.GT.TEST>  IF ( ( -XMX I2*ETA2M1- YHETA2*XI3M2)/ Q2 6) 16 00 ,150 4, 1534VFOR 
IF ( Q27 • GT. TEST)  IFt ( XMXI3*ETA4M3-YM£TA1+XI4M3> /Q27)  1600 ,150 6,1506 VFOR 
IF  (Q28 . GT * TEST  ) IF  ((-=XMXI4+ETA4M3-YMETA4*XI1M4>/ Q28)  1603 , 1508,  1508  VFOR 


.AND,  TEMP2  .NE.  £f . 0 ) ARG  4=  ALOG (TEMPI/ TEMP2) 


VZ 

GO 

IF 

IF 

IF 

IF 


= 6.28318531E0 
TO  1600 
(XI2M1  .NE 


C 

C 

C 


VFOR 
VFOR 

O.Q)  VZ  = AT  AN  f ANUM1/ (ZNP*Ri) )“ AT  AN  I ANUM2/ { ZNP*R2 ) ) VFOR 
CXI3M2  .NE.  0 .0) VZ=VZ+AT AN ( ANUM3/ (ZNP*R2 ) AT  AN  ( ANUM4/ ( ZNF*R3 )> VFOR 
( XI4M3  .NE.  0 .0)  VZ  = VZ*ATAN(ANUM5/ (ZNP*R3 ) ) - AT  AN < ANUM6/ ( ZNP*R4) ) VFOR 
t X 1 1 M 4 .NE.  G • 0 ) V Z=VZ  + AT  AN  t ANUM7/ (ZNP*R4) >-AT ANIANUM8/ (ZNP*R1) ) VFOR 

VFOR 

TRANSFORM  INDUCED  VELOCITY  COMPONENTS  TO  REFERENCE  COORDINATE  S 1STEM  VFOR 
EQUATION  t 79  ) VFOR 

VFOR 


218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 
2 46 

247 

248 

249 
2 50 
2 51 

252 

253 

254 

255 

256 

257 
2 58 

259 

260 
261 
262 


1600 

X (12) 

= All 

(III 

V- 

VX  + A21  III)  ♦ VY  * A31 

(ID  * VZ 

VFOR 

263 

Y (12) 

= A12 

III) 

* 

VX  + A 22  (ID  * VY  + A3 2 

(ID  * VZ 

VFOR 

264 

Z (12) 

= A13 

(ID 

* 

VX  + A23  (ID  * VY  + A33 

(ID  * VZ 

VFOR 

265 

1700 

CONTINUE 

VFOR 

2 66 

VFOR 

2 67 

22  Q0 

IF  (.NOT. 

AFLOW) 

GC 

TO 

2010 

VFOR 

268 

XIJKIl) 

= X(i) 

VFOR 

269 

YIJKIl) 

= Y ( 1 ) 

VFOR 

270 

ZIJl(Il) 

= Z C 1 ) 

VFOR 

271 

2010 

IF  (.NOT. 

BFLQW) 

GO 

TO 

2020 

VFOR 

272 

XI J 2(11) 

= X(  1) 

VFOR 

273 

YI J2 ( 11 ) 

= Y(  1) 

VFOR 

274 

ZIJ  2(11) 

= Z(l) 

VFOR 

275 

2020 

IF  (.NOT. 

CFLOW) 

GO 

TO 

2300 

VFOR 

276 

XIJ3 ( 11 ) 

= Xtl) 

VFOR 

277 

118 


o o 


YIJ3  ( II ) = MI) 
Z I J 3 ( 1 1 ) = ZC1) 
GO  TO  2330 


2300  CONTINUE 

WRITE  ONE  ROW  ON  TAPE 

IFC  AFLOW)  WRITE (N  T) 
IF(BFLOW)  WRITE  ( NT) 
IF(CFLOW)WRITE  (NT) 


cxiJK  J) » riJi  ( j ) , z iji  ( j ) » J=i , nelP) 
(XIJ2(  J)  , YIJ2(J)  ,ZI  J2(  J)  , J = 1,N£LP  ) 
(XIJ3 ( J) , YI J3 ( J) ,ZIJ3 (J ) *J=1»  NElP) 


INOi  = 1 - 
I NO  2 = 0 
1=0 


NELL 


VFOR  278 
VFOR  279 
l/FOR  280 


2100 

IF  ( 

.NOT. 

AFLOW) 

GO  TO 

2101 

VFOR 

281 

XIJ1 

( 11 

) = X ( 

1 

) * 

X ( 2 

) 

VFOR 

282 

YIJ1 

( 11 

> = Y ( 

1 

) ♦ 

Y ( 2 

) 

VFOR 

2 83 

ZIJi 

( 11 

) = Z ( 

1 

) * 

Z ( 2 

) 

VFOR 

284 

2101 

IF  (. 

NOT. 

BFLOW)  GO 

TO 

2102 

VFOR 

265 

XI J 2 

( 11 

) = X ( 

1 

) - 

X ( 2 

) 

VFOR 

286 

YIJ2 

( 11 

) = Y { 

1 

) - 

Y ( 2 

) 

VFOR 

287 

ZIJ2 

( 11 

) = Z ( 

1 

) - 

Z ( 2 

) 

VFOR 

288 

2102 

IF  (. 

NOT. 

CFLOW)  GO 

TO 

2300 

VFOR 

289 

XI J 3 

( 11 

) = X ( 

1 

) «■ 

X ( 2 

) 

VFOR 

290 

YIJ3 

( 11 

) = Y ( 

1 

) «- 

Y ( 2 

) 

VFOR 

291 

ZIJ3 

( 11 

) = Z ( 

1 

) * 

Z ( 2 

) 

VFOR 

292 

GO  TO 

2300 

'VFOR 

2 93 

2200 

IF  (. 

NOT. 

AFLOW  ) 

GO  TO 

2201 

VFOR 

2 94 

XI J1 

(ID 

= X ( 1 

) 

♦ X 

( 2 ) 

«• 

X 

c 

3 

) 

X 

( 

4 

) 

VFOR 

295 

YIJi 

(ID 

= Y ( 1 

+ Y 

( 2 ) 

♦ 

Y 

( 

3 

) 

♦ 

Y 

( 

4 

) 

VFOR 

2 96 

ZIJI 

(ID 

= Z ( 1 

) 

♦ Z 

( 2 ) 

♦ 

Z 

( 

3 

) 

♦ 

Z 

( 

4 

) 

VFOR 

297 

2201 

IF  (. 

NOT. 

BFLOW  ) 

GO  TO 

2202 

VFOR 

298 

XI J 2 

(ID 

= X C 1 

) 

- X 

( 2 ) 

- 

X 

( 

3 

) 

♦ 

X 

( 

4 

) 

VFOR 

299 

YIJ2 

(ID 

= Y ( 1 

) 

- Y 

( 2 ) 

- 

Y 

( 

3 

) 

+ 

Y 

< 

4 

) 

VFOR 

300 

ZI J2 

(ID 

= Z ( 1 

) 

- Z 

( 2 ) 

- 

Z 

( 

3 

) 

Z 

( 

4 

) 

VFOR 

331 

2202 

IF  C. 

NOT. 

CFLOW  ) 

GO  TO 

2204 

VFOR 

302 

XIJ3 

(ID 

= X ( 1 

) 

♦ X 

( 2 ) 

- 

X 

( 

3 

) 

- 

X 

( 

4 

) 

VFOR 

303 

YIJ3 

(ID 

= Y ( 1 

) 

♦ Y 

( 2 ) 

- 

Y 

( 

3 

) 

- 

Y 

( 

4 

) 

VFOR 

304 

ZIJ3 

III) 

= Z ( 1 

) 

4 2 

( 2 ) 

- 

Z 

( 

3 

) 

Z 

( 

4 

) 

VFOR 

335 

2204 

IF  ( 

NS  YM 

.Ed.  2 ) 

GC  TC  23  0? 

VFOR 

306 

IF 

NOT. 

AFLOW  ) 

GO  TO 

2205 

VFOR 

3 07 

XI  Jt 

( 11 

) * XI Ji 

III) 

- X ( 

5 

) 

- 

X 

( 

6 

) 

- 

X 

( 

7 

) 

- 

X 

( 

8 

) 

VFOR 

3d  8 

YIJI 

( 11 

) a YIJI 

( ID 

- Y ( 

5 

) 

- 

Y 

( 

6 

) 

- 

Y 

< 

7 

) 

- 

Y 

( 

8 

) 

VFOR 

3C9 

ZIJI 

( 11 

) = ZIJI 

(ID 

- Z ( 

5 

) 

- 

Z 

( 

6 

) 

- 

Z 

( 

7 

) 

- 

Z 

( 

8 

) 

VFOR 

310 

2205 

IF  (. 

NOT. 

BFLOW  ) 

GO  TO 

2206 

VFOR 

311 

XU  2 

( 11 

) = XIJ2 

(ID 

+ X ( 

5 

) 

- 

X 

( 

6 

) 

- 

X 

( 

7 

) 

X 

( 

6 

) 

VFOR 

312 

YI  J2 

( 11 

) = YIJ2 

( ID 

+ Y < 

5 

) 

- 

Y 

( 

6 

) 

- 

Y 

( 

7 

) 

+ 

Y 

( 

6 

S 

VFOR 

313 

ZI  J 2 

( 11 

) = ZIJ2 

( ID 

«■  Z < 

5 

) 

- 

Z 

( 

6 

) 

- 

Z 

( 

7 

) 

+ 

Z 

i 

y 

8 

V 

VFOR 

314 

2206 

IF  ( 

.NOT. 

CFLOW  ) 

GO  TO  23  00 

VFOR 

315 

XI J 3 

(ID 

= XIJ3  (ID  - 

X ( 5 

) 

- 

X 

( 

fc 

) 

<> 

X 

( 

7 

) 

♦ 

X 

( 

8 

) 

VFOR 

316 

YI  J3 

(ID 

= YIJ3  (111  - 

Y ( 5 

) 

Y 

< 

6 

) 

♦ 

Y 

( 

7 

) 

+ 

Y 

( 

8 

) 

VFOR 

317 

ZIJ3 

(ID 

= ZI  J 3 (ID  - 

Z ( 5 

) 

- 

Z 

( 

6 

) 

4- 

Z 

( 

7 

) 

+ 

Z 

( 

8 

) 

VFOR 

316 

VFOR  319 
VFOR  320 
VFOR  321 
VFOR  322 
VFOR  323 
VFOR  324 
VFOR  325 


IF  ( KROW  .LT 

. NON  ) GC 

TO  31)  0 

VFOR 

326 

REWIND  8 

VFOR 

327 

8000 

REWIND  NT 

VFOR 

3 28 

42 

FORMAT  ( lHti, 

5X,  13FXIJ 

COMPONENT 

/ 

( 

1H  , 

7F15.8)  ) 

VFOR 

329 

43 

FORMAT  ( 1H0, 

5X»  13HYIJ 

COMPONENT 

/ 

( 

1H  , 

7F15V8)) 

VFOR 

330 

44 

FORMAT  ( 1H0 » 

5 X » 13FZIJ 

COMPONENT 

/ 

( 

1H  f 

7F15„  8)  ) 

VFOR 

331 

IF  ( MPR  .EQ. 

0 .OR.  MPR 

.EQ.  2 ) 

GO 

TO 

9075 

VFOR 

332 

CALL  HEADER 

VFOR 

333 

DO  9060  K = 

1,  KRCW 

VFOR 

334 

VFOR  335 
VFOR  336 
VFOR  337 
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9 G 0 3 
9002 
004 

900  8 
9 050 

9051 

9C52 

9 0 60 
9070 

9075 

4999 

9999 

C 


IND1  = IND1  *•  NELL 
IN02  = IND2  ♦ NELL 
1=1  + 1 
NT  = NT  APE  I I ) 

IF (AFLOW ) RE  AO ( NT  J 
IF(BFLOW)  REAO(NT) 
IFCCFLOW)  READ  (NT) 

IF  ( I - 2 ) 9003, 

INO 1 = IND2  ♦ 1 
IN02  = INO  2 + NEL 
GO  TO  9092 


(XXKJI,  YYl(J),  ZZ1(J),J  = INOl , INC2  ) 
<XX2(J>  , YY2  ( J)  » ZZ2(J  ) , J=INDi  ,IN02) 
IXX3CJ)  ,YY3(J),ZZ3(J)  , J = IND1,  INC2) 
9006,  9050 


IF  (.NOT 

• 

AFLOW) 

GC  TO 

9051 

WRITE 

( 

6, 

4304 

) 

K 

WRITE 

( 

6, 

42  ) 

( 

XXI 

( J)  , J = 

1,  NQUAO) 

WRITE 

( 

6, 

43  ) 

( 

YY1 

(J) , J = 

1,  NQUAO) 

WRITE 

( 

6, 

44  ) 

t 

ZZ1 

( J)  , J = 

1,  NQUAO) 

IF  (.NOT 

• 

BFLOW 

) 

GO  TO  9052 

WRITE 

( 

6, 

42  0 5 

) 

K 

WRITE 

( 

6, 

42  ) 

1 

XX2 

<J>,  J = 

1,  NQUAO  ) 

WRITE 

( 

6 1 

43  ) 

( 

YY  i 

( J ) , J = 

1,  NQUAO  ) 

WRITE 

( 

6* 

44  ) 

( 

21 2 

(J),  J = 

1,  NQUAC  ) 

IF  ( . 

NOT. 

CFLOW 

) 

GO 

TO  90  60 

WRITE 

( 

6, 

40  0 6 

) 

K 

WRITE 

C 

6, 

42  ) 

< 

XX  3 

(J),  J = 

1,  NQUAO  ) 

WRI  TE 

( 

6, 

43  ) 

( 

YY  3 

(J),  J = 

1,  NQUAC  ) 

WRITE 

( 

6, 

44  ) 

( 

ZZ  2 

ij  ) , J = 

1,  NQUAD  ) 

CONTINUE 
REWIND  1 
REWIND  11 
REWIND  12  * 

WRITE  C 6,  4999  I INEAR,  INTERM,  I FAR 
FORMAT  ( 1H0 ,//l 6H0NEAR  ELEMENTS  =,17/ 
L,  17  / 15HGFAR  ELEMENT  J = , 17  J 

WRI TE ( 6 , 9999) 

PORMATt  1H0  , 5X,  131-LEAVING  VFORi ) 

RETURN 

END 


24H0 INTERMEDIATE  ELEMENTS 


VF  OR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
= VFOR 
VFOR 
VFOR 
VFOR 
VFOR 
VFOR 


338 

339 

340 

341 
3h2 

343 

344 

345 

346 

347 

348 

349 
3 50 

351 

352 
3 53 
3 54 
35  5 

356 

357 

358 
3 59 
3 60 
361 
3 62 

363 

364 

365 
3 66 
367 
3 68 

369 

370 

371 

372 

373 
3 7h 
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*0  ECK* AFORM 

SUBROUTINE  AFORM 
REAL  NX  , NY  , NZ 

LOGICAL  AFLCW,  BFLOW , CF.OW 

COMMON  /BFLOW/  AFL CW  , BFL  CW , CFLO W, NMAT , NM ATM  ,N  AF LOW , NBFL QW , 

,CS«o°NMtlf2RI'i5,,MPR’KER*IPRS»ISIG»IT£R»NCFILG»NFLOW,NQUAD, 

1 KASE,NOFF,NSYM,IFLAG,IFLOW,NCOQE 
DIMENSION  C (60 00 ) 

NY  ( 1090),  NZ  ( 10  09)  , 

XIJ(  1000) , YIJ(  1C00) 

/ 9,  10,  13  / 

COMPONENT  / ( 1H 
COMPONENT  / ( 1H 
COMPONENT  / ( 1H 


42 

43 

44 

45 

46 


DIMENSION  NX(  1000), 
DIMENSION  A ( 1000) , 
DATA  NTAPE 
FORMAT  ( 1H0, 

FORMAT  C 1H0, 

FORMAT  ( 1H0, 

FORMAT  ( 1H0, 

FORMAT ( 1H0 , 5X, 


NTAPE (3) 
i ZIJC  1000) 


2 

3 

4 

5 


IF  (MPR  ,NE.  0) 
NQNNi  = NQUAD  * 
NQNN  = MOD ( NQNNi , 
IF  (NQNN  .LT.  5 . 
IF  (NCOOE  ,NE.  1) 
IF  (NAFLOW)  2,  2t 
NF1  = NAFLOW 
GO  TO  5 

IF  (NBFLOW ) 4,  4, 
NF1  = NBFLOW 
GO  TO  5 
NF1  = NCFLOW 
NF2  = NFLOW  - NF 1 
0 

KK  = 1,  NFi 
12  ♦ 1 
L 2 4 NQUAD 

(3) 

(3)  (COO,  « 
L2 

oECU  0)  GO 
= 1,  NF2 
4 1 

4 NQUAD 


5X,  13HXIJ 
5X,  13FYIJ 
5X,  13HZIJ 
3HROW,  16  ) 
3HA1J  / (1H 


7F 15 
7F15 
7F15 


6)  ) 
8 ) ) 
9)  ) 


CALL  HEADER 
2 

255) 

AND.  N CNN 
GO  TO  20 
1 


, 7F15.8  )) 


• GT.  0)  NQNNI  = NQUAD  ♦ 5 


7 

8 

10 

¥■¥ 

20 

FOR 

3P 


L2  = 

DO  6 
LI  = 

L 2 = 

REA  0 
READ 
LASTi  = 
IF  (NF2 
DO  7 KK 
LI  = L2 
L2  = 
READ 
READ 
DO  10 


= LI,  L2) 
TO  8 


L2 
(3) 

(3)  (C  ( K)  , K * 
KK  = 1,  L2 


LI,  L2) 


60 


65 


C (KK)  = -C(KK) 

READ  IN  UNIT  NORMAL  VECTORS 
READ ( 4)  ( N X (I ) , NY(I),  NZ(I),  1 = 1,  NQUAD) 

M NORMAL  VELOCITIES  - EQUATION  102 
DO  1000  KK  = 1,  NQUAD 
OO  10C0  NM  = 1,  NMAT 

CALL  ROWV  (XIJ,  YIJ,  ZIJ,  ( KK  * NM)  / NMAT  4 NOFF,  0) 

DO  60  K=  1,  NQUAD 

» (K)  = NX  (KK ) * XIJ  ( K ) 4 NY  (KK ) * YIJ(K)  4 NZ  (KK  ) *ZI  j ( K) 

IF  ( MPR.EQ.  C ) GO  TO  70 
WRITE (6 ,45)  KK 
IF  ( MPR  .EQ.  2 ) GO  TO  65 
WRITE(6 ,42) 

WRITE (6, 43) 

WRITE (6,44) 

IF  ( MPR  - 2 
WRITE  (6,  46) 


( 

XI J(I4)  , 

14  = 

1, NQUAD 

) 

( 

Y I U ( 1 4 ) » 

14  = 

1,  NQUAD 

) 

( 

ZIJ (14)  , 

14  = 

1 , NQU60 

) 

) 

70,  65, 

65 

(A(I4) , 14  = 1,  NQUAD) 


AFOR  1 
AFOR  2 
AFOR  3 
AFOR  4 
NCFLOW  AFOR  5 
AFOR  6 
AFOR  7 
AFOR  6 
AFOR  9 
AFOR  10 
AFOR  11 
AFOR  12 
AFOR  13 
AFOR  14 
AFOR  15 
AFOR  16 
AFOR  17 
AFOR  18 
AFOR  19 
AFOR  . 20 
AFOR  21 
AFOR  22 
AFOR  23 
AFOR  24 
AFOR  25 
AFOR  26 
AFOR  27 
AFOR  28 
AFOR  29 
AFOR  39 
AFOR  31 
AFOR  32 
AFOR  33 
AFOR  34 
AFOR  35 
AFOR  3 6 
AFOR  37 
AFOR  36 
AFOR  39 
AFOR  40 
AFOR  41 
AFOR  42 
AFOR  43 
AFOR  44 
AFOR  45 
AFOR  46 
AFOR  47 
AFOR  48 
AFOR  49 
AFOR  50 
AFOR  51 
AFOR  52 
AFOR  53 
AFOR  54 
AFOR  65 
AFOR  56 
AFOR  57 
AFOR  58 
AFOR  59 
AFOR  60 
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70 

IF  (NCOOE  NE.  15  GO 

TO  500 

AFOR 

61 

IF  (NH  .NE.  1»  GO  TO 

10  0 

AFOR 

62 

WRITE (8  ) 

(All)  ,I=1,NQUAD)  , tC  ( I ) » I=KKt  LASTl . NQUAD) 

AFOR 

63 

GO  TO  1000 

AFOR 

64 

100 

NT  = KK  ♦ L ASTI 

AFOR 

65 

WRITE  (10> 

(A  Cl) ,1-1, NQUAD) ,#0(1) ,I=NT,L2,NQUAD) 

AFOR 

66 

GO  TO  1000 

AFOR 

67 

500 

NT  = NT  APE ( NM ) 

AFOR 

68 

IF  (NM  .EQ.  1)  WRITE 

(6)  NQNN1,  (AC  I) » 1 = 1,  NQNN1) 

AFOR 

69 

WRITE  ( NT  ) NQNN1, 

(AC  I) , I = 1,  NQNN1) 

AFOR 

70 

1000 

CONTINUE 

AFOR 

71 

REWIND  8 

AFOR 

72 

REWIND  9 

AFOR 

73 

REWIND  10 

AFOR 

74 

REWIND  13 

AFOR 

75 

WRITE ( 6 , 9999) 

AFOR 

76 

9999 

FORMAT ( 1H0  , 5X  , 13HLEAVING  A FORI ) 

AFOR 

77 

RETURN 

AFOR 

78 

END 

AFOR 

79 

♦DECK, 

SOL  VT 

SOLV 

1 

SUBROUTINE  SOLVIT 

SOLV 

2 

C 

SUBROUTINE  SOLVIT  (A,  N C»  MO,  KD, 

NI,  MM 

, NO,  NW,  *) 

SOLV 

3 

COMHON/SOLVE/  NI  ,MM , NO ,KO, MD 

SOLV 

k 

COMMON  HEORC15)  , MPR, RER , IPRS,ISIG, IT ER , NCFLG ,NFL OW , NO, 

SOLV 

5 

1 

KASE »NOFF , NS  Y M,  IF  LAG, I FLOW,  NCOOE 

SOLV 

6 

COMMON  /SPACER/  A(i4000) 

¥ 

SOLV 

7 

C 

SOLV 

8 

c 

SOLV 

9 

c 

* + ¥¥  ¥¥¥/  ¥¥¥¥¥¥¥  ***** 

♦ 

¥¥¥/ 

¥ 

SOLV 

10 

c 

* ¥ * /*  * * 

♦ 

¥ /¥  ****** 

SOLV 

11 

c 

****  * / * * *♦* 

¥ 

¥ / ¥ ¥¥¥¥ 

¥ ¥ 

SOLV 

12 

c 

* */  * * ¥ 

¥ 

*/  * 

¥¥¥ 

SOLV 

13 

c 

¥ /*♦*  ¥ ¥ 

¥¥¥¥¥ 

/*** 

¥ * 

SOLV 

14 

c 

SOLV 

15 

c 

DIRECT  MATRIX 

SOL 

U T I 0 N 

SOLV 

16 

c 

SOLV 

17 

c 

WRITTEN  BY  J.  L.  HESS  * PROGRAMMED 

BY  T. 

M.  RIDDELL 

SOLV 

18 

0*  ***  * 

LANGUAGE 

SOLV 

19 

c 

SOLV 

20 

c 

FORTRAN  IV 

SOLV 

21 

c 

SOLV 

22 

FUNCTIONAL  DESCRIPTION 

SOLV 

23 

c 

SOLV 

24 

c 

THIS  ROUTINE  SOLVES  THE  REAL  MATRIX  EQUATION 

SOLV 

25 

c 

SOLV 

26 

c 

- - 

-- 

SOLV 

27 

c 

I I I I 

I 

I 

SOLV 

28 

c 

IAI*IB  I = 

I C 

I 

SOLV 

29 

c 

I I I I 

I 

I 

SOLV 

30 

c 

-- 

— 

-- 

SOLV 

3 1 

c 

SOLV 

32 

c 

-1 

SOLV 

33 

c 

FOR  »B*  C B = A * C ) . IF  'A'  IS 

THE  REAL  COEFFICIENT 

MATRIX 

SOLV 

34 

c 

SOLV 

35 

c 

FOR  A SET  OF  SIMULTANEOUS  EQUATIONS 

AND  * 

C*  IS  THE  MATRIX 

OF 

SOLV 

3 6 
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CONSTANTS  ( RIGHT-SICES  ),  THEN  *3*  WILL  BE  THE  SOLUTIONS  OF  THE 
SET  OF  SIMULTANEOUS  EQUATIONS.  NOTE  THAT  IF  'C'  IS  A UNIT  MATRI ) 
* B'  WILL  BE  THE  INVERSE  OF  'A*. 

*** CALL  STATEMENT 

CALL  SOLVIT  ( AREA,  N,  M,  KORE,  NT  1 , NT 2 , NT 3,  NOUT,  &NNN  ) 
WHERE 


' AREA  * IS  AN  ARRAY  ( DIMENSIONED  FOR  AT  LEAST  'KORE*  WOROS  ) 
THAT  IS  USED  BY  'SOLVIT*  FOR  SCRATCH  PURPOSES. 

AFTER  A NORMAL  RETURN  FROM  'SOLVIT*,  THIS  ARRAY  WILL 
CONTAIN  THE  *B*  MATRIX  STORED  IN  COLUMNAR  OROER. 


•»N* 

*M  * 


IS  THE  OROER  OF  THE  *A*  1ATRIX 
IS  THE  NUMBER  OF  COLUMNS  IN  *6*  AND  *C* 

* KORE  * IS  THE  DIMENSIONED  SIZE  OF  'AREA*  IN  WORDS 

* NT  1 ' 


IS  THE  LOGICAL  FILE  NUMBER  OF  THE  INPUT  DATA  SET 
CT  HIS  UNIT  IS  ALSO  USED  3Y  'SOLVIT'  AS  A SCRATCH  TAPE) 
SEE  8EL0W  FOR  THE  DESCRIPTION  OF  THE  INPUT  FORMAT 


'NT2' 
* NT  3* 


IS  THE  cOGICAL  FILE  NUMBER  OF  AN  AVAILABLE  SCRATCH  UNIT 


IS  THE  LOGICAL  FILE  NUMBER  OF  AN  AVAILABLE  SCRATCH  UNIT 
(NT1,  NT2,  ANO  NT3  MUST  ALL  HAVE  DIFFERENT  VALUES) 


'NOUT*  IS  THE  LOGICAL  FILE  NUMBER  OF  THE  OUTPUT  DATA  SET 

THE  ' 8*  MATRIX  IS  WRITTEN  ON  'NCUT'  IN  COLUMNAR  OROER, 
ONE  LOGICAL  RECORD  PER  COLUMN 
('NOUT*  MAY  ECUAL  NT  1 , NT  2 , OR  NT3 ) 


' S,NNN ' IS  THE  FORTRAN  STATEMENT  NUMBER  WHERE  CONTROL  IS  TO  BE 
TRANSFERRED  IF  'SOLVIT*  JET  ERMINES  THAT  THE  VALUE  OF 
'KORE'  IS  TCO  SMALL  TO  ALLOW  THE  COMPUTATION  TO  CONTINUE  SOLV 
(A  FORTRAN  VARIABLE  RETURN) 


*****OUTPUT 


-1 


3 a A 


WRITTEN  IN  COLUMNAR  OROER  (ONE  LOGICAL  RECORD 
PER  COLUMN)  CN  'NOUT'  AND  STOREO  IN  'AREA' 


*****  STORAGE  REQUIRED 

F5E  HEXADECIMAL  BYTES 
♦ *** * METHOD 


GAUSSIAN  ELIMINATION 

NOTEa • • THE  ROWS  ARE  NOT  VORMALIZEO 

THE  FIVCT  IS  ASSUMED  TO  EE  THE  DIAGONAL  ELEMENT 


C*****GENIERAL  NOTES 
C 


SOLV 

37 

SOLV 

38 

SOLV 

39 

SOLV 

AO 

SOLV 

A1 

SOLV 

A2 

SOLV 

A3 

SOLV 

AA 

SOLV 

A5 

SOLV 

A6 

SOLV 

A7 

SOLV 

A8 

SOLV 

A9 

SOLV 

50 

SOLV 

51 

SOLV 

52 

SOLV 

53 

SOLV 

5A 

SOLV 

55 

SOLV 

56 

SOLV 

57 

SOLV 

58 

SOLV 

59 

SOLV 

60 

SOLV 

61 

SOLV 

62 

SOLV 

63 

SOLV 

6A 

SOLV 

65 

SOLV 

66 

SOLV 

67 

SOLV 

68 

SOLV 

'69 

SOLV 

70 

SOLV 

71 

SOLV 

72 

SOLV 

73 

SOLV 

7 A 

SOLV 

75 

SOLV 

76 

SOLV 

77 

SOLV 

78 

SOLV 

79 

SOLV 

80 

SOLV 

61 

SOLV 

82 

SOLV 

83 

SOLV 

8 A 

SOLV 

b 5 

SOLV 

8 6 

SOLV 

87 

SOLV 

88 

SOLV 

69 

SOLV 

90 

SOLV 

91 

SOLV 

92 

SOLV 

93 

SOLV 

9 A 

SOLV 

55 

SOLV 

96 
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THE  VALUE  OF  '» KORE'*  MUST  3E  SJFFICIEM  TO  STORE 
MAXO  (3*  <N  + H),  N M ) REAL  VALUES 

THE  * A * AND  *C'»  MATRICES  MUST  3E  INPUT  IN  ROW  ORDER  . . . . 

ONE  LOGICAL  RECORD  PER  ROW  OF  THE  'A'  ANO  *C*  MATRICES 

I • E*  « 


1 ROW  OF  THE  *A*  MATRIX 
<#N*  REAL  VALUES)* 


. 1 ROW  OF  THE  *C  * MATRIX  . 

. <*MJ  REAL  VALUES) .* 


«**#***#*  ****************** #***¥********************#*¥4i^ 

* ONE  LOGICAL  RECORD  * 

* (*N*  ♦ *M*  REAL  VALUES)  * 


* NOUT*  IS  NOT  POSITIONED  PRICR  TO  THE  WRITING  OF  *3* 


DIMENSION  A I KD  ) 

LOGICAL  LAST 

C 

NW  = 3 
N = NO 
M = MD 
KORE  = KD 
NPM  = N + M 

IF  (MAX0C3  * NPM,  M * N)  »LE*  KORE)  GO  TC  5 
2475  WRITE  C 6 , 2460)  NQUAC  y MD  , KORE 

2460  FORMAT  <4H1THE,34,  2H  X,  13,  15H  MATRIX  EXCEEDS, 16,  7H  WORDS.  ) 
CALL  EXIT 
5 MT  = MM 
REWIND  MT 
NIN  = N I 
REWIMD  NIN 
NOUT  = NO 
REWIND  NOUT 
Mpi  = M * 1 
NN  = N 
NEL  = NPM 
C 

C - - CALCULATE  THE  MAXIMUM  NO.  OF  ROWS,  * K* 

C 

10  K = (KORE  - NEL)  / NEL 
C 

C - - TEST  TO  SEE  IF  THE  REST  OF  THE  MATRIX  WILL  FIT  IN  CORE 
C 

LAST  = K .GE.  NN 
IF  (LAST)  K = NN 
G 

C - - READ  *K‘*  ROWS  OF  THE  AUGMENTED  *A*  MATRIX 
C 

30  NT  = 0 

DO  40  13  = 1,  K 
NS  = NT  + 1 
NT  = NT  * NEL 

40  READ  (NIN)  (A(IO),  IO  = NS,  NT) 


124 


oo  oooooo  o o o ooo  ooooo 


“ - CHECK  TO  SEE  IF  WE  WERE  UNLUCKY  ENOUGH  TO  END  UP  WITH  ONLY  ONE  RCWSOLV  157 

SOLV  158 

IF  CK  .EQ.  11  GO  TO  90  SOLV  159 

SOLV  160 

- - 'K'  IS  GREATER  THAN  *1'  SO  WE  CAN  START  THE  TRIA  NGULARIZATIQN  SOLV  161 


SOLV  162 
SOLV  163 
SOLV  164 
SOLV  165 
SOLV  166 
SOLV  167 
SOLV  168 
SOLV  169 


NELP1  = NEL  «■  1 
NS  = - NEL 
NELP2  = NELP1  ♦ 1 

- - FORM  THE  'TRAPEZOIDAL*  A FRAY  (8) 

OO  50  IBs  2*  K 
NP  = NELP2  - IB 
NS  = NS  ♦ NELP1 
NT  = NS 

OO  50  10  = IB,  K 
NT  = NT  + NEL 
MN  = NT 
NB  = NS 

A ( NT)  = (-A(NT)I  / A (NS) 

DO  50  NF  = 2,  NP 
MN  = MN  ♦ 1 
NB  = NB  + 1 

50  A (MN)  = A ( MN)  + A (NT ) * A(N8) 

IF  (LAST)  GO  TO  90 

WRITE  THE  'TRAPEZOIDAL'  MATRIX  ON  TAPE 

NT  = 0 
NP  = NEL 
NS  = - NEL 
OO  60  IO  = 1,  K 
NS  = NS  + NELP1 
NT  * NT  + NEL 

WRITE  (MT)  NP,  (A(IB),  IB  = NS,  NT) 

60  NP  = NP  - 1 
NP  = NP  - M 
NS  = KORE  - NEL  +1 

- - READ  ANOTHER  ROW 

DO  80  IO  = 1,  NP 

READ  (NIN)  ( A ( 1 8 ) * 18  = NS,  KORE) 

- - MODIFY  THIS  ROW  BY  THE  'TRAPEZOIDAL* 

NT  = 1 
MN  = NS 

DO  70  IB  = 1,  K 
NB  = NT 
NF  = MN  «•  1 

A (MN)  = (-A(MN)  ) / A ( NT  ) 

DO  65  NN  = NF,  KORE 
NB  = NB  + 1 

65  A(NN)  = A ( NN)  * A(MN)  * A (N B) 

MN  = NF 

70  NT  = NT  > NELP1 

- - WRITE  THE  MODIFIED  RCW  ON  TAPE 


SOLV  170 
SOLV  171 
SOLV  172 
SOLV  173 
SOLV  174 
SOLV  175 
SOLV  176 
SOLV  177 
SOLV  178 
SOLV  179 
SOLV  180 
SOLV  181 
SOLV  182 
SOLV  183 
SOLV  184 
SOLV  185 
SOLV  166 
SOLV  167 
SOLV  188 
SOLV  169 
SOLV  190 
SOLV  191 
SOLV  152 
SOLV  193 
SOLV  154 
SOLV  195 
SOLV  196 
SOLV  lc7 
SOLV  156 
SOLV  199 
SOLV  2 JO 
SOLV  201 

ARRAY  SOLV  202 

SOLV  203 
SOLV  204 
SOLV  205 
SOLV  206 
SOLV  207 
SOLV  208 
SOLV  209 
SOLV  210 
SOLV  211 
SOLV  212 
SOLV  213 
SOLV  214 
SOLV  215 
SOLV  216 


i 
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SOLV 

217 

80 

WRITE  (NOUT)  CA(NT),  NT 

a MN,  KORE) 

SOLV 

218 

REWINO  NOUT 

SOLV 

219 

REWIND  NIN 

* 

SOLV 

220 

SOLV 

221 

- - 

SWITCH  THE  TAPES 

SOLV 

222 

SOLV 

223 

NT  - NIN 

SOLV 

224 

NIN  = NOUT 

SOLV 

225 

NOUT  = NT 

SOLV 

226 

SOLV 

227 

- - 

RE-CALCULATE  ROM  LENGTH  AND 

LOOP  BACK 

SOLV 

226 

SOLV 

229 

NEL  = NEL  - K 

SOLV 

230 

NN  = NEL  - M 

SOLV 

231 

GO  TO  10 

SOLV 

232 

SOLV 

233 

- - 

REWINO  ALL  TAPES 

SOLV 

234 

SOLV 

2 35 

90 

REWINO  MT 

SOLV 

236 

REWINO  NIN 

SOLV 

237 

REWINO  NOUT 

SOLV 

238 

SOLV 

239 

- - 

CONDENSE  THE  MATRIX 

SOLV 

240 

SOLV 

241 

NN  = NEL 

SOLV 

242 

NL  = NELP1 

SOLV 

243 

IF  CK  .EQ.  1)  GO  TO  105 

SOLV 

244 

NS  = 1 

SOLV 

245 

NT  = NEL 

SOLV 

246 

DO  100  IB  = 2,  K 

SOLV 

247 

NS  = NS  ♦ NELP1 

SOLV 

248 

NT  = NT  + NEL 

SOLV 

249 

OO  100  IO  = NS,  NT 

SOLV 

250 

A(NL)  = AIIOI 

SOLV 

251 

ICO 

NL  = NL  *■  1 

SOLV 

2 52 

1C  5 

N1  = KORE  - K * M + 1 

SOLV 

253 

SOLV 

2 54 

• 

THERE,  NOW  WE  CAN  START  THE 

BACK-SOLUTION 

SOLV 

255 

* if 

NOTE. .THE  FIRST  AVAILABLE  LOCATION  FOR  THE 

SOLUTIONS  IS  A i N 1 ) 

SOLV 

256 

SOLV 

2 57 

NREM  = N 

SOLV 

258 

NEL  = NPM 

SOLV 

2 59 

LAST  * K .EQ.  N 

SOLV 

260 

NP ASS  = 0 

SOLV 

261 

SOLV 

262 

- - 

SOLVE  FOR  THE  ANSWERS  CORRESPONDING  TO  *K* 

ROWS 

SOLV 

263 

SOLV 

264 

110 

KMi  = K - 1 

SOLV 

2 65 

KP1  = K + 1 

SOLV 

2 66 

NS  = NL  - MP1 

SOLV 

2 67 

NPASS  = NPASS  ♦ 1 

SOLV 

268 

DO  130  MN  = 1,  M 

SOLV 

269 

NF  = NS  ♦ MN 

SOLV 

2 70 

A (NF)  = A(  NF)  / A ( NS ) 

SOLV 

2 71 

NT  = NS 

SOLV 

272 

IF  (KMI  .EQ.  0 ) GO  TO  130 

SOLV 

273 

DO  125  IB  = 1,  KMI 

SOLV 

274 

NF  = NF  - IB  - M 

SOLV 

275 

NT  = NT  - MPi  - IB 

SOLV 

276 

126 
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¥ 

r 


SUM  =0.0 

SOLV 

277 

NP  = NF 

SOLV 

2 78 

N2  = MP1  «•  IB 

SOLV 

279 

DO  120  10  = 1,  IB 

SOLV 

280 

NN  = NT  +10 

SOLV 

281 

NP  = NP  + N2  - 10 

SOLV 

282 

120 

SUM  = SUM  + A CNN  J * A(NP) 

SOLV 

283 

125 

A ( NF)  = (A  (NF)  - SUM)  / A (NT) 

SOLV 

284 

130 

CONTINUE 

• 

SOLV 

285 

SOLV 

286 

- - 

MOVE  THE  SOLUTIONS  TC  CONTIGUOUS  LOCATIONS  STARTING 

AT 

A (Nl) 

SOLV 

2 87 

SOLV 

288 

N1  = KORE  ♦ 1 

SOLV 

289 

DO  140  NN  = 1,  K 

SOLV 

290 

DO  135  MN  = 1,  M 

SOLV 

291 

NL  = NL  - 1 

SOLV 

292 

N1  = N1  - 1 

SOLV 

293 

135 

A ( Nl)  = A(NL) 

SOLV 

294 

140 

NL  = NL  - NN 

SOLV 

295 

SOLV 

296 

- - 

WRITE  THE  SOLUTIONS  CN  TAPE 

SOLV 

2 97 

SOLV 

298 

WRITE  (NIN)  K 

SOLV 

299 

NS  = Nl  - 1 

SOLV 

300 

DO  145  MN  = 1,  M 

SOLV 

301 

NT  = NS  + MN 

SOLV 

302 

145 

WRITE  ( NIN  ) (ACIC),  10  = NT,  KORE,  M) 

SOLV 

303 

SOLV 

3 04 

~ - 

TEST  IF  THIS  IS  THE  LAST  PASS 

SOLV 

305 

SOLV 

306 

IF  (LAST)  GO  TO  200 

SOLV 

307 

SOLV 

3 08 

- - 

WE  MUST  NOW  MOOIFY  THE  TRIANGULAR  MATRIX  TO  REFLECT 

THE 

EFFECT  OF 

SOLV 

309 

THE  SOLUTIONS  OBTAINED  SC  FAR  (€0  21) 

SOLV 

310 

* * 

NOTE.  .LOCATIONS  Atl)  TO  A(Ni-i)  ARE  NOW  FREE  TO  USE 

SOLV 

311 

SOLV 

312 

- - 

CALCULATE  THE  NEXT  VALUES  OF  * NEL  * AND  'NREM  * 

SOLV 

313 

SOLV 

314 

NELOLD  = NEL 

SOLV 

315 

KOLO  = K 

SOLV 

316 

NEL  = NEL  - K 

SOLV 

317 

NREM  = NREM  - K 

SOLV 

318 

SOLV 

319 

- - 

NOW  APPLY  THE  INCREDIBLE  FORMULA  rOR  THE  NEW  «K* 

SOLV 

320 

SOLV 

321 

K = (-4  * M - 1)  / 2 + I FIX { SORT ( 3.25  + FLOAT( (4  * M 

+ 

2)  * M ♦ 

SOLV 

3 22 

1 

, 2 * CKORE  - NELOLC)  ) )) 

SOLV 

3 23 

NROW  = NREM  - K + 1 

SOLV 

32* 

IF  (K  .LT.  NREM)  GO  TO  150 

SOLV 

325 

LAST  = .TRUE. 

SOLV 

326 

NROW  = 1 

SOLV 

3 27 

K = NREM 

SOLV 

3 28 

150 

NS  = 1 

SOLV 

329 

NT  = NELOLD  + 1 

SOLV 

330 

SOLV 

331 

- - 

READ  IN  THE  ROWS  TO  BE  MOOIFIED 

SOLV 

332 

SOLV 

333 

DO  190  IB  = 1,  NREM 

SOLV 

334 

NT  = NT  - 1 

SOLV 

335 

IF  (IB  .LE.  NROW ) GO  TO  160 

SOLV 

336 
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NS  = NS  ♦ NN 

NT  = NT  * NN 

160  READ  ( MT  ) NN,  (ACIC),  10  = NS,  NT) 

NP  = N1  - 1 
NF  = NT  - M - KM  1 
NN  = NN  - KOLD 

DO  170  MN  = 1,  H 

N2  = NF 
NA  = NP  + NN 
NB  = NA 
SUM  =0.0 

DO  165  10  = 1,  KOLC 
SUM  = SUM  * A ( N2I  * A ( NA) 

N2  = N2  *■  1 

165  NA  = NA  + M 

N2  = N2  ♦ MN  - 1 

170  A(N2)  = A(N2)  - SUM 

- - WRITE  THE  MODIFIED  ROW  ON  TAPE  OR  CONDENSE  THE  ROW 

NL  = NT  - M «•  1 

IF  (IB  .GE.  NROW ) GO  TO  175 

NF  = NL  - KP1 

WRITE  (NOUTI  NN,  <A<IO),  10  = NS,  NF),  (A(I0),  10  = NL , NT) 

GO  TO  190 

175  NF  = NL  - KOLD 

DO  180  MN  = NL,  NT 
A C NF)  = A ( MN) 

180  NF  = NF  * 1 
190  CONTINUE 
REWIND  MT 
REWIND  NOUT 

- - SWITCH  THE  TAPES 

NT  = MT 
MT  = NOUT 
NOUT  = NT 

- - LOOP  BACK  THRU  THE  SOLUTION 

NL  = NF 
GO  TO  110 

- - START  TO  WRAP  IT  UP 

200  REWIND  NIN 
N2  = N 

♦ * NOTE..  AT  THIS  POINT  ALL  LOCATIONS  All)  THRU  A(KORE)  ARE  FREE 

DO  22C  13  = 1,  NPASS 
READ  (NIN)  K 
N1  = N2  - K «•  1 
NS  = N 1 
NT  = N2 

- « READ  IN  THE  SOLUTIONS 

DO  210  10  = 1,  M 


SOLV  327 
SOL V 338 
SOLV  339 
SOLV  3 AO 
SOLV  341 
SOLV  342 
SOLV  343 
SOLV  344  ! 
SOLV  345  ! 
SOLV  346  1 
SOLV  347  I 
SOLV  3 48 
SOLV  349  ! 
SOLV  350, ; 
SOLV  351  ' 
SOLV  352  i 
SOLV  353  I 
SOLV  354  f 
SOLV  355  I 
SOLV  356  | 
SOLV  357  I 
SOLV  358  | 
SOLV  359  I 
SOLV  360  I 
SOLV  361  I 
SOLV  362  I 
SOLV  363  1 
SOLV  364  | 
SOLV  365  I 
SOLV  366  | 
SOLV  367  I 
SOLV  368  1 

SOLV  369  | 

SOLV  370  1 
SOLV  371  I 
SOLV  372  | 
SOLV  373  I 
SOLV  374  I 
SOLV  375  | 

SOLV  376  I 
SOLV  377  | 

SOLV  378  I 
SOLV  3 79  j 
SOLV  3 80  I 
SOLV  381  j 
SOLV  362  J 
SOLV  363  | 
SOLV  384  J 
SOLV  385  | 

SOLV  386  | 

SOLV  367  i 
SOLV  368  J 
SOLV  369 
SOLV  3 90  I 
SOLV  391  1 

SOLV  392  1 

SOLV  393  1 

SOLV  39  4 
SOLV  395  J 
SOLV  396  1 

| 
I 
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non 


c 


c 


REAU  ( N IN I (A ( NN I , NN  = NS,  NT) 

NT  = NT  ♦ N 

210  NS  = NS  ♦ N 

220  N2  = N1  - 1 

- - WRITE  THE  SOLUTIONS  CN  TAPE 
NT  = 0 

DO  230  10  * 1,  H 
NS  = NT  ♦ 1 

NT  = NT  ♦ N 

230  WRITE  (NW)  (A(NN ),  NK  = NS,  NT) 

WRITE  (6,  390  N,  N,  M 

300  FORMAT  (4H0THE.I5,  2H  X,I5,  12H  MATRIX  WITH, 14, 
IS  SOLVED  DIRECTLY,) 

RETURN 

END 


SOLV  397 
SOLV  398 
SOLV  399 
SOLV  400 
SOLV  401 
SOLV  402 
SOLV  403 
SOLV  404 
SOLV  405 
SOLV  406 
SOLV  407 
SOLV  408 
SOLV  40 9 
SOLV  410 

33 H RIGHT  SICES  WASOLV  411 

SOLV  412 
SOLV  413 
SOLV  414 


♦DECK 

, SIGMA 

SIGM 

1 

SUBROUTINE  SIGMA 

SIGM 

2 

C 

SUBROUTINE  SIGMA  C NSKIP  ) 

SIGM 

3 

COMMON  /SIG/  NSKIP 

SIGH 

4 

DIMENSION  LC100),  CC  6000,  DSIGiliOG) 

SIGM 

5 

DIMENSION  A(IOOO) 

SIGM 

6 

DIMENSION  SIGt&OOO) 

SIGM 

7 

COMMON  HEDR  ( 1 5 ) , MP R,  ^R,IPRS  » I SIG,  ITER,  NCFLG  ,NFL  OW,  NQUAO  » 

SIGM 

8 

1 KASE*NQFF,NSYM,  I FLAG,  I flOW,NCODE 

SIGM 

9 

COMMON  / ATAPE  / NCOPY 

SIGM 

10 

NT  = NCOPY  «■  8 

SIGM 

11 

NTAPE  = NCOPY 

SIGM 

12 

IF  ( IS  IG  * NE « 0 ) GO  TO  1 

SIGM 

13 

M = 2 

SIGM 

14 

GO  TO  2 

SIGM 

15 

1 

H = 3 

SIGM 

16 

2 

IF  (NSKIP  ,EQ.  0)  GO  TO  11 

SIGM 

17 

N = M * NSKIP 

SIGH 

16 

DO  3 K = 1,  N 

SIGM 

19 

3 

REAO ( 3 ) 

SIGM 

2Q 

11 

Ni  = 1 

SIGM 

21 

N2  = NQUAO 

SIGM 

22 

DO  5 I = 1,  NCFLG 

SIGM 

23 

READ  (3) 

SIGM 

24 

READ ( 3)  ( C (K) , K = Nl  , N2) 

SIGM 

25 

IF(  ISIG  • NE,  0)  READ  «3)  (SIGCK),  K = Nl,  N2) 

SIGM 

26 

Nl  = N2  +1 

SIGM 

27 

5 

N2  = N2  NQUAD 

SIGM 

28 

N = INFLOW  - NSKIP  - NCFLG)  * M + NSKIP 

SIGM 

29 

IF  ( N ,EQ,  l)  ) GO  TC  67 

SIGM 

30 

DO  66  K = 1,  N 

SIGM 

31 

66 

READ  (35 

SIGM 

32 

67 

ITER  = 0 

SIGM 

33 

NCONV  = 3 

SIGM 

34 

00  12  J = 1,  NCFLG 

SIGM 

35 

L ( J ) = 0 

SIGH 

36 

JN  = NQUAD  ♦ ( J - 1 ) 

S I GM 

37 
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DO  12  I = 1,  NQUflO  SIGH 

K1  = I 4-  JN  SIGH 

12  IF ( ISIG  .EQ.  fl)  SIGIK1)  = 0.0  SIGH 

20  DO  22  I = 1,  NCFLG  SIGH 

22  DSIG1  (19=  O.G  SIGH 

DO  80  1=  1*  NQUAC  SIGM 

READ  « NTAPE  ) NQ,  ( A(J),  J = 1,  NQUAD  > SIGM 

DO  80  J = 1,  NCFLG  SIGM 

IF ( L(J)  .NE.  0)  GO  TO  80  SIGM 

SUM  =0.0  SIGM 

JN  = NQUAO  * ( J - 1 ) SIGM 

DO  60  K = 1»  NQUAO  SIGM 

K2  * K + JN  SIGM 

60  SUM  = SUM  4-  A CK ) * SIGCK2)  SIGM 

K1  = I + JN  SIGM 

DSIG2  = (-C ( Kll  - SUM)  / A(I»  SIGM 

SIG(Kl)  = SIG(K±)  + CSIG2  ' SIGM 

OSIGKJ)  - AMAX1  (A9S  (OS  IG2)  » OSIG1  (Jl)  SIGM 

80  CONTINUE  SIGM 

ITER  = ITER  *1  SIGM 

REWINO  NTAPE  SIGM 

IF(  IPRS  .EQe  0 f GO  10  85  SIGM 

WRITE ( 6*9998 ) ITER  SIGM 

9S98  FORMAT ( 1H  , 5X,  17H  ITERATION  NOS.  , 13)  SIGM 

DO  82  K = 1,  NCFLG  SIGM 

K1  = NQUAD  * J K-l)  + 1 SIGM 

K2  = Kl  ♦ NQUAO  SIGM 

82  WRI TE  ( 6 . 10)  K , ( S.IG<I),  I = Kl , K2)  SIGM 

10  FORMAT  ( 1H  , 5X,  12F  FLOW  NUMBER  , 14  / < 5X»  6F15.6))  SIGM 

85  DO  400  J = 1 , NCFLG  SIGM 

IF ( L ( J ) .NE.  0)  GO  TO  400  SIGM 

i IF(  OSIGKJ)  .GE.  l.GE-4)  GO  TO  400  SIGM 

f L ( J > = ITER  SI  G?1 

[ NCONV  = NC  ONV  + 1 SIGM 

p IF  ( NCONV  .EQ.  NCFLG  ) GO  TO  503  . SIGM 

400  CONTINUE  SIGM 

NTAPE  = NT  - NTAPE  SIGM 

IF  ( ITER  - 100)  20,  500,  20  SIGM 

500  DO  650  J = 1,  NCFLG  SIGM 

IF  ( L < J ) .EQ.  0 ) GC  TO  550  SIGM 

WRITE  ( 6,  6 ) L ( J ) SIGM 

6 FORMAT  (1H0,  5X,  15,  2X , 35HITE RATIONS  REQUIRED  FOR  CONVERGENCE  > SIGM 

GO  TO  650  SIGM 

550  WRITE  ( 6,  7 ) SIGM 

7 FORMAT  (1H0  * 8X,  35HNO  CONVERGENCE  AFTER  100  ITERATIONS  ) SIGM 

Kl  = NQUAD  * ( J-i)  4 1 SIGM 

K2  = Kl  4 NQUAD  SIGM 

WRITE  (6 ,8)  (SIGH),  I = Kl , K2 ) SIGM 

8 FORMAT ( 1H  , 5X,  8F12.7)  SIGM 

65 C CONTINUE  SIGM 

NN  = NQUAD  SIGM 

M = MOOINN,  255)  SIGM 

IF  (M  .LT.  5 .AND.  M ,GT.  0)  NN  = NN  * 5 SIGM 

Ni  = 1 SIGM 

DO  675  J = 1,  NCFLG  SIGM 

WRITE  (3)  (SIGCK),  K = Nl,  NN)  SIGM 

Nl  = Nl  + NQUAD  SIGM 

675  NN  = NN  4-  NQUAD  SIGM 

REWIND  3 SIGM 

WRITE ( 6 , 9999)  SIGM 
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13HLE  A VING  SIGMA) 


♦DECK*  ATAPS 

SUBROUTINE  ATAPES 
C SUBROUTINE  ATAPES  ( KFLOW  ) 

COMMON  /TAPES/  KFLOW 

C-  - “DEFINITION  OF  ARGUMENTS 


NQ 

KFLOW 

NCOPY 


NUMBER  OF  VALUES  OF  *A®  PER  RECORD 
FLOW-FLAG,  1 --  A-FLQW,  2 - B-FLCM,  3 ~ OFLCW 
TAPE  NUMBER  TO  S£  USED  BY  *ROWAfl 


COMMON  HE0R(15)  »MPR,NER,  IPRS, ISIG,  ITER,  NCFLG  ,NFLOW  , N, QUAD  , 

1 KASE»NOFF,  NSYM » IFL  A C- ,1  FLOW  , NGODE 
COMMON  / ATAPE  / NCOPY 

DIMENSION  A (1000  ),NLINE(5O0)  ,NLT(5Q0)  »XNULL(1080  5 , YNULL  (100C  h 

1 ZNULL ( 100 0 ) * XNORM (1 000  ) ,Y NORM (IQ 00 ) ,ZNORM<1€00)  9XOFF(10Q0) , 

2 YOFF(IOOO) , ZOFF 11000) 

IF  ( KFLOW  - 2 ) 100  , 200,  308 
IOC  NCOPY  = 9 
GO  TO  1000 
200  NCOPY  = 10 
GO  TO  403 
300  NCOPY  = 13 

C-  - -START  OF  LOOP 

400  00  900  N = 1,  NQUAO 
NTRY  = 0 
500  CKSUM  =0.0 

C-  “ “READ  THE  * A*  MATRIX  FROM  THE  APPROPRIATE  TAPE 


READ  ( NCOPY  ) NQ, 


( A ( I ) , 1=1,  NQ) 
(A ( I) , 1=1,  NQ) 


900  WRITE  ( 8 ) NQ,  (A(I),  1=1,  NQ) 

GO  TO  1400 

C=  - -THE  PURPOSE  OF  THE  F CLLOWING  *MIC<EY  MOUSE'*  IS  TO  RE-POSITION  THE 
C CONTROL  TABLES,  NULL  POINTS,  AND  UNIT  NORMALS  AT  THE  BEGINNING  OF 

C THE  TAPE.  THIS  ELIMINATES  SKIPPING  THE  *26  QUANTITIES*  EACH  TIME. 

1000  READ  (4)  KLCT,  (NLINE(J) ,NLT(J) , J = 1,  KLCT) 

READ  (4)  C XNULL  4 J)  , YNUL  L ( J)  , ZNULL(  J)  ,XNORM<  J) , YNORMU)  ,ZNORMU)  * 

1 J = 1,  NQUAO) 

IF  ( NOFF  • GT.  01  READ  (4)  (XOFF(J),  YOFF(U),  ZOFF(J),  J=i,  NCFF) 
REWIND  4 

WRITE  (4)  KLCT,  (NLINE(J),  NLT  ( J) , J = 1,  KLCT) 

DO  1100  J = 1,  NQUAO 

1100  WRITE  (4)  XNULL(  J)  , YNULLC  J)  ,ZNULL(  J)  ,XNORM(  J)  ,YN0RMCJI  ,ZNORM«J) 

IF  (NOFF  .EQ.  0)  GO  TO  1300 
DO  1200  J = 1,  NOFF 

i20C  WRITE  (4)  XOFF (J) »YQFF (J ) , ZOFF (J)  ,XOFF (J)  ,YOFF (J) ,ZOFF (J) 

1 300  REWIND  4 
1 400  REWIND  8 


ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

AT  AP. 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 

ATAP 
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REWIND  NCOPY 

ATAP 

53 

WRITE  (6,  1530) 

ATAP 

54 

1500  FORMAT  C1H0,  5X,  14HLEAV ING  ATAPESi 

AT  A P 

55 

C RETURN 

ATAP 

56 

END 

ATAP 

57 

*i 

DECK, 

PRINT 

PRIN 

1 

SUBROUTINE  PRINT1 

PR  IN 

2 

C 

SUBROUTINE  PRI NT 1 ( NSKIP  , MN,  KM AT , NS  EQ) 

PRIN 

3 

COMMON  /PRINTC/  KMAT  ,NSEG, KTP14 

PRIN 

4 

COMMON  /TAPES/  MN 

PRIN 

5 

COMMON  /SIG/  NSKIP 

PRIN 

6 

COMMON  HEDR  (15 ) , MPR,  FER,IPRS, ISIG,  ITER, NCFLG ,NFLCW ,NQUA0, 

PRIN 

7 

1 

KASE, NOFF,NSY  M* IFLAG»I FLOW »NCOQE 

PRIN 

8 

REAL  NX  , NY  , NZ,  MACH 

PRIN 

9 

LOGICAL  PUNCH V 

PRIN 

10 

COMMON  /M/  MACH,  BETA,  RBETA 

PRIN 

11 

DIMENSION  FLOWID  (3)  , 

PRIN 

12 

1 

VXC2000)*  VY  ( 200  0 ) , VZ(<000), 

PRIN 

13 

4 

NST ( 50  0) , NCL (500) 

PRIN 

14 

DIMENSION  SIG  (10  00),  XIJ(IOOQ),  YIJCC90),  ZIJdBGO) 

PRIN 

15 

OATA  FLOWIO  / 2HX-,  2HY-,  2HZ-  /,  PROG  / 4HBCXC  / 

PRIN 

16 

PUNCHV  = .FALSE. 

PRIN 

17 

NTIME  = NQUAD  ♦ NOFF 

PRIN 

IB 

LCMAX  = 12 

PRIN 

19 

c 

READ  IN  IDENTIFYING  INTEGERS 

PRIN 

20 

G 

PRIN 

21 

READC4)  INSECT,  ( NS  t<J)  , NCL  ( J)  , J = 1,  INSECT) 

PRIN 

22 

DO  2000  L = 1,  NCFLG 

PRIN 

23 

I F ( I SI  G .NE.  0)  GO  TO  1 

PRIN 

24 

M = 2 

PRIN 

25 

GO  TO  2 

PRIN 

26 

1 

M = 3 

PRIN 

27 

2 

N = M * (NSKIP  ♦ L - 1) 

PRIN 

28 

IF  (N  .EQ.  0)  GO  TO  4 

PRIN 

29 

DO  3 J = 1,  N 

PRIN 

30 

3 

READ  (3) 

PRIN 

31 

4 

READ  ( 3)  KFLOW,  (VX(IJ),  YY(IJ),  \I2  i IJ),  IJ  = 1,  NTIME  ) 

PRIN 

32 

IF  ( KFLOW  .EQ.  KMAT  ) GO  TO  9 

PRIN 

33 

CALL  HEADER 

PRIN 

34 

WRITE  (6,  B)  KFLOW,  KMAT 

PRIN 

35 

6 

FORMAT  ( 1 HO , 6X , 48HA  N APPARENT  FLOW  MI S-HATCH  HAS  OCCURRED. 

KFLOW  PRIN 

36 

1 

= , 12,  7H  KMAT  =,  12  ) 

PRIN 

37 

CALL  EXIT 

PRIN 

36 

9 

N = (NFLOW  - NSKIP  - L + 1)  * M *•  NSKIP  + L - 2 

PRIN 

39 

DO  5 J = 1,  N 

PRIN 

40 

5 

REA  0 (3) 

PRIN 

41 

READ  (3)  (SIGCJ),  J = i,  NQUAD) 

PRIN 

42 

REWIND  3 

PRIN 

43 

IF ( KTP1 4 .EQ.  1)  WRITE  (14)  (SIG(J)  , J = l,NQUA.OS 

PRIN 

44 

IF(KTP14  .EQ.  1)  ENDFILE  14 

PRIN 

45 

REWIND  14 

PRIN 

46 

IF  (MN  .EQ.  1)  GO  TO  15 

PRIN 

47 

NRSKXP  ~ NN  - 1 

PRIN 

48 

DO  10  JM  = 1,  NRSKIP 

PRIN 

49 

READ  (1) 

PRIN 

50 
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ooooo  o o ooo 


c 

c 


10 

15 


READ  (11) 

READ  (12) 

LC  - LCMAX 
INSECT  = 1 
M = 0 

IF  (L  . GT.  1) 
DO  1000  IS 


READ 
= 1, 


(4) 

N TIME 

READ(4)  XN,  YN,  ZN,  NX,  )Y,  NZ 
IF  ( MACH  .EQ.  0.0  ) GO  70  17 

CORR  = 1.0  / SORT  (NX  * NX  + BETA  * BETA  * (NY  * NY  + NZ  * NZ )) 


NX  = 
NY  = 
NZ  = 
XN  = 


NX 

NX 

NZ 

XN 


CORR 

BETA 

BETA 

BETA 


CCRR 

CORR 


PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 


17 

vix  = o.o 

PRIN 

VIY  = 0.0 

PRIN 

VIZ  = 0.0 

PRIN 

CALL  ROWV( XI J*  YIJ,  ZIJ,  IS,  1) 

PRIN 

DO  20  11  = 1,  NQUAD 

PRIN 

PRIN 

VELOCITY  COMPONENTS  EQ.  (135)  OR  EQ.  (140) 

PRIN 

PRIN 

VIX  = VIX  * XIJ(  11  ) * SIG(Il) 

, 

PRIN 

VIY  = VIY  + YIJ(  11  » * SIG(Il) 

PRIN 

20 

VIZ  = VIZ  * ZIJ(  11  ) * SIG(Il) 

PRIN 

VIX  = VIX  * RBETA  * RBETA  + VX(IS) 

PRIN 

VIY  = VIY  * RBETA  + VYIIS) 

PRIN 

VIZ  = VIZ  * RBETA  ♦ VZ(IS) 

PRIN 

IF  ( PUNCHV  ) GO  TO  26 

PRIN 

IF  ( IS  .EQ.  NQUAD  .OR.  IS  .EQ.  NTIME  ) GO 

TO  22 

PRIN 

VIXT  = VIX 

PRIN 

VI YT  = VIY 

PRIN 

VIZT  = VIZ 

PRIN 

PUNCHV  = .TRUE. 

PRIN 

GO  TO  30 

PRIN 

22 

NSEQ  = NSEQ  «•  1 

PRIN 

IF(PUNCHV) 

PRIN 

1 WRITE  ( 7,  24  ) VIX,  VIY,  VIZ,  KASE,  PROG, 

NSEQ 

PRIN 

24 

FORMAT  ( 3F10.7,  36X,A4,  2X,A4,  14) 

PRIN 

GO  TO  28 

PRIN 

26 

NSEQ  = NSEQ  + 1 

PRIN 

WRITE  ( 7,  27  ) VIXT,  VIYT,  VIZT,  VIX,  VIY, 

VIZ,  KASE, 

PROG,  NSEQ  PRIN 

27 

FORMAT  ( 6F10.7,  6X,A4,  2X,A4,  14) 

PRIN 

28 

PUNCHV  = .FALSE, 

PRIN 

TOTAL  VELOCITY  MAGNITUDE  EQ.  ( 

136  ) 

PRIN 

PRIN 

30 

VTSQ  = VIX  * VIX  + VIY  * VIY  * VIZ  * VIZ 

PRIN 

VT  = SQRT  ( VTSQ) 

PRIN 

PRIN 

PRESSURE  COEFFICIENT  EQ.  (137) 

PRIN 

PRIN 

CPI  = 1.0  - VTSQ 

PRIN 

DIRECTION  COSINES  OF  THE  TOTAL  VE-OCITY  VECTOR 

GIX  = VIX  / VT 

GIY  = VIY  / VT 

GIZ  = VIZ  / VT 

LC  = LC  <•! 

IF  (IS  .GT.  NQUAD)  GO  TO  50 
TOTAL  NORMAL  VELOCITY  EQ.  (139) 


EQ.  (138) 


961 


PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 

PRIN 
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PRIN 

111 

VNI  = VIX  * NX  ♦ VIY  * NY  ♦ VIZ  * NZ 

PRIN 

112 

N = NST  C INSECT  ) 

PRIN 

113 

MMAX  = IABS  ( NCL  ( INSECT  ) > 

PRIN 

114 

M = M + i 

PRIN 

115 

IF ( LC  »LT.  LCHAX)  IF  ?M  - 1)  40,  35,  40 

PRIN 

116 

WRITE  (6,  3000) 

PRIN 

117 

3000  FORMAT  ( 1H0,  4X,  1H  . , 84X , 1H.  ) 

PRIN 

118 

CALL  HEADER 

PRIN 

119 

LC  = 0 

PRIN 

120 

WRITE  (6,  4030)  FLO WIO( KFLO W) 

PRIN 

121 

4030  FORMAT  C1H0,  45X  , A2,  4HFL0W) 

PRIN 

122 

WRITE (5,4000) 

PRIN 

123 

35  WRI TE  < 6 » 4005)  N,  M,  XN,  VT,  VIX,  GIX,  NX,  VNI 

PRIN 

124 

GO  TO  45 

PRIN 

125 

4015  FORMAT C1H0*  3(17X  , 2<  SH******  ) ) ) 

PRIN 

126 

4000  FORMAT ( 1H0  * 6X  , 5HN  M,8X,  3HNPX,10X,  2HVT  , 12X,  2HVX 

, 10X  , 

PRIN 

127 

1 3HOCX , liX,  2HNX  ,10X,  2HVN  / 

PRIN 

128 

2 1H  V19X,  3HNPY  , 9X,  4HVTSQ  ,11X,  2HVY  ,10X,  3H0CY,ilX, 

2HNY  ,1GX 

, PRIN 

129 

33HS1G/ 

PRIN 

130 

41H  i>  19X  t 3HNPZ  ,10X,  4HCF  , 10X,  2H  MZ  ,10X,  3H0CZ,11X, 

2HNZ 

) PRIN 

131 

46H5  FORMAT < WO  * 3X,  214  , 6F13.6) 

PRIN 

132 

4010  FORMAT  ( 1H0, 7X,  14  , 6F13.6) 

PRIN 

133 

4020  FORMAT ( 1H  , 11X , 6F13.6) 

PRIN 

134 

4 0 WRITE  (6,4010  M,  XN,  VT,  VIX,  GIX,  NX,  VNI 

PRIN 

135 

45  WRITE  ( 6 , 4020)  YN,  VTSQ,  VIY,  GIY,  NY,  SIG(IS),  ZN , 

PRIN 

136 

1 CPI  , VIZ,  GIZ,  NZ 

PRIN 

137 

IFC  M . LT,  MMAX)  GC  TO  1000 

PRIN 

138 

IF  (NCL  (INSECT)  .GT.  0)  GO  TO  48 

PRIN 

139 

WRITE  (6,  4015) 

PRIN 

140 

LC  - LC  4-  1 

PRIN 

141 

48  M = 0 

PRIN 

142 

INSECT  = INSECT  ♦ 1 

PRIN 

143 

GO  TO  1000 

PRIN 

144 

50  IF  ( LC  .LT,  LCNAX  .AND.  IS  .NE.  (NQUAD  ♦ i>)  GO  TO  60 

PRIN 

145 

WRITE  (6,  3000) 

PRIN 

146 

CALL  HEADER 

PRIN 

147 

LC  - 0 

PRIN 

148 

WRITE  (6,  4030)  FLOWIO( KFLOW) 

PRIN 

149 

WRITE  (6,  55) 

PRIN 

ISO 

55  FORMAT  ( 1H0 , 5X, 5HP Cl NT, 13X , 2HX  ,13X , 2H VT , 18X ,2 HV X , 17X , 3HOCX , /, 

PRIN 

151 

125X.2HY  ,17>,4HVTSQ,17X,2HVY,17X,3HOCY,  /, 

PRIN 

152 

2 25X , 2HZ  »18X,2HCP,18X,2HVZ»17X,3HDCZ»  //  ) 

PRIN 

153 

PRIN 

154 

WRITE  THE  OFF- BO^Y  ANSWERS 

PRIN 

155 

PRIN 

156 

60  N = IS  - NQUAD 

PRIN 

157 

WRITE  (6,65)  N,XN,VT, VIX, GIX, YN, VTSQ, VIY, GIY, ZN, CPI, VIZ, 

GIZ 

PRIN 

158 

65  FORMAT  (1H0,  19,  4F20.6,  / C10X,  4F20.6)) 

PRIN 

159 

PRIN 

160 

1C00  CONTINUE 

PRIN 

161 

REWIND  4 

PRIN 

162 

IF  ( NOFF  .GT.  0)  WRITE  (6,  4015) 

PRIN 

163 

2000  CONTINUE 

PRIN 

164 

WRI TE (6 , 9999) 

PRIN 

165 

9999  FORMAT  ( 1H1  , 5X*  14HLE A VING  PRINT1) 

PRIN 

166 

RETURN 

PRIN 

167 

END 

PRIN 

168 

o o o o 


*0ECK,WTAP14  WTAP 

SUBROUTINE  WTAP14  WTAP 

WTAP 

WRITES  28  QUANTITIES  ON  1APE14  FOR  USE  BY  THE  PARTICLE  TRAJECTORY  WTAP 
COOES,  REVISED  3/22/77.  WTAP 

WTAP 

COMMON  HE0R(15),MPR,fER,IPRS,ISIG,ITER,NCFLG,NFL0W,NQUAQ,  WTAP 

1  KASE,NOFF,NSYM,IFLAG»IFLOW,NCODE  WTAP 

COMMON  /SPACER/  DUMMY  11*000)  WTAP 

REAL  IXX, IXY, IYY, MACH  WTAP 

COMMON  /M / MACH,  BETA,  RBETA  WTAP 

DIMENSION  041(1000),  XC  ( 10C0  ) , YC  ( 100  0 ) , ZC  ( 10  00  ) , WT  AP 

1 A1 1 ( 10  00 ) , A1 2 (1000  ), A13  ( 1 C 00  ) » A 21  ( 1 00 0 ) , A22  ( 1 000)  » A23  ( 10  0 0)  , WTAP 

2 A3K1000)  , A32  (1000),  A33  C 10  00  ) ,X  1 1 ( 1 (j  00  ) , XI2  ( 10  00  ) ,X  13  (10  00)  , WTAP 

3 XI 4(10 00) , ET All 10Q0 ),ET A2( 1000 ),ETA4( 1000) ,TSQ(1000) ,A(li)O0),  WTAP 

4 IXX (10  00 ) , IXY  ( 1000  ), IYY  ( 1000), 312  ( 1000) ,023( 1000) ,034( 10  CO ) WTAP 
EQUIVALENCE  (DUMMY  (1 ) , D41)  , (DUMMY  (1001)  . XC)  , (DUMMY  ( 200 1)  , YC)»WTAP 

1 ( DUMMY  (3001)  ♦ ZC),  (DUMMY  ( 430  1)  , All),  (DUMMY  ( 5001)  , A12),  WTAP 

2 (DUMMY  (6001 ) , A13),  ( CUMMY  (7  001)  , A21),  (DUMMY  (8001)  , A22),  WTAP 

3 (DUMMY  (9001)  , A23)  , (DUMMY  (10  001)  , A31),  (OUMMY  (11001)  , A32)  , WTAP 

4 ( DUMMY ( 12001) , A33),  (DUMMY ( 1303 1) , XII)  WTAP 

C WTAP 

REWIND  14  WTAP 

WRITE (14) • KASE,NSYM,NQUAO, RBETA,  MACH  WTAP 

00  100  J=i * NQUAO  WTAP 

100  READ  (4)  XC(J),  YC  (J),  ZC(J),  All(J),  A12(J),  A13(J),  A 2 1 ( J ) , WTAP 

1 A22  ( J ) , A23(J),  A31  (J ) , A32CJ),  A33(J),  XI1(J)  ,£TA1( J)  ,XI2(  WTAP 

2 J),  ETA2(J),  XI 3 (J) , >14 ( J ) , ETA4(J),  TSQ(J),  A (J),  IXX  (J),  WTAP 

3 IXY  (J),  IYY(J),  012U),  D 23  ( J ) , 034(J>,  0 41<  J)  WTAP 

WRITE(14) (XC(J)»YC  (J),  ZC(J),  All(J),  A12(J),  A13(J),  A21(J),  WTAP 

1 A22  ( J ) , A 23(  J ) , A31  •<  J ),  A32(J),  A33(J),  XI  1(  J)  ,ETA1  (J  ) ,XI2  ( WTAP 

2 J)  , ETA2(J),  XI 3 ( J)  , XI4  ( J ) , ETA4(jJ),  TSQ(J),  A (J),  IXX  ( J)  , WTAP 

3 IXY  (J),  IYY(J),  Cl  2(J ) , D 23  ( J ) , D34(J),  D41(J)  ,J=i,NQUADP  WTAP 

REWIND  4 WTAP 

END  WTAP 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 
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PROGRAM  FLOPNT 


74/74  OPT  = 2 


FTN  4.7+476 


02/28/81 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PROGRAM  FLOPNT  * INPUT,  TAPE 6,  TAPE5=INPUT,  TAPE1 4*  OUTPUT) 


H.  G.  NORMENT,  ATMOSPHERIC  SCIENCE  ASSOCIATES  - NOVEMBER  1979 


FLCFT 

FLCPT 

FLOPT 

FLOPT 

FLCFT 


CALLS  FLOVEL  TO  COMPUTE  AND  PRINT  FLOW  VELOCITIES  AT  SPECIFIED 
POINTS  IN  SPACE.  INPUT  INTEGERS  M(3)  SPECIFY  THE  ORDER  IN  WHICH 
INCREMENTING  IS  OONE  - ALLOWED  VALUES  OF  M ARE  1,2,3.  FOR  EXA MPLEFLCPT 
SUPPOSE  M(l)  = 2,  M(2)  = i,  M(3>=3,  THEN  Y IS  INCREMENTED  FIRST,  X IS  FLCPT 
INCREMEN1EC  SECOND  AND  Z IS  INCREMENTED  LAST.  FLOP  1 

OTHER  INPUT  DATA  ARE  (IN  ORDER  OF  X AXIS  FIRST,  Y AXIS  SECOND,  FLOPT 
Z AXIS  THIRD)-  INITIAL  COORDINATE,  INCREMENT,  NUMBER  OF  INCREMENT  SFLCFT 


DESIRED  (INCLUIING  THE  INITIAL  COORDINATE  VALUE) 


NOTE  - 
IN  THE 


POINTS  THAT 
PRINTOUT. 


ARE  INSIDE  THE  BODY  ARE  MARKEO  WITH  AN  ASTERIX 


t 4HSEC0, 
3H  / 


10 

20 


DIMENSION  HOL L (18 ) , 

1 SXI  (3 ) , S EQ  (6) 

DATA  SEQ/  4HFIRS,  4HT 
DATA  STAF,  BLNK  / 3H 
READ  ( 5,  2600)  KASE 
CALL  S ETFLO ( KASE  ) 

READ  ( 5,  1300  ) HOLL 
WRITE ( 6,  1400)  HCLL 
READ (5 , 11C  0) M 

IFCIABS(M(i))  + IABS(M(2l)  + I ABS (N( 3 ) ) . EQ . 
IF( M (1 ) +M  S 21  + M *3)  .EQ.  6)  GO  TO  10 
WRITE  ( 6, 1200 
STOP 

DO  20  L=l,  3 

READ  (5,1000)  X (L)  , D ( L) , N(L) 

WRITE*  6,  1700) 


X ( 3)  , 0(3),  N (3)  , M*3I,  SX(3),  SO  ( 3)  , NS  13), 


4HN0  , 4HTHIR,  4H0 


0)  STOP 


XU), 
X ( 2 ) , 
X ( 3 ) , 


40 


WRI  TE(  6,  20  0 0) 
WRIT£(6,30  (0) 
WRITE (6,4000) 
WRITE*  6 ,9000) 

WRI TE*6, 5000) 
WRITE (6,60(0) 

WRI TE*6, 7000) 
WRITE*  6,  1600 
DO  40  L=l» 3 
LL=4-M(L) 

SO (LL ) =D (L  ) 

SXIC  LL)  = X(L)-D(L) 
NS(LL)=N(L ) 

N1=NS*  1) 

N2=NS  *2) 

N3=NS  *3) 
SX*1)=SXI(1) 

DO  500  1=1, N1 
SX(1)=SX*1)+SD<1) 
SX(2)  = SXI(  2) 

DO  500  J= 1 »N2 
W IITE  * 6,1900) 

SX  * 2 ) = SX  (2  ) +SD  * 2) 
SX(3)  = SXI  * 3) 

DO  500  K=1,N3 


0(1)  , 
D (2)  , 
0(3)  , 


N(  1 > 
N(  2) 
N(  3 ) 


SEQ(2*M(1>  -1), 
SEQ  ( 2*M  (2)  -1) , 
SEQ (2*M (3) -1)  , 
) 


SEQ ( 2*M (1 ) ) 
SEQ(2*M(2)) 
SEQ  *2*M (3 ) ) 


FLOPT 
FLOPT 
FLOPT 
FLCFT 
FLCPT 
FLOPT 
FLOPT 
FLOPT 
FLOPT 
FLOPT 
FLOPT 
FLOFT 
FLCPT 
FLCPT 
FLOFT 
FLOPT 
FLOPT 
FLOPT 
FLOFT 
FLOPT 
FLOP  * 
FLOPT 
FLOPT 
FLOPT 
FLCPT 
FLCPT 
FLOPT 
FLOPT 
FLOPT 
FLOPT 
FLOFT 
FLOPT 
FLGPT 
FLOPT 
FLOFT 
FLOPT 
FLOPT 
FLOPT 
FLOPT 
FLOFT 
FLOPT 
FLOPT 
FLOPT 
FLCPT 
FLOPT 
FLOP  ^ 


7\ 


2! 

21 

31 
3j 

32 

33 
31 
3* 
3* 
31 
31 
3< 

41 
4) 

42 

43 
4* 
4! 
4( 
42 
4( 
4‘ 
5( 
53 

52 

53 
5* 
5! 
5( 
53 
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,*r  ft«  tkm  * 


74/74  OPT  = 2 


FTN  4.7+476 


02/26/80  20.31.01 


PROGRAM  FLOPNT  < INPUT,  TAPE6,  TAP£5=INI 


TAPE14,  OUTPUT) 


H.  G.  NORMENT,  ATMOSPHERIC  SCIENCE  ASSOCIATES  - NOVEMBER  1979 


CALLS  FLOVEL  TO  COMPUTE  AND  PRINT  FLOW 
POINTS  IN  SPACE.  INPUT  INTEGERS  M(3) 
INCREMENTING  IS  OONE  - ALLOWED  VALUES 
SUPPOSE  M(l)  = 2,  M (2)  = 1»  M<3)=3,  THEN  Y 
INCREMEN TEC  SECOND  AND  Z IS  INCREMENTE 
OTHER  INPUT  DATA  ARE  CIN  ORDER  OF  X AX 
Z AXIS  THIRD)-  INITIAL  COORDINATE,  INC 
OESIRED  (INCLUCING  THE  INITIAL  COOROIN 


FLCFT 

FLCPT 

FLOP! 

FLOPT 

FLCFT 


VELOCITIES  AT  SPECIFIED  FLOPT  5 
SPECIFY  THE  ORDER  IN  WHICH  FLCFT  6 
OF  M ARE  1,2,3.  FOR  EXAMPLEFLCPT  7 
IS  INCREMENTED  FIRST,  X IS  FLCPT  8 
D LAST.  FLCPT  9 

IS  FIRST,  Y AXIS  SECOND,  FLOPT  10 
REMENT,  NUMBER  OF  INCREMENT  SFLCFT  11 


ATE  VALUE). 


NOTE  - POINTS  THAT  ARE  INSIDE  THE  BODY 
IN  THE  PRINTOUT. 


ARE  MARKEO  WITH 


DIMENSION  HOLU18 
r SXII3),  SEQ  (6) 
Data  seq/  4HFirs, 
DATA  STAF,  BLNK  / 
READ  ( 5,  2 600)  KA 
CALL  SETFLOC  KASE 

Read  i 5,  1200  > h 

WRITE C 6,  1400)  H 
READ(5,iiC0)M 
iF(IABS<M(l))  + IAB 
'IFCM(l)  +M(2)  + M<3) 
[WRITE  ( 6,  1200) 

[STOP 

0 20  L=i, 3 
EAD  (5,1000)  X (L) 
jWRITEC  6 , 1700) 
f(RITE(  6,2000)  X(1 
jWRITE  C 6,30  CO)  X C 2 
|)RITE  C6»  4000)  X(3 
IflRITEI  6,9000) 

|MRI  TE (6,5000)  SEQ 
WRITE (6,60(0)  SEQ 

SRITE!6,70OO)  SEQ 
RITE  ( 6,  1600  ) 
bo  40  L=l, 3 
|L=4-M(L) 

SO (LL )=0  CL  ) 

Ski (ll)=xcl)-dcl) 

|S(LL)  = N(L  ) 

|l=NS( 1) 

N2=NS (2) 

W3=NS  < 3) 

|X(1)  = SXI(1) 

DO  500  1=1, N1 
§X(1)=SXC1)+SDI1) 
§X(2)  = SXI(  2) 

00  500  J=1,N2 
fllTEC  6,1900) 
|XC2)  = SX  (2  )*SO (2) 
|XC  3)  = SXI  ( 3) 

Kb  500  K=1,N3 


),  X(3>,  0(3),  N (3)  , M <3 1 , SXC3),  SO  (3)  , NS<3) 


4HT  , 4HSEC0,  4HND 
3H  *,  3H  / 

SE 

) 

OLL 

CLL 

SCMC2))  +IABSCMC3)  ) . EQ 
•EQ.  6)  GO  TO  10 


, DCL),  N (L ) 

),  0(1),  N(l) 
),  D ( 2)  , N ( 2 ) 
),  0(3),  N( 3 ) 


4HTHIR, 


STOP 


(2+M  (1)  -1), 
(2*M(2)-1), 
C2*M(3>  -1)  , 


SEQ(2*M (1 : 
SEQC2*M(21 
SEQ  ( 2*M  (3 


FLOPT  12 
FLOPT  13 
ASTERIX  FLOPT  14 
FLCPT  15 
FLCPT  16 
NS<3),  FLOPT  17 
FLOPT  18 
FLOPT  19 
FLOPT  20 
FLOPT  21 
FLCPT  22 
FLOPT  23 
FLCPT  24 
FLCPT  25 
FLOPT  26 
FLOPT  27 
FLOPT  28 
FLOPT  29 
FLOPT  30 
FLOPT  31 
FLOP*  32 
FLOPT  33 
FLOPT  34 
FLOPT  35 
FLCPT  36 
FLCPT  37 
FLOPT  38 
FLOPT  39 
FLCPT  40 
FLOPT  41 
FLOPT  42 
FLOPT  43 
FLCPT  44 
FLOPT  45 
FLOPT  46 
FLOPT  47 
FLCPT  48 
FLOPT  49 
FLOPT  50 
FLOFT  51 
FLOPT  52 
FLOPT  53 
FLCFT  54 
FLCPT  55 
FLOPT  56 
FLOFT  57 
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Jk/UQ  tUs 


PROGRAM  FLOPNT 


74/74  OPT = 2 


FTN  4.7*47 6 


Q2/28/8C  20. 31. Ul 


SX(3)  =SX!3)*SD(3> 

00  5 0 L=  1 * 3 
LL=4-M  !L) 

50  X(L)  =SX(LS  } 

CALL  FLOt/Eu!  X!l) 

V = SORT  ( VX«*2  + 

1 FI  IN80Y  ) 100,  2 j 0 9 


1400 

1500 

1600 

1700 

1900 


X ( 2)  9 X ( 3 ) 9 \JX9 
V Y*+Z  ♦ VZ  **2  ) 
130 


V Yf  V Z 9 U . 1 0 f INBOY  ) 


FL  CF  1 58 
FLOF7  59 
FLOP!  60 
FL  CF  T 61 
FLOFT  62 
FL  OFT  63 
FLOFT  64 


100 

WRITE! 6*1500)  X!l), 

X (2) t X( 3 ) 1 VX, 

VY* 

VZ,  V, 

STAR 

FLOFT 

65 

GO  TO  500 

FLCFT 

66 

200 

WRITE! 6, 15C0)  X(l), 

X (2)  , X( 3) » VX, 

VY, 

VZ,  V, 

8LNK 

FLCPT 

67 

500 

CONTINUE 

FLCFT 

68 

WRITE!  6,  1600  ) 

FLOPT 

69 

GO  TO  5 

FLCFT 

70 

1000 

FORMAT!  2E10 .0  tl4) 

FLOP  1 

71 

1100 

FORMAT (312  ) 

FLOFT 

72 

1200 

FORMAT <///10X,  47 HINC RE RENTING  SEQUE 

NCE 

IS  ERR  CN I OUS  . 

TRY  AGAIN.  )FLCF  T 

73 

1300 

FORMAT!  18  A4) 

FLOFT 

74 

1H It  9Xf  15HFL03NT  RUN  10  -/  1 5X , 18A4//) 


FORMAT  ( 

FORMAT!  3X « 3F12.7*  2X»  4! 1PE13. 4) fA 3) 

FORMAT  <1H0  920X,40H*  INDICATES  THE  FCINT 
FORMAT!  1H Ot  5X,  12HINPJT  OATA  -/ ) 

FORMAT!  //  10X,  1HX,  HX9  1HY,  HXt  !HZf 
1 IIX9  2HVZ,  11X,  1HV) 

2600  FORMAT!  A4> 

20  00  FORMAT!  10X,  10HINITIAL  X = 1P£11.4,  12H  INCREMENT*  1P£1  1.  4 9 
1 19H  NUMBER  OF  VALUES=I4) 

3000  FORMAT!  10X,  10HINITIAL  Y=lPE11.4f 
1 19H  NUMBER  OF  VALUES=I4) 

4000  FORMAT!  IOX9  10HINITIAL  Z=1PEU.4, 

1 19H  NUMBER  OF  VALUES=l4) 

FORMAT!  10X, 

FORMAT!  IOX9 
FORMAT!  10X, 

FORMAT (1H0) 

END 


50  00 
6000 
70  00 
9000 


IS  INSIDE  THE  BODY ) 


13X  ? 2HVX*  llX,  2HVY, 


12H  INCREMENT  = IP  Ell.  4 t 
12H  INCREM£NT  = IP  Ell.  4, 


22HX  AXIS  IS  INCREMENTED  2A4) 
22  HY  AXIS  IS  INCREMENTED  2A4) 
22HZ  AXIS  IS  INCREMENTED  2A4) 


FL  OPT  75 
FL  CP  7 7 6 
FLOFT  77 
FL  CF  7 78 
FLOP!  79 
FLCFT  80 
FLOFT  81 
FL  OPT  82 
FLCFT  63 
FLOFT  84 
FLOFT  85 
FLCFT  86 
FLOPT  67 
FLCFT  68 
FLOFT  89 
FLCFT  90 
FLCFT  91 
FL  CP  T 92 
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FUNCTION  PRFUN  74/74  OPT=2 


FTN  4.7*47b 


02/28/83  16.34.09 


♦DECK. PRFUN 

FUNCTION  PRFUN (R»  OLR,  COF> 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


100 


H.  G.  NCRfiENT  9 ATMOSPHERIC  SCIENCE  ASSOCIATES  - NOVEMBER  1979 

RETURNS  THE  COEFFICIENT  WHICH  WHEN  MULTIPLIED  BY  FLUID  VELOCITY 
RELATIVE  TC  THE  PARTICLE  YIELDS  THE  ^ARTICLE  ACCELERATION. 

FOR  WATER  CROPS  IN  AIR 

FOR  RE  Y N CL  C S N IMS  ERS  LARGER  THAN  2 D Q USE  CDRR  VS  ft  DATA  OF  GUNN 
AND  KINZER  FOR  WATER  DROPS  IN  AIR,  FOR  SMALLER  REYNOLDS  NUMBERS 
USE  DATA  FCR  RIGID  SPHERES « 

IF  I R ,LE.  2 00  o ) GO  TO  ICC 
PRFUN  = WCCRR CRI/R/COF 
RET  URN 

PRFUN  = CCRR (R) /ft/COF 

RETURN 

END 


PRFUN 
PRFUN 
PRFUN 
PRFUN 
PRFUN 
PRFUN 
PRFUN 
PRFUN 
f RFUN 
PRFUN 
PRFUN 
PRFUN 
PRFUN 
PRFUN 
PRFUN 
PR  PUN 
PRFUN 
PRFUN 
PRFUN 
PRFUN 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 


*DECK, IMPACT  IMPAC 

SUBROUTINE  I MPACT ( Y I , ZI)  IMPAC 

C IMPAC 

C H.  G.  NORM  ENT  f ATMOSPHERIC  SCIENCE  ASSOCIATES  APRIL  1979  IMPAC 

C IMPAC 


C ♦ ♦*♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦.♦♦♦♦♦♦♦♦♦♦♦♦♦#♦**♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦  ♦JfulpAC 

C IMPAC 
C CALLED  BY  5.R.  TRAJECT  AFTER  IMPACT  ON  THE  OOOY.  ADJUSTS  INITIALIMPAC 
C Y AND  Z COORDINATES  OF  3 ARTICLE  TRAJECTORY  TG  AVOID  FURTHER  IMPACTIMPAC 
C IMPAC 
C THE  ADJUSTMENT  IS  CASE  DEPENDENT  SC  THIS  S.R.  SHOULD  BE  REVISEC  IMPAC 
C FOR  EACH  STUDY.  IMPAC 
C IMPAC 


IMPAC 

RETURN  IMPAC 

ENO  IMPAC 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 
18 
19 
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O O OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


74/74  OPT  = 2 


FTN  4.  7*476 


02/28/80  18.34.09 


*DECK, PaoTCL 

SUSROUTINE  PARTCL(V,ELL,RHO, VIS, TEMP, DIAM, GLR, RHOP  »i/T fR“  fPT,  ACC » N 

H.  G.  NORMENT,  ATMOSPHERIC  SCIENCE  ASSOCIATES  - NOVEMBER  1979 

CALLED  BY  CONFAC,  ARYTRJ  OR  TANTRA  TO  READ  PARTICLE  SPECS.  ANC 
COMPUTE  GRAVITY  SETTLING  SPEED  AND  OTHER  PARAMETERS.  SEE  CONFAC 

FOR  WATER  DROPS  IN  AIR 

CALLS  FALWAT  TO  COMPUTE  SETTLING  SPEED  VIA  BEARDS  EQUATIONS. 

REYNOLDS  NUMBER  I R) -OA VIE t NUM  BE  R ( CCRR)  RELATIONS  ARE  AS  FOLLOWS  - 
FOR  RE  YN  CL  CS  NUMBERS  LARGER  THAN  2Cfc  USE  CORK  VS  R DATA  OF  GUNN 
AND  KINZER  FOR  WATER  ORDPS  IN  AIR.  FOR  SMALLER  REYNOLDS  NUMBERS 
USE  DATA  FCR  RIGID  SPHERES. 

GLOSSARY 

ACC  01 AM/ELL  - USED  TO  COMPUTE  ACCELERATION  MODULUS 

DIAM  DIAMETER  OF  A WATER  ORCP 
OLR  NOT  RELEVANT  TO  WATER  CROPS 

ELL  CHARACTERISTIC  DIMENSION  OF  THE  BODY  t METERS  ) 

PT  DRAG  COEFFICIENTS  8S  (REY  NOLOS  NUMBER)  FOR  GRAVITY  SETTlIN 

CF  PARTICLES 

RF  FACTCR  TO  CONVERT  VELOCITY  DIFFERENCE  TO  REYNOLDS  NUMBER 

RHO  AIR  DENSITY  (SI) 

RHOP  PARTICIE  DENSITY  (SI) 

TEMP  AIR  TEMPERATURE  (DEG.  KELVIN) 

V AIR  SPEED  <SI) 

VIS  AIR  VISCOSITr  (SI) 

VT  GRAVITY  SETTLING  SPEED  OF  FARTICLE 

READ  ( 5,  11  CO)  01 A M 
IFCOIAM  ,N€i  0.0)  GO  TO  6 
N = 1 
RETURN 

6 WRITE  (6,2500)  DIAM 
RhOP  = 1.0E3 
DLR= 1. 0 

RF  a D I A f*  RHO  /VIS  * 1.3E-6 
ACC  = 01  AM/ ELL  * l.QE-6 

COMPUTE  GRAVITY  SET TL INS  SPEED  OF  FART • ANO  PARAMETERS  DERIVED 
FROM  IT 

CALL  FALWAT(DIAM*1.9E-6, RHO, VIS, TEMP, 287. 04*RH G+T EhP,  VT) 

R = RF  * VT 
PT  = CCRR(R)/R 

IFCR  .GT.  200.)  PT  = WC3RM  R )/R 

7 WRI T £ ( 6,  3 500 ) VT 
VT  = VT /V 

RF  = RF+V 
RETURN 

FORMAT  (7F10.0 ) 

FORNAT  ( 1H1,  9 X, 

FORMAK  2 0 X , 

END 


1100 

2500 

3500 


21HWATZR  DROP  DIAMETER  =1F£12.5,12H  MICROMETERS/ 
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♦DECK.CONFAC 

SUBROUTINE 


CONFAC 


H..G.  NORMENT,  A TMCSFHERIC  SCIENCE  ASSOCIATES  - NOVEMBER  1979 

EXECUTIVE  FOR  COMPUTATION  OF  CONCENTRATION  FACTORS  FOR  PARTICLES 
IN  A FLOW  ABOUT  A 3-CIMENSI QNAL  8DDY.  CROSS  SECTIONAL  AREAS  OF  A 
PARTICLE  FLUX  TUBE  ARE  CALCULATED  ABOUT  THE  POINT  OF  INTEREST  AND 
ABOUT  A POINT  FAR  UPSTREAM.  CONCENTRATION  FACTOR  IS  THE  RATIO  OF 
THESE  AREAS. 

SINGLE  TRAJECTORIES  TO  A TARGET  POINT  MAY  BE  COHPUTEO  (NW=0) 

FLOW  DATA  PREPARED  BY  THE  HESS-SMITH  CODE  ARE  READ  FROM  UNIT  14 
VIA  SR  SETF  10. 

UNIT  9 IS  A SCRATCH  UNIT  USED  FOR  TRAJECTORY  DATA  STORAGE. 

UNIT  10  IS  USED  FOR  TRAJECTORY  DATA  OUTPUT  FOR  PLOTTING. 

SR  PARTCL  IS  CALLED  TO  READ,  PROCESS  AND  PRINT  PARTICLE  DATA. 

THIS  SR  CAN  BE  ONE  OF  SEVERAL  THAT  TREATS  WATER  DROPS  OR  ONE  OF 
VARIOUS  TYPES  OF  ICE  CRYSTALS. 

GLOSSARY 


DISTINGUISH  TWO  COORDINATE  SYSTEMS  - 1.  THE  FLOW  SYSTEM  IS  THE 
IN  WHICH  THE  AIRCRAFT  AND  FLOW  ARE  DEFINED, 

SYSTEM  WHICH  HAS  ITS  Y-Z  PLANE  IN  THE  PLANE 
SECTION  WITH  ORIGIN  AT  THE  FLUX  TUBE  CENTER. 
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CONF 
CONF 
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CONF 
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CONF 
CONF 
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CONF 
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CONF 
CONF 
CONF 
CONF 
CONF 
SYSTEMCONF 


AND  2.  THE  FLUX  TUB  I 
OF  A FLUX  TUBE  CROSS 


ALL  COORDINATES  AND  TIMES  ARE  NORMALIZED  (DIMENSIONLESS) 


ACC 

ALPHAO 

ALPHAR 

BET  AO 

BETAR 

CONRTO 

DIAM 

OLR 

ELL 

epsi ( : 

FN 

FNR 

HI 

HMAX 

HMIN 

IPLOT 

NW 

P(  ) 


IN 


X-V 


OIAM/ELL  - USED  TO  COMPUTE  ACCELERATION  MODULUS 
ANGLE  BETWEEN  PROJECTION  OF  INITIAL  VELOCITY  VECTOR 
X-Y  PLANE  AND  X AXIS 

ANGLE  BETWEEN  PROJECTION  OF  FINAL  VELOCITY  VECTOR  IN 
PLANE  AND  X AXIS 

ANGLE  BETWEEN  INITIAL  VELOCITY  VECTOR  AND  ITS  PROJECTION 
IN  THE  X-Y  PLANE 

ANGLE  BETWEEN  FINAL  VELOCITY  VECTOR  AND  ITS  PROJECTION 
IN  THE  X-Y  PLANE 

RATIO  OF  PARTICLE  CONCENTRATION  AT  TARGET  POINT  TO  CONC. 

AT  INITIAL  POINT 

DIAMETER  OF  A WATER  DROP  OR  ICE  AGGREGATE 
BASE  DIAMETER  FOR  A PLATE  OR  CYLINDER  (MICROMETERS) 

BASE  DIAMETER  TO  LENGTH  (CYLINDER)  OR  THICKNESS  (PL  A TE) 

RATIO 

CHARACTERISTIC  DIMENSION  OF  THE  BODY  ( METERS  ) 

PARAMETERS  USED  TO  CONTROL  LOCAL  ERROR  IN  THE  NUMERICAL 
INTEGRATION  (SEE  DVDQ  GLOSSARY) 

FROUDE  NUMBER 

RECIPROCAL  OF  THE  FROUDE  NUMBER 

INITIAL  TIME  STEP  FOR  NUMERICAL  INTEGRATION  (SEE  DVDQ) 

MAXIMUM  TIME  STEP  (SEE  DVDQ) 

MINIMUM  ALLOWED  TIME  STEP  (SEE  DVDQ) 

IF  TRUE,  TRAJECTORY  DATA  ARE  COPIEQ  TO  UNIT  10  FOR  PLOTTN3CONF 
NUMEER  OF  TRAJECTORIES  USED  TO  DEFINE  THE  FLUX  TUBE  CONF 

PERIPHERY.  I FINN  .EQ.  0)  SINGLE  TRAJECTORIES  ARE  COMPUTEDCONF 
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CONF 
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21 
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23 

24 
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26 

27 

28 

29 
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31 

32 

33 
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35 

36 

37 

38 

39 

40 

41 

42 

43 
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51 
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CURRENT 

VALUES  OF  INDEPENDENT  VARIABLES  - 

CONF 

55 

P(i) 

= X 

CONF 

56 

P(  2) 

- OX/DT 

CONlf 

57 

PIS) 

= Y 

CONI’ 

58 

P(4! 

- DY/GT 

CONF 

59 

PC  5) 

----  Z 

CONF 

60 
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c 


c 


PC  6 ) = OZ/OT  CONF 

PACT  (SPARE)  CONF 

PT  DRAG  COE FF IC IE NT* A3S (REYNOLDS  NUMBER)  FOR  GRAVITY  SETT LI  KG CONF 

OF  PARTICLES  CONF 

RF  FACTOR  TO  CONVERT  VELOCITY  DIFFERENCE  TO  REYNOLDS  NUMBER  CONF 

RHO  AIR  DENSITY  (KC/M**3)  CONF 

RHOP  PARTICLE  DENSITY  (KG/M**3)  CONF 

RW  RADIUS  OF  PARTICLE  FLUX  TUBE  IN  TARGET  PLANE  (NORMALIZED)  CONF 

TEMP  AIR  TEMPERATURE  (DEG.  KELVIN)  CONF 

TOL  TOLERANCE  FOR  REACHING  A POINT  ON  TARGET  PLANE  WINOOV  CONF 

(FRACTION  OF  RW)  CONF 

TPRINT  OUTPUT  TIME  INTERVAL  CONF 

V AIR  SPEED  (M/SEC)  CONF 

VIS  AIR  VISCOSITY  (KG/(M-S£C))  CONF 

VPGT  PARTICLE  SPEED  AT  TARGET  POINT  CONF 

VT  GRAVITY  SETTLING  SPEEO  OF  PARTICLE  CONF 

VTGT  AIR  SPEED  AT  TARGET  POINT  CONF 

XI3P,YI3P,ZI3P  INITIAL  PLANE  FLJX  TUBE  CENTER  COORDINATES  IN  CONF 

THE  FLOW  SYSTEM  CONF 

XST ART  TRAJECTORY  INITIAL  X COORDINATE  CONF 

XP,YP,ZP  TARGET  POINT  COORDINATES  IN  THE  FLUX  TUBE  SYSTEM  CONF 

XW,YW,ZW  COORDINATES  OF  CENTER  OF  FLUX  TUBE  AT  THE  TARGET  PLANE  CONF 
IN  THE  FLOW  SYSTEM  CONF 

YE()»ZE()  TARGET  FOINT  COORDINATES  OF  THE  LAST  THREE  GUESSES  CONF 
(FLOW  SYSTEM)  CONF 

YI(),ZI<)  INITIAL  POINT  COORDINATES  OF  THE  LAST  THREE  GUESSES  CONF 
(FLOW  SYS1EM)  CONF 

YPSTAR,  ZPSTAR  TARGET  FOINT  COORDINATES  (FLOW  SYSTEM)  CONF 

YPSTARP,  ZPSTARP  TARGET  POINT  COORDINATES  (FLUX  TUBE  SYSTEM)  CONF 
COMMON  XI3,YI3,ZI3,YI3P,EPSI(3) ,HI, HMINI, VT, PT ,COF ,FNR, PACT , CONF 

1 RF,  REO  * R» XPSTAR, YPSTAR, ZPSTAR, P (6) , TPRINT , IT , ALPHAO ,BETA0 , IREC,  CONF 

2IPLOT  »IPLT  »XPLOT  (60)  ,YPLOT  ( 60 ) , ZP'-OT  (60  » , ALPHAR,  BET AR,  YPSTARF,  CONF 


61 
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64 

65 
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74 
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76 
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3ZPSTARP,XI3P,ZI3F»XP,YP»ZP,XWP, XP* »AGC  »DLR» JLIM 
DIMENSION  HOLL  (18)  » X INI  T ( 10  0 ) , XEXIT(lOO) 

DIMENSION  YINIT(IOO),  ZI  )IT  (100 1, YE X IT  (ISO)  , ZEX.IT(  100) 
DIMENSION  YI(3),  ZII3),  Y£(3>,  ZE(3) 

LOGICAL  I PLOT 

DATA  PI/3.1415926536/ 

NFI N=  0 

READ  AND  WRITE  DATA 


CONF  93 
CONF  94 
CONF  95 
CONF  96 
CONF  97 
CONF  96 
CONF  99 
CONF  100 


READ  (5,2600)  KASE 
CALL  SETFLO (KASE) 

REA0(5,  lOOOHOLL,  IPLOT 

READ (5 , 110  0) V , ELL,  RHO,  TEMP,  XSTART 

READ ( 5 , 110 C ) TPRINT,  HI,  HMINI,  EPSI 

SET  DEFAULT  VALUES  FOR  NIMERIGAL  INTEGRATION  AND 

IF ( TPRINT  .£Q.  0.0)  TPRIhT=0.1 

IF (HI  . EQ.  0.0)  HI  = G .1 

IF ( HMINI  .EQ.  0.0)  HMINI  = 0.005 

IF ( EPSI  (1)  .EQ.  G.O)  EPSI  ( 1 ) -1.  CE~5 

IF(  EPS  1(2)  .EQ.  0.0  EFSI  ( 2 ) =1  • QE-5 

IF  ( EPSI  ( 3)  .EQ.  0.0  EPSI  ( 3 ) = !•  QE-5 

READ  (5,1150)  NW,  RW,  TOL 

JLI  M=25 

IF ( NW  .EQ.  0)  JLIM=0 
DO  3 J = 2 , 3 

READ  (5,11001  YE  ( J) , ZECJ),  YKJ),  ZI(J) 

VIS  = 145.8E-8  * TEMP**(3.0/2.0)/(110.4  + TEMP) 
WRITE (6,1200)  HOLL 

WRITE ( 6 ,1300 ) V,  ELL,  RH C,  TEMP,  VIS 


CONF  101 
CONF  102 
CONF  103 
CONF  104 
CONF  105 

PRINT  PARAMETERS  CONF  106 

CONF  107 
CONF  108 
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WRITE (6  *140  0)  HI • H M KI « T FRI NT t XST  ART  CONF 

WRITE(6,1500)  EPSUl),  EPSIC2),  EPSI  (3 ) CONF 

WRITE  (6*1520  ) MW,  RW,  TOL  CONF 

WRITE  ( 6, 1540)  CONF 

DO  4 J=  2,3  CONF 

I=J-1  CONF 

WRITE  (6,1550)  I,  YE(J  ),  ZE(J),  YICJ)  ,ZI( J)  CONF 

INITIALIZE  CONF 

FN  = V**2/ (9.8*ELL)  CONF 

FNR  = 1.0/FN  CONF 

IF  (.NOT.  IPLOT ) GO  TO  5 CONF 

REWIND  10  CONF 

WRITE  (6,1800)  CONC- 
ENTER TRAJECTORY  CALCULATION  LOOP  CONF 

CALL  PARTCL ( V*ELL»RHC*VIS»  TEMP  »QIAM, DLR»RHOP  »VT , RF  ,PT,  ACC,  NFIN)  CONF 
IF ( NFIN  .EQ.  0)  GO  TO  6 CONF 

IF ( .NOT.  IPLOT)  RETURN  CONF 

ENDFILE  10  CONF 

REWIND  10  CONF 

RETURN  CONF 

REA D( 5,1100)  XW,  YW,  ZW  CONF 

WRITE (6,3500)  XW,  YW,  ZW  CONF 

IF  NECESSARY  SET  DEFAULT  VALUES  FOR  INITIAL  AND  FINAL  TRAJECTORY  CONF 
POINT  GUESSES  CONF 

IF  (ABS  (YE(  2d+ABS(YE(3)  ) +A8S (ZE ( 21 ) ♦ A8S ( ZE !3>> +ABS ( YI(  2)  ) ♦ CONF 


1 ABStYI  (3)  ) +ABS(ZI(2))«-AES(ZI(3)>  .NE. 

0.0)  GO  TO 

7 

CONF 

146 

YE ( 2)  = YW  ♦ SIGNd.  5*RW*TOL, 

YW) 

CONF 

147 

ZE( 2)  = ZW  + SIGNd. 5*RW*TOL, 

ZW) 

CONF 

148 

YE  ( 3)  = YW  - SIGNd.  5*RW*TOL, 

YW) 

CONF 

149 

ZE ( 3)  = ZW  - SIGNd. 5*RW*TOL, 

ZW) 

CONF 

150 

YI  ( 2)  = YW 

CONF 

151 

ZI ( 2)  = ZW 

CONF 

152 

YI(  3)  = YE  ( 2) 

CONF 

153 

ZI ( 3 ) = ZE  (2) 

CONF 

154 

7 COF  = P T*VT*FN 

CONF 

155 

R = RF  * VT 

CONF 

156 

XPSTAR  = XW 

CONF 

.157 

YPSTAR  = YW 

CONF 

158 

ZPSTAR  = ZW 

CONF 

159 

YPSTARP=YW 

CONF 

160 

ZPSTARP=ZW 

CONF 

161 

XI3P  = 0.0 

• 

CONF 

162 

YI3P  = 0.0 

CONF 

163 

ZI3P  - 0.0 

CONF 

164 

XWP=XST  ART 

CONF 

165 

XPP  = XW 

CONF 

166 

XP  = 0.0 

CONF 

167 

YP  = 0,0 

CONF 

168 

ZP  = 0.0 

CONF 

169 

IP  = 0 

CONF 

170 

CONF 

171 

COMPUTE  TRAJECTORY  THAT  PASSES 

: THROUGH 

THE  CENTER 

OF  THE  FLUX 

TUBECONF 

172 

CONF 

173 

ALPHA  0 =0.0 

CONF 

174 

BET  AO  = 0.0 

CONF 

175 

ALPHAR=0.(5 

CONF 

176 

BET AR=G  .0 

CONF 

177 

WRITE  (6,2803)  IP , XP STAR , YPSTAR , ZPSTAR 

, YPSTARP  , 

ZPSTARP 

CONF 

178 

CALL  MAP  (YI,ZI,TCL,FW,Y£,ZE) 

CONF 

179 

IF ( IT  »LT , 0 ) GO  TO  5 

CONF 

180 
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c 


c 


c 


c 


c 


c 


c 


COMPUTE  INITIAL  AND  FINAL  TRAJECTORY  ANGLES 
CALL  FL0VEL(XI3,YI3,2I3,VX,VY,VZ,HI,INB0DY) 

ALPHAO  = ATANtVY/VX)  * 160. /PI 

BET  AO  = ATAN«  CYZ-YT) /SQRT(YX**2  + * 180. /PI 

ALPHAR  = ATANCPI4)/PI2)  )*180./PI 

BETAR  = ATANIPC6 )/SQFTCP(2)**2+P<4)**2)  ) *180. /PI 

WRITE  *6,2000)  ALPHAO,  8ETA0,  ALPHAR,  BETAR 

IFCNW  .EQ.  0)  GO  TO  5 

ALPHAO  = ALPHA0*PI/18O. 

BET  AO  = BETA0*PI/i80. 

ALPHAR  = ALPHAR^PI/180. 

BETAR  = BET  AR*PI /180 • 


OF  TRAJECTORY 
INBODY) 


COMPUTE  AIR  AND  PAFTICLE  SPEEDS  AT  FINAL  PCINT 
CALL  FL QVEL  ( P(l),  PI3),  P<5),  VX,  V Y,  VZ,  HI, 

VTGT  = SORT  ( VX**2  + V Y**2  + VZ**2  ) 

VPGT  = SORT  CP  ( 2 ) **  2 + PC4)**2  + P(6)**2) 

XI3P  = XI3 
YI3P  = YI3 
ZI3P  = ZI3 

CALL  TRANSFM(  0.0,  YI (2)  - YI3,  ZI<2)  - ZI3,  ALPHAO,  BETAO, 
1 XP,  YP,  ZP,  1) 

YI ( 2)  = YP 
ZIt  2)  = ZP 

CALL  TRANSFMIP (1 ) - XPSTAR, 

1 ALPHAR,  BETAR,  XP , YP,  ZP, 

YE  C 2 ) = YP 
ZE(  2)  = ZP 
YI  {.3 ) = 0.0 
Z I ( 3 ) = 0.0 

CALL  TRANSFMIP  Cl ) - XPSTAR, 

1 ALPHAR,  BETAR,  XP,  YP,  ZP, 

YE ( 3)  = YP 
ZE ( 3)  = ZP 
XP  = XW 
YP  = YW 


Y£(2)  - YPSTAR,  ZE<2)  - ZPSTAR, 


YE  ( 3) 
1) 


* YPSTAR,  ZE I 3 ) « ZPSTAR, 


ZP  = ZW 


XWP=0.0 

LOOP  FOR  EACH  POINT  ON  FLUX  TUBE  PERIPHERY 
DO  500  IP=1,NW 

THETA  = FLOAT (IP-1) /FLOAT (NW)  *3.1415926536  *2. 

CALCULATE  TARGET  COORDINATES  IN  FLUX  TUBE  SYSTEM 
YPSTARP  = RW  * SIN  (THETA)  •* 

ZPSTARP  = RW  * COS  CTHET A ) 

IPSTAR  = IP 

TRANSFORM  TARGET  COORDINATES  TO  FLOW  SYSTEM 
CALL  TRANSFMf 0.0 , YPSTARP,  ZPSTARP,  ALPHAR,  BETAR , XPSTAR, YFST AR, 

1 ZPSTAR, -1) 

XPSTAR  = XW  * XPSTAR 
YPSTAR  = YW  «•  YPSTAR 
ZPSTAR  = ZW  «■  ZPSTAR 

GUESS  INITIAL  COORDINATES  AND  COMPUTE  TRAJECTORY 
WRITE  (6,2800)  IP, XPSTAR, YPSTAR,  ZPSTAR,  YPSTARP,  ZPSTARP 
CALL  MAP  (YI,ZI,TOL,RW,YE,ZE> 

IF ( IT  ,LT.  0 ) GO  TC  5 

TRANSFORM  FINAL  AND  INITIAL  COORDINATES  TO  FLUX  TUBE  SYS. 
CALL  TRANSFM  (PCI)  - XW  , P(3)  - YW  ,P<5)  - ZW  , ALPHAR, BETAR, 

IX EX IT (IP), YE XIT IIP) ® Z EXIT <IP) ,1) 

CALL  TRANSFM  < XI 3- XI cP, Y I3-YI 3P  ,ZI 3- ZI 3P, ALPHAO, BET AO , XI NIT C IP ), 
lYINITCIP), ZINITIIP) ,1) 

IF  ( A8SIXINIT  (IP)  ) . LE  . RW  * TOL  ) GO  TO  500 
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WRITE  (6,  290 0 1 XIMTCIP)  ,XI3P 
500  CONTINUE 

COMPUTE  FLUX  TUBE  CROSS  SECTION  AREAS  IN 
PLANES,  AND  COMPUTE  CONCENTRATION  FACTOR, 

WRITE  C 6,  2200)  XI3P, YI3P  ,ZI3P,XH,TW, ZW 
DO  600  IP=1,NW 

600  WRITE  C 6,23  CO ) IP,  XIMT(IP),  YINITUP),  ZINIT(IP), 

1 YEXIT  t IP) , ZEXIT(IP) 

CALL  POLYGON  (YINIT,ZINIT,  NW,  AREA) 

CALL  POLYGON  C YE  XIT, ZEXIT»N W*  DENOM) 

CONFAK  = AREA/OENOM 
CONRTO  = C 0 fFAK  / VPGT 

WRITE  (6,3000)  AREA,  OENCM,  CONFAK,  XW,  YW,  ZW,  01AM 

WRITE (6, 3400 )OLR,RHOF 

WRI TE ( 6,  3200  ) TGT , CONRTO 


SET  UP  TRIAL  COORDINATES  FOR  NEXT  PARTICLE 


THE  INITIAL  AND  TARGET 
ETC. 


XEXIT (IP) , 


Y£  (3) 
ZI C 3) 
YE<  3) 
ZE  ( 3 ) 
CALL 


= YI3 
-■  ZI3 
=:  P(  3) 
a P ( 5 ) 

T RANSFMC 


G.G, 

YI3P 

ZI3P 

0.0, 

YH 

ZW 


YI  (2)  , Z I ( 2 ) , 


YE  ( 2 ) , ZE  ( 2)  , ALPHAR,  BETAR,  XI3,YI3, 


1000 

HOC 

1150 

1200 

1300 


, 18A4) 
-/7X,10HAIR 


CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
- 1)  CONF 
CONF 
CONF 

ZI 3,  -1)  CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 
CONF 

SPEED  =1PE13. 6,  CONF 


ALPHA!!,  8ETAG , XI3.YI3,  ZI  2, 

YI ( 2)  « YI3  * 

ZI ( 2)  = ZI3  * 

CALL  TRANSFM( 

YE ( 2)  = YI3  + 

ZE  ( 2)  = ZI3  «■ 

GO  TO  5 

FORMAT ( 18A4,  7X,L1) 

FORMAT ( 8F10  * 5) 

FORMAT  (110 , 7F1G «5  ) 

FORMAT HH1,  5X,  15HC  CNF  AC  RUN  10  -/  8X 
FORMAT ( 1H0 , 5X,  21HP KYSICAL  INPUT  DATA 
1 3X , 37HCH ARACTERISTIC  DIMENSION  OF  THE  BOOY=lPE 13 .6/  7X  , 35H  CENSITCONF 
2Y  AND  TEMPERATURE  CF  AIR  ARE  1PE13.6,  5H  ANO  1PE13.6,20H  AIR  VISCONF 
3COSITY  IS  1PE13.6)  CONF 

1400  FORMATt  1H0,  5X,  29H NUMERICAL  INTEGRATOR  INPUTS  -/  7X,  10HTIME  STECONF 
1 P=1PE11 .4,  3X , 18HMINIMUM  TIME  STEP  = 1PE11.4,  3X,  2GHPRINT  TIME  I NT  CONF 
2ERVAL=1PE11  .4,  3X,  24HUPSTREAM  START  0ISTANCE=1PE11 .4)  CONF 

1500  FORMAT ( 1H0,  6X,  33H LOCAL  ERROR  TOLERANCES  FOR  DVOQ  -,  3 (1PE14.4)) CONF 
1520  FORMAT { 1H0,  5X,  35HFARTICLE  FLUX  TUBE  SPECIFICATIONS  -/  CONF 

1 7X,  46HNUMBER  CF  TRAJECTORIES  ON  FLUX  TUBE  PERIPHERY=I 3, CONF 

2 3X,  27HFLUX  TU8E  RADIUS  AT  TARG£T  = F9. 5,  3X , 1QHT0LERANCE=F8.4  ) CONF 
1540  F ORMAT ( 1H0,  5X,  42HTARGET  AND  INITIAL  CCOROINATE  ESTIMATES-/  iOX,CONF 

1 6HJGUESS,  9X , 2 HYT , 13X,  2HZT,  13X,  2HYI,  13X«  2HZI)  CONF 

1550  FORMAT  ( 114,  4(5X,  F1C.5))  CONF 

///6X , 51HTRAJEGT0RY  DATA  ARE  WRITTEN  ON  UNIT  10  FOR  PLOTT CONF 

CONF 

///2GX,  ' 47HINITIAL  AND  FIMAL  TRAJECTORY  ANGLES  (DEGREES) 
7HALPHAfl=F10.4,  5X,  6HBETAfl  = F10  • A/  22X,  7HALPHAR-=FlG.4» 


1800  FORMAT  ( 
1ING//) 

2 G 00  FORMAT ( 
1/  22X, 


2,  6HBETAR=F10.4> 

2200  FORMAT ( IHi,  35X,  44HFLUX  TUBE  GROSS  SECTION  COORDINATES 
1/  28X,  13HINITIA L PLANE,  33 X,  12HTARGET  PLANE// 

2 8 X , 2HIP,  2<9X,  2HXP,  13X,  2HYP,  13X,  2HZP , 4X)/  4X, 

3R6(  1PE15.4)  ,14H  (FLO N SYSTEM)  > 

2300  FORMAT  (110, 6(  1PE15.  A)  , 19H  (FLUX  TUBE  SYSTEM)) 

2605  FORMAT  (A4) 


IN  THE 


-CONF 
5XCONF 
CONF 
-/CONF 
CONF 
6HCENTEC0NF 
CONF 
CONF 
CONF 


241 

242 

243 
2 44 

245 

246 

247 
2 48 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 
263 
2 64 

265 

266 

267 
2 68 
2 69 
2 70 

271 

272 

273 
2 74 

275 

276 

277 

278 

279 
2 60 
281 
282 

283 

284 
265 
2 86 
287 

268 
269 
2 90 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 
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2800  FORMAT < ///  18H  TRAJECTORY  NUMBER, 13 , 5X , 20HTARGET  COORDINATES  -CONF 

1,10H  XPSTAR  = F10.  6.  4X  , 8HYPSTAR  =F1Q.6,5X,  8 HZ PS TAR  =F10.6,  CONF 

2 14H  (FLOW  SYSTEM)/  70X,  8HYPST  ARP=Fi(j  *6,  5X,  8HZPSTARP=Fi0 .6  , CONF 

3 19H  (FLUX  TUBE  SYSTEM)//  CONF 

4 15X,  6HY  FINAL , 6X , 6 HZFI NAL ,6X , 10  HI TERATI CNS,  5X,  5HYINIT,  7X,  CONF 

5 5HZINIT,  7X,  25 HERR CR  (FLUX  TUBE  SYSTEM))  CONF 

2900  FORMAT ( //  30X, 49HINITIAL  POINT  IS  NOT  IN  CORRECT  TRANSFORMED  PLANECONF 

1/  32X,  5HXINIT=1PE 12. 5 , 5X,  5HX I3P=1PE12 • 5)  CONF 

3000  FORMAK//  15X,  50HFLUX  TUBE  CROSS  SECTION  AREA  IN  THE  INITIAL  PLANCONF 
1 E=lPE12 • 5*  8X , 20HIN  THE  TARGET  PLA NE=1F£12.5//  15X,  21H CONCENT RACONF 


2TION  FACT0R=CPF11.5// 

3 10X,  21HAT  THE  PCINT  ( X,  Y,  Z)  =,3F12.  5/19X,27HF0R  A PARTICLE  CF 
4METER=,F12.5) 

3290  FORMAT ( 10X,  36HNORMALIZEG  AIR  SPEED  AT  FINAL  P0INT=F12.5/ 

1 10X,  29HPARTICLE  CONCENTRATION  RATI0=F12,5) 

3400  FORMAT ( 1H+,  52X,  30HWITH  DIAMETER  TO  LENGTH  RAT IO=iPE12 . 5 , 

1 12 HAND  DEN  JIT Y=  1PE1 2. 5 ) 

3500  FORMAT ( 1H0,  9X,  22HTARGET  COORDINATES  X=1P£12.  5,  5X, 

15,  5X , 2HZ=iPE12.5> 

END 


CONF 
OIACONF 
CONF 
CONF 
CONF 
, CONF 
CONF 

2HY-1PE12.C0NF 

CONF 


3X 


CONF 


301 

302 
3G3 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 
329 


ECK , HAP 

MAP 

1 

SUBROUTINE  MAP  ( YI , ZI,TCL, RW, Y£, ZE) 

MAP 

2 

MAP 

3 

H.  G.  NORMENT,  ATMOSPHERIC  SCIENCE  ASSOCIATES  - NOVEMBER 

197' 

MAP 

4 

MAP 

5 

MAP 

GUESSES  THE  INITIAL  CQOROIVATES  OF  A TRAJECTORY  THAT  IS 

MAP 

6 

AIMING  FOR  A POINT  IN  THE  TARGET  PLANE.  AFTER  THE 

TRAJECTORY 

MAP 

7 

IS  COMPUTED,  THE  DISTANCE  FROM  THE  TARGET  IS  COMPARED 

TO 

MAP 

8 

THE 

ALLOWABLE  TOLERANCE.  THE  PROCESS  IS  REPEATED 

UNTIL  OISTANCMAP 

9 

FROM 

THE  TARGET  IS  BELOW  THE  TOLERANCE. 

MAP 

10 

ONCE 

A HISTORY  CF  GREATER  THAN  THREE  TRAJECTORIES 

HAS 

BEEN 

MAP 

11 

COMPUTED,  LEAST  SQUARES  IS  USED  TO  DETERMINE  TRIAL 

INITIAL 

MAP 

12 

COORDINATES 

MAP 

13 

GLOSSARY 

MAP 

14 

A 

MATRIX  OF  COEFFICIENTS  INVERTED  IN  MATINV 

MAP 

15 

AA,  C 

INTERMEDIATE  STORAGE  FOR  LEAST  SCUARES  NORMAL 

MATRIX  TERMSMAP 

16 

AC 

ACCELERATION  MOCULUS 

MAP 

17 

ANG 

ANGLE  OF  DRAG  VECTOR  PROJECTED  IN  THE  X-Y  PLANE 

RELATIVE 

MAP 

18 

TO  THE  X AXIS 

MAP 

19 

B 

ENTERS  MATINV  AS  CONSTANT  MATRIX  ANO  RETURNS 

AS 

SOLUTION 

MMAP 

20 

COSA,COSB»  COSC  DIRECTION  COSINES  OF  DRAG  VECTOR 

MAP 

21 

CNG 

ANGLE  OF  DRAG  VECTOR  RELATIVE  TO  Z AXIS 

MAP 

22 

DIST 

DISTANCE  BETWEEN  END  OF  TRAJECTORY  ANO  TARGET 

POINT 

MAP 

23 

DV 

VELOCITY  OF  PARTICLE  RELATIVE  TO  AIR 

MAP 

24 

IT 

ITERATION  NUMBER 

MAP 

25 

VA 

AIR  SPEED  AT  TARGET  POINT 

MAP 

26 

VP 

PARTICLE  SPEED  AT  TARGET  *OINT 

MAP 

27 

W 

LEAST  SQUARES  SUMMAND  WEIGHT 

MAP 

26 

YE 

ARRAY  OF  FINAL  Y COORD  rOR  LAST  3 GUESSES 

MAP 

29 

YI 

ARRAY  OF  INITIAL  Y COORD  rOR  LAST  3 GUESSES 

MAP 

30 

YI3 

NEXT  GUESS  FCR  INITIAL  Y COORD  (FLCW  SYSTEM) 

MAP 

31 

ZE 

ARRAY  OF  FINAL  Z COORD  -OR  LAST  3 GUESSES 

MAP 

32 

21 

ARRAY  OF  INITIAL  Z COORD  FOR  LAST  3 GUESSES 

MAP 

33 

ZI3 

NEXT  GUESS  FOR  INITIAL  Z COORD  (FLOW  SYSTEM) 

f 

A 

MAP 

34 

LOGICAL 

IPLOT 

MAP 

35 

145 
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50 


100 


120 


140 


200 


220 


COMMON  XI3,YI3,ZI3,YI3P,EPSI(3> ,HI,HMINI,VT 

,PT,COF,FNR,PACT 

t 

MAP 

36 

1RF»RE0»R*XPSTAR*  YFST  AR»  Z FST  AR.P (6)  , TPRINT  , IT  ,ALPHAfl  , BETA  0,  IREC. 

MAP 

37 

2 I PL  OT  » I PLT»  XPLOT  (60)  *YPLCT (60 ) * ZPLOT  (60  )» ALPHA R,  BET  AR»  YPSTAr<P» 

MAP 

38 

3ZPSTARP,XI3P,  ZI3F,XP.YF.ZP,  XWP,  XP?  » ACC  » DLR» 

JLIM 

MAP 

39 

DIMENSION  YI(3),  ZI<3),  A(4,4),  B(4)»  Y£(3) 

, ZE( 3) » OY  (3)  , 

O Z(3)  , 

MAP 

40 

1 AA  ( 6),  C(3>,  PSTR  (3  ) 

MAP 

41 

OATA  ILIM/  25/ 

MAP 

42 

DO  50  J = 2*  3 

MAP 

43 

OY ( J ) = YE ( J)  - YPSTARP 

MAP 

44 

DZ ( J)  = ZE ( J)  - ZPSTARP 

MAP 

**5 

IT  = 0 

MAP 

46 

N = 4 

MAP 

47 

GENERAL  ITERATION  CALCULATION 

OF  NEXT  GUESS 

MAP 

48 

GENERATE  CONSTANT  ARRAY  (3)  FOR  MT I NY  IF  IT  . L£  . 

3 

MAP 

49 

DO  120  J=2»  3 

MAP 

50 

I = J - 1 

MAP 

51 

B(2*I-1)  = YISJ) 

MAP 

52 

B (2*11  = ZKJ) 

MAP 

53 

CONTINUE 

MAP 

54 

GENERATE  COEFFICIENT  ARRAT  (A)  FOR 

MAT  IN  V 

MAP 

55 

DO  140  J=2*  3 

MAP 

56 

I = J - 1 

MAP 

57 

JROW  = 2*1-1 

MAP 

58 

JR0W2  = 2*1 

MAP 

59 

A (JROW* 1)  = 1. 

MAP 

60 

A (JROW*  2)  = 0. 

MAP 

61 

A (JROW*  3)  - QYU5 

MAP 

62 

A ( JROW  t 4)  = -DZ(J) 

MAP 

63 

A ( JR0W2  »1)  = 0. 

MAP 

64 

A(JROW2,2)  = 1. 

MAP 

65 

A(jROW2»3)  = 0 Z ( J) 

MAP 

66 

A ( JROW 2 *4)  = DY ( J) 

MAP 

67 

CONTINUE 

MAP 

68 

GO  TO  280 

MAP 

69 

IF  IT  . GE  . 3 SOLVE  FCR  THE  NEXT  INITIAL  COORDINATES  GUESS 

BY 

MAP 

70 

LEAST  SQUARES 

MAP 

71 

CONTINUE 

MAP 

72 

MAP 

73 

INCREMENT  LEAST  SQUARES  NORMAL  EQJ AT  IONS 

MAP 

74 

MAP 

75 

W = 1.0 

MAP 

76 

G = DY(3>  / DIST**2 

MAP 

77 

Q = DZ ( 3)  / DIST**2 

MAP 

78 

S = G * YI  (3 ) 4 Q * 21(3) 

MAP 

79 

AA  ( 1)  = AA  ( 1)  + G**2  * W 

MAP 

ao 

AA  ( 25  = AA  ( 2 5 4 G * Q * W 

MAP 

81 

AA( 3)  = AA  (3)  + G * W 

MAP 

82 

A A ( 4 ) = AA ( 4)  4 Q**2  * W 

MAP 

63 

AA(  5)  = AA  ( 5)  4 Q * W 

MAP 

84 

A A i 6 ) = AA ( 6)  4 W 

MAP 

85 

C(l)  = C(l)  4 G ♦ S * W 

MAP 

86 

C ( 2 ) = C (2)  4 Q * S * W 

MAP 

67 

C ( 3 ) = C(3)  4 S * W 

MAP 

88 

MAP 

69 

SET-UP  LEAST  SQUARES  NORMAL  EQUATIONS 

MAP 

90 

MAP 

91 

A(ltl)  = A A ( 1 ) 

MAP 

92 

A ( 1 » 2 ) = A A (2) 

MAP 

93 

A (1  • 3 ) = A A (3 ) 

MAP 

9* 

A ( 2 ♦ 2)  = AA  (4) 

MAP 

95 
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250 


AC2,3)  = A A ( 5 1 
A (3  * 3)  = AA  (6) 

DO  250  1=2,3 
K = 1-1 
00  250  J=I , 3 
AIJ.K)  = A ( K,  J ) 

DO  260  1=1,3 
260  8CI)  = CCII 
DO  265  1=1,3 
A (4, I)  = 0.0 
265  A C 1 , 4)  = 0.0 
A (4* 4)  =1.0 
BC4)  = 0.0 

C SOLVE  MATRIX  EQNS  TC  GET  VEXT  GUESS 

280  CALL  HATINV(A,N,B,1,CET£RM) 

CALL 'TRANSFMCXKP,B (D »B (2) • ALPH AO , BETA 0 , XI 3, YI3, ZI 3 , -1) 

XI3  = XI3  ♦ XI3P 
YI3  = Y 13  + YI3P 
ZI3  = Z 13  ♦ ZI3P 
CALL  TRAJECT 
IF  (IT  .LT.  01  RETURN 
IT  = IT  + 1 

IF  (IT  . GT  . 31  GO  TO  305 

UPDATE  ARRAYS  OF  INITIAL  AND  FINAL  CCORDS. 

290  DO  300  J=i, 2 

YI(J»  = YI ( J + i ) 

ZIIJ)  = ZIIJH) 

D Y ( J)  = DY  ( J*-ll 
DZCJ)  = DZfJ*ll 
YE ( J I = YE (J+i) 

ZE ( J > = ZE ( J+l ) 

PSTR ( Jl  = PSTR ( J +1 ) 

300  CONTINUE 
305  CONTINUE 

YI ( 3)  = B(l) 

ZI  (3)  = 8(  2) 

CALL  TRANSFMKP (1 I - XP  , P ( 31  - Y3  , P(5)  - ZP  , ALPHAR,  BE TAR, 
1 XDUM, YE  (31  , ZE ( 3 ) , 1 ) 

IF  ( ABS (XP)  . EQ  . C.O  ) XCUM  = XDUM  - XPP 
IF  (ABS  (XDUM)  . GT  . RW  * TOL  ) WRITE (6,  3000  ) 

DY  ( 3 ) = Y E (31 -YPST  ARP 
OZ ( 3)  = ZE  ( 3)  "ZPST  ARP 
DIST  = SQRT  ( 0Y(3)**2  + DZ  C 3)  2 > 

PSTR ( 3 ) = DIST 

GUESS  AGAIN  OR  GO  CN  TO  WEXT  POINT  ON  WINDOW? 

WRITE  (6,2700)  YEC 3) ,Z E ( 3) , IT, YI(3) ,ZI ( 3) ,DIST 
IF  (DIST  .LE.  R.W*TOL  ) GO  TO  490 
IF ( IT  .LE.  ILIM ) IF ( IT  - 3)  ICO, 318,200 

WRITE  (6,2900)  ILIM 
IT  = -ILIM 
RETURN 

INITIALIZE  FOR  LEAST  SCUARES 


310 

320 

325 


DO  320  1=1,3 
C(I)  = 0.0 
DO  325  1=1,6 
AA  ( I ) = 0.0 
DO  330  I = 

W = 1,0 


MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
* MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 
MAP 


96 

97 

98 

99 
100 
101 
102 
103 
1C  4 

105 

106 
107 
10  8 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 
1^6 

147 

148 

149 

150 

151 

152 

153 

154 

155 


1,3 
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G = OY(IJ  / PSTR (I )**2 

MAP 

156 

Q = DZ { I)  / PSTR  ( I )**2 

MAP 

157 

S = G * YICI)  + Q * ZI(I> 

MAP 

158 

AACil  = AAC1I  ♦ G**2  * W 

MAP 

159 

AA ( 2)  = AA(2I  ♦ G * Q * W 

MAP 

160 

AA(3)  * AA(3)  ♦ G * W 

MAP 

161 

AA(4>  = AA(4)  ♦ Q**2  * W 

MAP 

162 

AAC5)  - AA  C5I  ♦ Q * W 

MAP 

163 

AA  ( 6 ) = AA  ( 6)  ♦ W 

MAP 

164 

C(l)  * C(l)  * G * S * W 

MAP 

165 

C ( 2 ) = C(2)  ♦ Q * S * W 

MAP 

166 

330  C(3)  - C(3)  * S * W 

MAP 

167 

GO  TO  100 

MAP 

168 

PRINT  TRAJECTORY  OUTPUT 

MAP 

169 

490  REWINO  9 

MAP 

170 

WRITE  (6,1700) 

MAP 

171 

DO  494  IWRITE  = i,IREC 

MAP 

172 

READ  (9>NEVAL,KSTEP,  T,  P(i),  P(3),  P(5),  P(25, 

P(4)  , P ( 6)  , V X, 

VY,  MAP 

173 

2 V Z,  H,  R* AC 

MAP 

174 

WRITE (6*1600)  KSTEP,  T,  P(l),  P( 3),  P(5),  F(2), 

PC  4)  , P(  6)  , VX, 

V Y,  MAP 

i?5 

2 V Z,  H,  R,  AC,  NEVAL 

MAP 

176 

<*94  CONTINUE 

MAP 

177 

COMPUTE  AND  PRINT  DRAG  VECTOR  AT  TARGET  POINT 

MAP 

178 

DV  = SORT ( (VX  - P <2 ) )**Z  + (V Y - P<4))**2  ♦ ( VZ 

- P(6))**2  ) 

MAP 

179 

COSA  = (VX  - P(2))/OV 

MAP 

180 

COSB  = (VY  - P(4))/DV 

MAP 

181 

COSC  = (VZ  - P(6))/DV 

MAP 

182 

ANG  = ATAN ( COSB/COSA  ) * 57.29577951 

MAP 

183 

CNG  = A COS ( COSC  ) * 57.  29577951 

MAP 

184 

WRITE  ( 6,  31G0  1 COSA,  C0S3  , COSC,  ANG,  CNG 

MAP 

185 

COMPUTE  AND  PRINT  Alf  AND  PARTICLE  SPEEDS  AT  TARGET  POINT 

MAP. 

186 

VA  = SORT ( VX*+2  + VY**2  ♦ V Z**l  ) 

MAP 

187 

VP  = SORT  (P  ( 2)  **2  <■  P(4)**2  + P(6)+*2) 

MAP 

188 

WRITE ( 6 , 3200)  VA,  VP 

MAP 

189 

IF  (IPLOT)  WRITE  (10)  I FLT  , ( XPLOT  ( J»  , YPLOT <J ) , 

ZPLOT < J)  » J=  1,1  PL T)  MAP 

190 

RETURN 

MAP 

191 

1600  FORMAT ( 16,  10 ( IX , 1PE 11. 4) /I  OX,  2HH  = 1PE11,4,4H 

R=1PE11. 4,  5H 

AC=MAP 

192 

11PE11.4,  8H  NEVA L= I 6) 

MAP 

193 

1700  FORMA T ( 6H0KSTEP,  7X , 1 HT,  11X,  1HX,  11X,  1HY,  11X,  1HZ,  10X, 

MAP 

194 

1 3HVPX,  9X,  3HVPY,  9X,  3HVPZ,  10X,  2HVX,  lflX,  2HVY,  10X,  2HVZ) 

MAP 

195 

2700  FORMAT  (10X,  2E12 .4, 7X , 13 , 5X, 3E12 . 4 ) 

MAP 

196 

2900  FORMAT ( ///2GX*  2 8HT0L  ERA KCE  NOT  SATISIFIED  IN  14 

, 58H  TRAJECTORY  IMAP 

1S7 

ITERATIONS.  GIVE  UP  AND  TRY  THE  NEXT  PARTICLE) 

MAP 

198 

3000  FORMA T( ///20X , 57HFINAL  PARTICLE  POSITIOI*  IS  NOT 

IN  THE  ROTATED 

1 TAMAP 

199 

1 GET  PLANE) 

MAP 

200 

3100  FORMAT ( 5X,  28HORAG  VECTOR  AT  FINAL  POINT  -/  6X 

, 18HDIRECTION 

COSMAP 

201 

1 INES-3(1PE13.4),  3X,  19H  ANGLES  A AND  . GAMMA-2  UPE 13. 4) ) 

MAP 

202 

3200  FORMAT ( 5X,  47HAIR  ANC  FARTICLE  SPEEDS  AT  THE  FINAL  POINT  ARE2 (1PEMAP 

203 

115.5)) 

MAP 

204 

END 

MAP 

205 
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♦DECK, TRAJECT  TRAJ  1 


SUBROUTINE  TRAJECT 

TRAJ 

2 

TRAJ 

3 

H.  6. 

NORMENT,  ATMOSPHERIC  SCIENCE  ASSOCIATES  - NOVEMBER  197< 

TRAJ 

4 

TRAJ 

5 

TRAJECT  CALCULATES  3-D  PARTICLE  TRAJECTORIES 

TRAJ 

6 

EMBEDDEO  IN  A FLOW  FIELO  DETERMINED  BY  FL'OVEL. 

TRAJ 

7 

THE  PREDICTOR-CORRECTOR  SJ3R0UTINE  DVDQ  IS  USED 

TRAJ 

a 

TO  INTEGRATE  THE  EQUATIONS  OF  MOTION.  OUTPUT  AT  TIME 

TRAJ 

9 

INTERVAL  T PRINT  IS  WRITTEN  ON  UNIT  9. 

TRAJ 

10 

ORAG  PARAMETERS  ARE  CALCULATED  8Y  FUNCTION  PRFUN  WHICH  IS  PART IC Li 

ETRAJ 

11 

TYPE-SPECIFIC.  S.R. IMPACT  IS  A PROBLEM-SPECIFIC  CODE  THAT,  AFTERTRAJ 

12 

PARTICLE  IMPACT  ON  THE  BODY,  ADJUSTS  INITIAL  PARTICLE  COORDINATES 

TRAJ 

13 

SUCH  THAT  ON  THE  NEXT  TRIAL  IMPACTION  SHOULD  NOT  OCCUR. 

TRAJ 

14 

TRAJ 

15 

GLOSSARY 

TRAJ 

16 

AC 

ACCELERATION  MODULUS 

TRAJ 

17 

DTI  ) 

STOFAGE  FOR  GVOQ 

TRAJ 

18 

EPS  ( ) 

LOCAL  ERROR  TOLERANCE  FOR  THE  NUMERICAL  INTEGRATION 

TRAJ 

19 

FC  ) 

EQUATION  OF  MOTION  OF  THE  PARTICLE  - 

TRAJ 

20 

F(i>  - X 0 IFECTI ON 

TRAJ 

21 

F<2)  - Y DIRECTION 

TRAJ 

22 

F(3>  - Z DIRECTION 

TRAJ 

23 

G 

GSTOP  FUNCTION  (SEE  DVDQ  GLOSSARY) 

TRAJ 

24 

H 

TIME  STEP 

TRAJ 

25 

IFLAG 

DVOC  STATUS  FLAG  (SEE  DVDQ  GLOSSARY) 

TRAJ 

26 

INBOOY 

FLAG  TO  INDICATE  WHEN  TRAJECTORY  HAS 

TRAJ 

27 

PENETRATED  THE  BODY 

TRAJ 

28 

KD  (I ) 

ORDER  OF  THE  ITH  DIFFERENT IA L EQUATION 

TRAJ 

29 

KQ(I> 

THE  HIGHEST  OROER  DIFFERENCE  USED  IN  THE  INTEGRATION  OF 

TRAJ 

30 

THE  ITH  EQUATION 

TRAJ 

31 

NEQ 

NUMBER  OF  EQUATIONS 

TRAJ 

32 

NG 

NUMBER  OF  GSTOP  FUNCTIONS  (SEE  DVDQ  GLOSSARY) 

TRAJ 

33 

NGE 

SEE  DVDQ  GLOSSARY 

TRAJ 

34 

P(  ) 

CURRENT  VALUE  OF  THE  DEPENDENT  VARIABLES  (SEE  CONFAC) 

TRAJ 

35 

PN  ( ) 

STORAGE  FOR  DVDQ 

TRAJ 

36 

R 

REYNOLOS  NLMEER 

TRAJ 

37 

T 

TIME 

TRAJ 

38 

TFINAL 

INTEGRATION  CUT-OFF  TIME 

TRAJ 

39 

VX 

AIR  VELOCITY  IN  X DIRECTION 

TRAJ 

40 

VY 

AIR  VELOCITY  IN  Y D IRECTI3N 

TRAJ 

41 

VZ 

AIR  VELOCITY  IN  Z DIRECTION 

TRAJ 

42 

DIMENSION  F(3),£PS(3),KD(3),PN(6)  ,KQ(3J , DT(20,3) 

TRAJ 

43 

LOGICAL  IPLOT 

TRAJ 

44 

COMMON 

XI3,YI3,ZI3,YI3P,  £PSI(3l  ,HI , H MINI , VT  ,PT  ,C OF  ,FNR, PACT  , 

TRAJ 

45 

1RF.RE0 

, R,XPS TAR, YP STAR, ZPST AR »P (6)  t TPRI NT, IT , ALP HAO , BET AO , IREC, 

TRAJ 

46 

2 IPLOT , 

IPLT , XPLOT (60) ,YPLCT ( 60 ) , ZPLOT (60 ), ALPHAR,  BETAR, YPST ARP, 

TRAJ 

47 

3 ZPSTARP ,XI 3P, ZI 3 F, XP ,YP , ZP, XWP , XP3 , ACC , DLR , JLI M 

TRAJ 

4fl 

OATA  MX  STEP,  NEQ*  NG  ,N  C-E/l  C, 3,1,0/,  KD/3*2/ 

TRAJ 

49 

INITIALIZE  FOR  THE  NUMERICAL  INTEGRATOR 

TRAJ 

50 

JT  = 0 

. 

TRAJ 

51 

130  IFLAG 

= 0 

TRAJ 

52 

TFINAL 

= (XPSTAR-XI3)*  l,  l 

TRAJ 

53 

HMA  X = 

TFINAL 

TRAJ 

54 

All  = 

COS(  ALPHAR  ) * COS(  BETAR  ) 

TRAJ 

55 

A12  = 

SIN ( ALPHAR  ) * CO$(  BETAR  ) 

TRAJ 

56 

A13  = 

S IN ( BETAR  ) 

TRAJ 

57 

T = 0. 

0 

TRAJ 

58 

EPS (1) 

= EPSI(i) 

TRAJ 

59 

EPS  (2) 

= EPSK2I 

TRAJ 

60 

149 


EPS (3)  EPSH3I 

TRAJ 

61 

H = HI 

TRAJ 

62 

HHIli  = HMINI 

TRAJ 

63 

XPLOT(l)  = XI3 

TRAJ 

64 

YPLOTC1I  = YI3 

TRAJ 

65 

ZPLOT(i)  = ZI3 

TRAJ 

66 

IPLT  = 1 

TRAJ 

67 

COMPUTE  INITIAL  AIR  FLOW  VELOCITIES 

TRAJ 

68 

110 

CALL  FL0VELCXI3,  YI3,  ZI3,  VX,  VY,VZ,H, INBODY) 

TRAJ 

69 

PCI)  = XI3 

TRAJ 

70 

PC2)  = VX 

TRAJ 

71 

P ( 3)  = YI3 

TRAJ 

72 

P 14)  = VY 

TRAJ 

73 

PI  5)  = ZI3 

TRAJ 

74 

PC6)  = VZ  - VT 

TRAJ 

75 

120 

FC1)  = 0.0 

TRAJ 

76 

FC2)  = 0.0 

TRAJ 

77 

FC3 ) = VT*PT/COF  - FNR. 

TRAJ 

78 

G = All* CP ( 1)  - XPP)  + A12  * CPC3)  - YP)  ♦ A 13  * CPC5)  - ZP) 

TRAJ 

79 

CALL  OVDQCNEQ,T,P,F,KD,EPS,IFLAG,H,HMIN, 

TRAJ 

60 

* HMAX,  TPRI NT,  TFINA  L» MXSTEP, KSTEP, <EM AX , EMAX , 

TRAJ 

81 

* KQ,PN»OT, NEVAL*  NG»NGE,  NSTOP,G,GT> 

TRAJ 

82 

COMPUTE  THE  TRAJECTORY 

TRAJ 

83 

REWIND  9 

TRAJ 

84 

IREC  = 0 

TRAJ 

85 

GO  TO  200 

TRAJ 

86 

150 

AC  = ACC  * SQRTC  F(ll**2  + FC2)**2  + FC3)**2  ) * CRF/R)**2 

TRAJ 

87 

WRITEC9 ) NEVAL*  KSTEP*  T,  PCI),  P (3)  , PC5),  P(2),  PC4),  P(6),VX, 

VY, TRAJ 

88 

2 VZ,  H,  R,  AC 

TRAJ 

89 

IREC  = IREC  + 1 

TRAJ 

90 

IF  C • NOT.  I PLOT  .ANC.  IFLAG  .LE.  10  ) GO  TO  200 

TRAJ 

91 

IPLT  = IPLT  * 1 

TRAJ 

92 

XPLOT(IPLT)  = PCI) 

TRAJ 

93 

YPLOT(IPLT)  = PC 3) 

TRAJ 

94 

ZPLOT(IPLT)  = P C 5 ) 

TRAJ 

95 

IF ( IFLAG  .GT.  10  ) RETURN 

TRAJ 

96 

200 

CALL  DVOQ(NEQ,T,P,F,KD,EPS,IFLAG,H,HMIN, 

TRAJ 

97 

* HMAX,TPRINT,TFINAL,MXST  EP, KSTEP, <EMAX ,EMAX , 

TRAJ 

98 

* K.Q»PN,  DT»  NEVAL,  NG  ,NG£  »N  STOF,G , GT) 

TRAJ 

99 

GO  TOC  210,  210*  150,  250,  150,  220,  230,  250,  260,  260,  150, 

TRAJ 

1D0 

1 150  ),  IFLAG 

TRAJ 

101 

210 

CALL  FLOVELCPC1J ,PC3)»P  C5) , VX, V Y, V Z , H, IN80DY ) 

TRAJ 

102 

IF  (IN BODY  .EQ.  0)  GO  TO  215 

TRAJ 

103 

WRITE  (6,2200)  PCI),  PC3) , P(5),  YI3,  ZI3,  JT 

TRAJ 

1U4 

CALL  IMPACT (YI3»ZI3) 

TRAJ 

105 

JT  = JT  + 1 

TRAJ 

106 

IFCJT.LT.  JLIM)  go  TO  10C 

TRAJ 

107 

WRITE  C 6,2500)  JLIM 

TRAJ 

108 

IT- -JLIM 

TRAJ 

109 

RETURN 

TRAJ 

110 

215 

R “ RF*SQRTCCVX  - P<2>)**2  + CVY  - P(4))**2  + (VZ  - P(6))**2  ) 

TRAJ 

111 

PR  = PR FUN (R,  OLR,  COF) 

TRAJ 

112 

F(1 ) - (VX  - PI2))*PR 

TRAJ 

113 

FC2)  = (VY  - P(4I)*PR 

TRAJ 

114 

F (3 ) = (VZ  - P(6))*PR  - FNR 

TRAJ 

115 

GO  TO  200 

TRAJ 

116 

22  £ 

EPS (KEMAX)  = 32.*EMAX*EPS  CKEMAX) 

TRAJ 

117 

WRITE (6 , 1900)  IFLAG,  KSTEP, NEVAL 

TRAJ 

118 

WRITE! 6, 2 000)  EPSCKEMAX) , KEMAX 

TRAJ 

119 

GO  TO  210 

TRAJ 

120 
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260 

250 


HMIN  = H 
WRITE (6  *1900) 
WRITEC6, 21001 
GO  TO  200 
G = All* (P (1) 
GO  TO  200 
WRITE (6  *1900) 
* 


IFLAG, 

HMIN 


KSTEP, NEVAL 


- XPP)  ♦ A12  * (PC3)  - YP)  + A13  * (P(5)  - ZP) 


KST  EP»  NEVAL 


IFLAG, 

AC  = ACC  * SORT < F(1 1**2  * Ft2)**2 
WRITEC6, 16001  KSTEP,  T,  FCi),  P(3) 
. VZ,  H,  R,  AC 
RETURN 


♦ F(3)**2  ) 
PCS),  P (2) , 


( RF/R) **2 
P (4)  9 PC6) , VX, 


V Y, 


230  HMIN  - H TRAJ 

TRAJ 
TRAJ 
TRAJ 
TRAJ 
TRAJ 
TRAJ 
TRAJ 
i TRAJ 
TRAJ 
TRAJ 
TRAJ 
TRAJ 

1600  FORMAT (16,  10 C IX , 1PE 51* A) / 10X,  2HH  = 1PE11.4,  4H  R=iFEil.4,  5H  ACTRAJ 
1 = IP  Ell*  A)  TRAJ 

1900  FORMAT  ( 5X,  6HIFLAG=I2,  11H  FOR  K3TEP=I6,  6H  NEVAL=I6)  TRAJ 

2000  FORMAT ( 1H+,  55X,  23HEPS  HAS  BEEN  CHANGED  T01PE11.  A,  UH  FOR  KEMAXTRAJ 
1=12)  TRAJ 

2100  FORMAT ( 1H+,  55X,  1AHHMIN  IS  SET  T01PE11*A)  TRAJ 

2200  FORMAT ( 10X,  65HTHE  BODY  SURFACE  IS  PENETRATEO.  PARTICLE  COCROINATRAJ 
1TES  ARE  (X,Y,Z)  ,3(lPElc.  £)/  10X,  43HTRIAL  INITIAL  COORDINATES  ARE  TRAJ 
2(YINIT,ZINIT)2 (1PE12.A) , 5X,  1AHATTEMPT  NUMBERIA)  TRAJ 

2500  FORMAT { / 15X,  5HAFTERIA,  45H  ATTEMPTS  PARTICLE  STILL  PENETRATESTRA J 

1 THE  BOOY. ) TRAJ 

END  TRAJ 


121 

122 

123 

12A 

125 

126 

127 

128 

129 

130 

131 

132 

133 
13A 

135 

136 

137 

138 

139 
1 A0 
141 
1A2 

143 

144 

145 


C 


POLYGON 

POLY 

1 

SUBROUTINE  POL YGONCXIN, YIN, N, AREA) 

POLY 

2 

POLY 

3 

COMPUTES  AREA  OF  A PLA  )E  POLYGON  WITH  N VERTICES 

POLY 

4 

POLY 

5 

DIMENSION  XINCN)  * YIN  (N  ) 

POLY 

6 

DIMENSION  XC100),  YC1001' 

POLY 

7 

OATA  PI/3.  1415926536/ 

POLY 

8 

CALCULATE  CENTER  OF  »OLYGON 

POLY 

9 

XSUM  = 0. 

POLY 

10 

YSUM  = 0. 

POLY 

11 

DO  2 1=1, N 

POLY 

12 

XSUM  = XSUM  + XI M I) 

POLY 

13 

YSUM  = YSUM  * VINCI) 

POLY 

14 

CONTINUE 

POLY 

15 

XCEN  = X3UM/FL0AT ( N) 

POLY 

16 

YCEN  = YSUM/FLOATCN) 

POLY 

17 

REORDER  FOINTS  IN  ASCENDING  VALUES 

OF 

THETA 

POLY 

18 

TPIM1  = 0. 

POLY 

19 

DO  8 IP=i, N 

POLY 

20 

THETAP  = 2.*PI 

POLY 

21 

DO  4 1=1, N 

POLY 

22 

THETA  = ATAN2C  VINCD-YCEN,  XIN(I)-XCEN) 

POLY 

23 

IF  (THETA  *LT»  0.)  THETA  = 2.*PI  THETA 

POLY 

24 

IF  (THETA  *LE.  TPIMi  .OR.  THETA  .GT.  THETAP) 

GO 

TO  4 

POLY 

25 

THETAP  = THETA 

POLY 

26 

X ( IP)  = XIN  ( 1) 

POLY 

27 

Y(IP)  = YIN(I) 

POLY 

28 

CONTINUE 

POLY 

29 

TPIMI  = THETAP 

POLY 

30 
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8 

CONTINUE 

POLY 

31 

ASUH  = jj. 

POLY 

32 

DO  40  I N=1  »N 

POLY 

33 

INMi  = IN  - 1 

POLY 

34 

IF  (IN.EQ.l)  I NM1  = N 

POLY 

35 

BASE  = SQFT((X(IN)-X  (INM1))**2  *(Y  (INI  - Y (I NM1I  )**2) 

POLY 

36 

DENOM  = XC  IN)  - X(INKl) 

POLY 

37 

IF  CABS  (DENOM)  .GT.  l.E-10)  GO  TO  31 

POLY 

38 

ALT  = A 8SCXCEN-X  (IMM1)  > 

POLY 

39 

GO  TO  32 

POLY 

40 

3i 

SLOPE  = (Y(IN)-Y(IKMi))/(X(IN)-X(INMi)) 

POLY 

41 

ALT  = ABS(YCEN-Y  (I NM1  >-SLOPE*  (XCEN- X (INMi) ) 5/SQRTC  l.+SLQPE**2> 

POLY 

42 

32 

ASUM  = ASUH  ♦ ALT*BASE/2. 

POLY 

43 

40 

CONTINUE 

POLY 

44 

200 

AREA  = ASUM 

POLY 

45 

RETURN 

POLY 

46 

ENO 

POLY 

47 

DECK, 

TRANSFM 

TRAN 

1 

SUBROUTINE  TRANSFM  (X  ,Y  , 2,  ALPHA  .BETA 

» XT, YT, ; 

ZT,  IGCi 

TRAN 

2 

TRAN 

3 

TRANSFORMS  COORDINATES  FROM  THE  F.OW 

SYSTEM 

TO  THE  PARTICLE  FLUX 

TRAN 

4 

TUBE  CROSS  SECTION  SYSTEM,  CR  VISE  VERSA. 

TRAN 

5 

IF { IGO  .GT.  0)  TRANSFORM  FROM  FLOW 

TO  FLUX 

TUBE  SYSTEM 

TRAN 

6 

IF ( IGO  ,LT.  0)  TRANSFORM.  FROM  FLUX 

TUBE  TO 

FLOW  SYSTEM 

TRAN 

7 

TRAN 

8 

COSA  = COS (ALPHA) 

TRAN 

9 

SINA  = SIN(ALPHA) 

TRAN 

10 

C0S3  = COS (BETA  ) 

TRAN 

11 

SI NB  = SIN  (BETA) 

TRAN 

12 

IF  (IGO  .LT.  C)  GO  TO  20 

TRAN 

13 

All  = COSA*COSB 

TRAN 

14 

A12  = SINA*C0S3 

TRAN 

15 

A13  = SINB 

TRAN 

16 

A21  = -SINA 

TRAN 

17 

A22  = COSA 

TRAN 

18 

A23  = 0. 

TRAN 

19 

A31  = - COS A*SINB 

TRAN 

20 

A32  = -SINB*SINA 

TRAN 

21 

A33  = COSB 

TRAN 

22 

GO  TO  30 

TRAN 

23 

i 

GOING  THE  OTHER  WAY 

TRAN 

24 

20 

Ali=  COSA* COSB 

TRAN 

25 

A12  = -SINA 

TRAN 

26 

A13  = -COSA*  SINE 

TRAN 

27 

A21  = SINA*COSB 

TRAN 

28 

A22  = COSA 

TRAN 

29 

A23  = -SINA*S IN8 

TRAN 

30 

A31  = SINB 

TRAN 

31 

A32  = 0. 

TRAN 

32 

A33=COSB 

TRAN 

33 

30 

XT  = Aii*X  + A12*Y  + A13*Z 

TRAN 

34 

YT  = A21*X  + A22*Y  + A23*Z 

TRAN 

35 

ZT  = A31*  X + A 32* Y + A33*Z 

TRAN 

36 

RETURN 

TRAN 

37 

ENO 

TRAN 

38 
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♦DECK,  MATINV 

SUBROUTINE 


MATIN VC  A»N,B»M,DETERM) 


MATRIX  INVERSION  WITH  ACCOMPANYINS  SOLUTION  OF  LINEAR  EQUATIONS 

THIS  CODE  SOLVES  THE  MATRIX  EQUATION 
A*X=B 

FOR  X.  A IS  AN  N*F  INFUT  MATRIX.  B IS  AN  N*1  INPUT  VECTOR. 
A IS  REPLACED  BY  ITS  INVERSE.  8 IS  REPLACED  BY  THE  VECTOR  X. 
THE  CODE  CAN  BE  USED  FOR  MATRIX  INVERSION  ALONE.  IN  THIS  MODE 


MATI 
M ATI 
MATI 
MATI 
MATI 
MATI 
MATI 
MATI 
MATI 
MATI 


SET  M = 0 IN  THE  INPUT 


FOR  MATRIX  INVERSION  PLUS  LINEAR.  EQUATIONMATI 


SOLUTION,  SET  M= 1 IN  THE  INPUT.  THE  VALUE  OF  THE 

DETERMINANT 

MATI 

OF  A,  OETERM,  IS  RETURNED  FROM  BOTH  MODES, 

MATI 

13 

MATI 

14; 

DIMENSION  IPIVOTC30),  AC  N,  N) , B(  N,l),  INDEXC30,2) 

, PIVOT  C3QJ 

MATI 

15; 

EQUIVALENCE  CIROW.JRCW),  CICOLUM, JCOLUM)  , CAMAX,  T, 

SWAP) 

MATI 

16: 

MATI 

17 

INITIALIZATION 

MATI 

18 

- 

MATI 

19 

10 

DET  £RM=1.0 

MATI 

20 

15 

DO  20  J=1,N 

MATI 

21 

20 

IPIVOTC  J)  = 0 

MATI 

22 

3C 

DO  550  1=1, N 

MATI 

23 

MATI 

24 

SEARCH  FOR  PIVOT  ELEMENT 

MATI 

25, 

MATI 

26 

40 

AM A X=  0 • 0 

MATI 

27 

45 

DO  105  J=1,N 

MATI 

28 

59 

IF  (IPIVOT  CJ)-i)  60,  105,  60 

MATI 

29 

60 

DO  10  0 K=1,N 

MATI 

30 

70 

IF  C IPIVOT  ( K)  -11  60,  100,  740 

MATI 

31 

80 

IF  CABS  CAMAX ) -ABS  CA(J,K)))  85*100,  iOG 

MATI 

32 

85 

IROW=J 

MATI 

33 

90 

ICOLUM=K 

MATI 

34 

95 

AMAX  = A CJ,K) 

MATI 

35 

100 

CONTINUE 

MATI 

36 

1C5 

CONTINUE 

MATI 

37 

110 

IPIVOT  C ICOLUM) =1  PI  VO  1 ( ICOLU  M)  + 1 

MATI 

38 

MATI 

39 

INTERCHANGE  ROWS  TO  PUT  PIVOT  ELEMENT  ON  DIAGONAL 

MATI 

40 

MATI 

41 

130 

IF  CIROW-ICOLUM)  140,  260,  140 

MATI 

42 

140 

DET ERM= -DETERM 

MATI 

43 

150 

00  20  0 L=1,N 

MATI 

44 

160 

SWAP=A ( IROW,L) 

MATI 

45 

173 

ACIROW,L)  = A(ICOLUM,L) 

MATI 

46 

200 

ACICOLUM,L)=SWAP 

MATI 

47 

205 

IFCM)  260,  260,  21fli 

MATI 

48 

49 

210 

DO  250  L=i , M 

MATI 

220 

SWAP  = B C IROW,L) 

MATI 

50 

23  0 

BCIROW,  L)=B  CICOLUM, L) 

MATI 

51 

250 

BCICOLUM,  L)=SWAP 

MATI 

52 

260 

INDEX  C 1,1) =IROW 

MATI 

53 

27C 

INDEX C 1,2) =ICOLUM 

MATI 

54 

310 

PIVOT  CDsACICOLUM,  ICCLUMJ 

MATI 

55 

320 

OETERM=DETERM*PIVOTCIJ 

MATI 

56 

MATI 

57 

DIVIDE  PIVOT  ROW  BY  PIVOT  ELEMENT 

MATI 

58 

MATI 

59 

330 

ACICOLUM, ICOLUM) =1.0 

MATI 

60 
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340 

00  350  L=i,N 

MATI 

61 

350 

A(ICOLUM,L)=A(ICOLUM,L)/PIVOT<I* 

MATI 

62 

355 

IF(M>  380,  380 , 360 

MATI 

63 

360 

DO  370  L=i,M 

MATI 

64 

370 

B(ICOLUM»L)=B(IGOLUM,L) /PIVOT (I) 

MATI 

65 

• 

MATI 

66 

REDUCE  NON-PIVOT  RCHS 

MATI 

6 1 

MATI 

66 

380 

DO  550  L1=1«N 

MATI 

69 

390 

IF  ( Ll-I  COLU  M)  400,  550,  *00 

MATI 

70 

40  0 

T=A(L1, ICOLUM) 

\ 

MATI 

71 

420 

A(L1,ICOLUM)=0.0 

MATI 

72 

430 

DO  450  L=1,N 

MATI 

73 

450 

A ( LI,  L)  =A«L1, L) -At ICOLUM, L)*T 

MATI 

74 

455 

IFIM)  550,  550,  460 

MATI 

75 

460 

DO  500  L=i , M 

MATI 

76 

500 

8tLi,L>  =BtLl,L)-8(ICCLUM,L)  *T 

MATI 

77 

550 

CONTINUE 

MATI 

78 

MATI 

79 

INTERCHANGE  COLUMNS 

MATI 

80 

MATI 

81 

eoo 

DO  710  1=1, N 

MATI 

82 

610 

L=N+1-I 

MATI 

83 

620 

IF  tINDEXtL,  11-INDEX  (L  ,2))  630  , 710,  630 

MATI 

84 

630 

JROW=T  NDEX (L, 1 ) 

MATI 

85 

64  G 

JCQLUM=INDEXtL,2) 

MATI 

86 

650 

DO  705  K=i  * N 

MATI 

8 7 

660 

SWAP=ACK,JROW) 

MATI 

68 

670 

AtK,  JROWMAtK,  JCOLUM ) 

MATI 

89 

700 

At  K» JCOLUM)=SWAP 

MATI 

90 

70  5 

CONTINUE 

MATI 

91 

710 

CONTINUE 

MATI 

92 

740 

RETURN 

MATI 

93 

END 

MATI 

94 
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♦DECK,  SETFLO 

SUBROUTINE  SETFLOC  KASE  ) 

C INITIALIZES  FOR  FLOVEL  CALCULATION  BY  REAOING  IN  OATA  PREPARED 

REAL  IXX,  IXY,  IYY , MACH 
COMMON  /VELOAT/  NSYM , NGUAO,  119, 

COM MON/ COM 2 9/  SIGtiOOO),  041(1000), 


SETF 
SETF 
SETF 
SETF 

129,  LOOP,  RBETA  SETF 

XC(lOfifl),  YCtlOQG)  ,ZC  (1000),  SETF 


1 All(lOOO) ,A12  ( 10 00 ) , A13  ( 10 00  ) , A21 ( 10 00) , A22 (10 00) , A23 (10 00)  , 

2 A3K1000)  , A32  (1000), A33  ( 10 00 ) ,XI 1 U 0 DO ) ,XI2 ( 100 G ) , XI3  (10 0 0) , 

3 XI 4 (10  00)  ,ETA1C10  00  ) ,ETA2(  100(3),  ST  AM  1000)  ,TSQ<  10GQ)  ,A(  1000), 

4 IXXC1G 00 ) , IXY  (1000), IYY  ( 1000), 312  ( 1000) , 02 3(  10 00 ) , 034(  1000 ) 
REWINO  14 

READ( 14)  KASETP,  NSYM,  NQUAO,  RBETA,  MACH 
WRITE (6,3000)  KASE  ,NSYM,  NQUAO,  MACH 

IF ( KASE  « EQ.  KASETP)  GO  TO  1Q0 
REWIND  14 

WRITE  (6 ,2000)  KASE,  KASETP 
STOP 

100  READ  (14)  (XC(J)  ,YC  (J),  ZC(J),  A1KJI,  A12(J),  A13<J),  A 21  ( J ), 

1 A2  2 ( J ) , A23(  J ) * A31  (J  ),  A32(J),  A33(J),  XI1(J)  , ETA1  ( J)  ,XI2( 

2 
3 


J)  , 
IXY 


ETA2( J) * XI3( J) , XI4( J) , ETA4(J),  TSQU),  A 
(J),  I Y Y ? J ) , 012  (J ) , 023 ( J ) , 034 ( J) , 04l(J) 


(J),  IXX  (J), 
, J=l, NQUAO) 


SETF 

SETF 

SETF 

SETF 

SETF 

SETF 

SETF 

SETF 

SETF 

SETF 

SETF 

SETF 

SETF 

SETF 

SETF 


3000  FORMAT ( 
1TRY 
2 BER=E12  • 5) 
END 


lHli 
PLA  N£S  = I3 , 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 


READ(14) (SIG(I) , 1= 

1 , NQUAO) 

SETF 

22 

REWINO  14 

SETF 

23 

10 

IF  ( NSYM  - 

1 ) 58, 

52,  54 

SETF 

24 

52 

129 

= 1 

SETF 

25 

119 

= 2 

SETF 

26 

GO  TO  60 

SETF 

27 

54 

129 

= 2 

SETF 

28 

IF  ( NSYM  . 

EQ.  3 ) 

GO  TO  56 

SETF 

29 

119 

= 3 

SETF 

30 

GO  TO  6 0 

SETF 

31 

56 

119 

= 4 

SETF 

32 

GO  TO  6 0 

* 

SETF 

33 

58 

119 

= 1 

SETF 

34 

60 

LOOP  = 2 ** 

NSYM  + 

1 

SETF 

35 

RETURN 

SETF 

36 

2000 

FORMAT  ( 1H- 

,/  5X,  50HTAPE  AND  CARO  IDENTIFIERS  DO  NOT  MATCH. 

TRY  A SETF 

37 

1 GA IN/  10X, 

9HCARD  ID=  A 4 , 5X,9HTA3E  10=  A4) 

SETF 

38 

19HB00Y  IDENTIFIER  IS  A4,  5X,  26HNUM8E R OF  SYMMESETF  39 
5 X,  2 5HN UMBER  OF  QJ  ADRAL  ATER;\LS=I  5,  5X,  12HMACH  N UM SETF  40 

SETF  41 
SETF  42 
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ooooooooo 


♦DECK*  FLOVEL  FLOV 

SUBROUTINE  FLOVEL  I XNPP,  YNPP,  ZNPP,  VXPP,  VYPP,  VZPF,  H,  INBOGY)  FLOV 
REVISED  5/11/79  FLOV 

FLOV 

GIVEN  SPACE  COORDINATES,  XNPP, YMP° , ZNPP*  POTENTIAL  FLOW  VELOCITY  FLOV 
COMPONENTS,  VXP P,VYPP,VZPP,  ARE  COMPUTED  AND  RETURNED.  FLOV 

THE  HESS-SMITH  METHOD,  IS  USEO.  THE  28  QUANTITIES  PLUS  THE  FLOV 

SOURCE  STRENGTHS,  SIGH,  ARE  STORED  IN  CCMM0N/C0M29/.  FLOV 

CONTRIBUTIONS  FROM  NCUAD  SURFACE  ELEMENTS  ARE  SUMMEO.  FLOV 

UP  TO  THREE  PLANES  OF  SYMMETRY  CAN  BE  ACCCMGOA  TED.  FLOV 

FLOV 

REAL  Ml 2,  M23,  H34,  Hkl  ; IXX,  IXY,  IYY  FLOV 

COMMON  /VELOAT/  NSYM , NQUAO,  119,  129,  LOOP,  RBETA  FLOV 

DIMENSION  X ( 8 $ »Y(8),Z<6)  FLOV 

COM  MON /COM  2 9/  SIG(IOOG),  DLl(lfiOO),  XC(l9GQ),YC(1000)  « ZC  (1000 ) , FLOV 

1 All(lOOS) ,A12  11009), A13  (1990),A21(1G9Q) , A 22 (1909) ,A23  110  00)  , FLOV 

2 A3K1000)  ,A32  ( 1000  ) ,A33  < 1000  ) , X II  ( 1090)  , XI2  (1  COO)  ,XI  3 (10  00)  , FLOV 

3 XI4C1000) ,ETAlClCflO),ETA2(100D),ETA4(lfl09),TSQ(1000),A(lfl90),  FLOV 
k IXX(IOOO)  ,IXY  (1000), IYY  (1000,312  ( 1000)  ,t)23(  1000)  ,03M  1000)  FLOV 

DATA  RH01SQ,  RH02SQ/  6.0,  16.0  / FLOV 

VXPP=9.0  FLOV 

VYPP=0 • 0 FLOV 

VZPP=0.0  FLOV 

INBODY  = 0 FLOV 

DO  2300  II  = 1,  NQUAD  FLOV 

DO  1700  12  = 1,  LOOP  FLOV 

IF  ( 12  .EQ.  LOOP  ) GO  TO  ( 2000,  910,  920,  930  )»I19  FLOV 

GO  TO  (1000,  910,  920,  910,  930,  310,  920,  910  ),  12  FLOV 

910  YC  ( II  ) = - YC  ( II  ) FLOV 

A12  ( II  ) = - A12  ( II  ) FLOV 

A22  ( II  ) = - A22  ( II  ) FLOV 

A31  ( II  ) = - A31  ( II  ) FLOV 

A33  ( II  ) = - A33  ( II  ) FLOV 

GO  TO  932  FLOV 

920  ZC  ( II  > = - ZC  ( II  ) FLOV 

A13  ( II  ) = - A 13  ( II  ) FLOV 

A23  ( II  ) = - A 23  ( II  ) FLOV 

A31  ( II  ) = - A31  ( II  ) FLOV 

A32  ( II  ) = - A32  ( II  ) FLOV 

GO  TO  932  FLOV 

930  XC  ( II  ) = - XC  ( II  ) FLOV 

All  ( II  ) = - All  ( II  ) FLOV 

A21  ( II  ) = - A21  ( 11  ) FLOV 

A32  ( II  ) = - A32  ( II  ) FLOV 

A33  ( II  ) = - A3 3 ( II  ) FLOV 

932  IF  ( 12  .EQ.  LOOP  ) GO  TO  ( 2100,  2200  ) ,129  FLOV 

1000  XDIF  = XNPP-  XC  ( II  ) FLOV 

YDIF  = YNPP-  YC  ( II  ) FLOV 

ZD IF  = ZNPP-  ZC  ( II  ) FLOV 

FLOV 

C COMPUTE  DISTANCE  FROM  NULL  POINT  TO  ORIGIN  CF  J-TH  ELEMENT  COOROINA TEFLOV 
C SYSTEM  ( J CORRESPONDS  TO  THE  INDEX  II  ) FLOV 

FLOV 

C INEQUALITY  ( 98  ) FLOV 

FLOV 

ROSQ  = XDIF  **  2 + YDIF  **  2 ♦ ZOI F **  2 FLOV 

IF  ( ROSQ  .LT.  RH02SQ  * TSQ  ( II  ) ) GO  TO  1L00  FLOV 

FLOV- 

C COMPUTE  INDUCED  VELOCITY  COt-PONENTS  FLOV 

C EQUATION  ( 97  ) FLOV 
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FLOV 

61 

ARGi  = A C ID  / SCRT  ( ROSQ  ) **  3 

FLOV 

62 

X ( 12)  = ARGI  * XDIF 

FLOV 

63 

Y C 12  ) = ARGI  * YOIF 

FLOV 

64 

Z ( 12  ) = ARGi  * ZDIF 

FLOV 

65 

GO  TO  1700 

FLOV 

66 

FLOV 

67 

TRANSFORM  NULL  POINT  TO  J - ELEMENT  GOOROINATE  SYSTEM 

FLOV 

68 

EQUATION  C 78  ) 

FLOV 

69 

FLOV 

70 

FLOV 

71 

1400  XNP  = All  ( 11  ) * XEIF  4 A12  ( 11  ) * YOIF  4-  A13  ( 

11  ) 4 ZCIF 

FLOV 

72 

YNP  = A21  C 11  ) * XDIF  4 A22  < III  * YOIF  4 A23  <Ii)*ZOIF 

FLOV 

73 

ZNP  = A 31  ( 11  I * XOIF  4 A32  (III  * YOIF  ♦ A33  Jill 

* ZDIF 

FLOV 

74 

FLOV 

75 

INEQUALITIES  ( 99)  AND  ( 100  1 

FLOV 

76 

IF  ( ROSQ  .LT.  RH01SQ  * TSQ  (III  ) GO  TO  1410 

FLOV 

77 

FLOV 

76 

COMPUTE  INDUCED  VELOCITY  COI'PONENTS 

FLOV 

79 

EQUATIONS  C 57  ) - { 62  5 

FLOV 

eo 

FLOV 

81 

P = YNP  ** 2 4 ZNP  **  2 - 4.0  * XNP  **  2 

FLOV 

82 

QP=  XNP  **2  4 ZhP  *4  2 - 4.0  * YNP  **  2 

FLOV 

83 

RO  = SQRT  ( ROSQ  ) 

FLOV 

84 

ROP  = RO  **  (-  7) 

FLOV 

65 

WXXX  = XNP  * ( S.G  * P 4 30.0  + XNP  **  2 ) * ROP 

FLOV 

86 

WXXY  = 3.0  ♦ P ♦ ROP  * YNP 

FLOV 

87 

WXYY  = 3.0  * XNP  * QP  * FOP 

FLOV 

88 

W Y YY  = YNP  * ( 9.8  4 Qp  + 30. y * YNP  **  2 I * ROP 

FLOV 

89 

WXXZ  =3.0  4 ZNP  ♦ f * FCP 

FLOV 

90 

WXYZ  = - 15.0  4 XNP  * YNP  * ZNP  * ROP 

FLOV 

91 

WYYZ  = 3.9  4 ZNP  4 qp  * fop 

FLOV 

92 

ROP  = - RO  4»  ( - 3) 

FLOV 

93 

WX  = ROP  * XNP 

FLOV 

•94 

WY  = ROP  4 YNP 

FLOV 

95 

WZ  = ROP  * ZNP 

FLOV 

96 

HI X X =.5  4 XXX  ( 11  ) 

FLOV 

97 

HIYY  = .5  * I YY  ( 11  ) 

FLOV 

98 

VX  = - WXYY4HIYY  - WXXY4IXY  ( ID  - WXXX*HIXX  - W X*  A ( 

ID 

FLOV 

99 

VY  = - HYYY4HIYY  - WXYY» IXY ( III  - WXXY4HIXX  - WY*A< 

ID 

FLOV 

100 

V Z = - WYYZ4HIYY  - WXYZ4IXY  ( III  - WXXZ'»HIXX  - WZ4AI 

ID 

FLOV 

101 

GO  TO  1600 

FLOV 

102 

• 

FLOV 

103 

COMPUTE  INDUCED  VELOCITY  CGKPONENTS 

• 

FLOV 

104 

EQUATIONS  ( 42  I - ( 49  I 

FLOV 

105 

FLOV 

106 

CHECK  TO  SEE  IF  POINT  IS  INSIDE  BODY 

FLOV 

107 

1410  GO  TO  ( 1300,  1310,  1300,  1310,  1300,  1310,  1300  , 1310  ),  12 

FLOV 

128 

1300  IF ( ZNP  .GT.  0.0  .OR.  ROSQ  .GT.  0.25*TSQ(I1)  .OR.  ABS(ZNP)  .GT.  H) 

FLOV 

1Q9 

1 GO  TO  1411 

FLOV 

110 

WRITE  (6,5000)  11,  12,  ZNP,  ROSQ,  TSQ(Il),  H 

FLOV 

ill 

5000  FORMAT ( 19X, 11H INSIDE  QUA 015 ,5X , 3HI 2= 13/ 10 X , 15H ZNP, ROSQ, T SQ, H=4 (1PEFLOV 

112 

113.4) ) 

FLOV 

113 

INBODY  = 1 

FLOV 

114 

GO  TO  1411 

FLOV 

115 

1310  IF ( ZNP  .LT.  0.0  .OR.  ROSQ  . GT . C.254TSQ(I1)  .OR.  ABS(ZNP)  . GT.  HI 

FLOV 

116 

1 GO  TO  1411 

FLOV 

117 

WRITE  (6,5099)  11,  12,  ZNP,  RCSQ,  TSQCID,  H 

FLOV 

118 

INBODY  = 1 

FLOV 

il9 

1411  ETA4M3  = ETA4  ( III  - ETA1  ( 11  ) 

FLOV 

120 
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RO  = SQRT  ( ROSQ  ) 

ETA2M1  = ETA2  i li  ) - ETAi  ( II  ) 

XI4M3  = XI4  C Ii  ) - XI  3 C II  ) 

XI2M1  = XI 2 (II  > - XU  C II  ) 

XI3M2  = XI 3 ( Ii  ) - XI2  < II  ) 

XI1M4  = XII  C Ii  ) - XI  4 ( II  ) 

XMXI  i = XNP  - XU  C Ii  ) 

XMXI2  = XNP  - XI 2 ( II  ) 

XHXI3  = XNP  - XI3  ( Ii  ) 

XMXI4  = XNP  - XI 4 ( Ii  ) 

YMETAi=  YNP  » ETAi  < II  ) 

YMETA  2 = YNP  - ETA2  < II  ) 

YMETA  4 = YNP  - ETA4  ( Ii  ) 

ZNPSQ  = ZNP  * ZNF 

IF  ( ZNPSQ  .LT.  TSQ  < Ii  > * i.OE-6  ) ZNPSQ  = 

Ei  = ZNPSQ  + X MX I i **2 

E2  = ZNPSQ  ♦ XMXI 2 **Z 

E3  = ZNPSQ  + XMXI3  **2 

E4  = ZNPSQ  ♦ X MX  1 4 **2 

Hi  = YMETAi  * XMXIi 


H2  = 

YMETA2 

* XMXI2 

H3  «= 

YMETAi 

* XMXI3 

H4  « 

YMETA4 

* XMXI4 

M12  = 

O.fl 

IF  ( 

XI2M1 

• N£,  0.  C) 

Ml  2 

— 

ETA2M1 

/ XI2M1 

M23  = 

0 ,0 

IF  ( 

XI3M2 

•NE.9.0) 

M23 

: « 

ETA2M1 

/ XI3M2 

M34  = 

0.0 

IF  f 

XI4M3 

,NE.  0,0 

M34 

= 

ETA4M3 

/ XI4M3 

M41  = 

6 .0 

IF  C 

XI1M4 

» NE.  0,0 

M41 

= 

- ETA4M3  / 

XI  IN  4 

ANUM1 

= M 12  * £1  - 

HI 

ANUM2 

= M12  * £2  - 

H2 

ANUM3 

= M 23  * E2  - 

H2 

ANUM4 

= M23  * £3  - 

H3 

ANUM5 

= M34  * E3  ~ 

H3 

ANUM6 

= M 34  * E4  - 

H4 

ANUM7 

= M 41  * E4  - 

H4 

ANUM8 

= M 41  * El  - 

HI 

R 1 = 

SQRT 

( XMXII 

2 

•f 

YMETAi 

**  2 

+ ZNPSQ) 

R2  = 

SORT 

< X MX  1 2 

* ¥ 

2 

«■ 

YMETA2 

**  2 

+ ZNPSQ) 

R3  = 

SQRT 

C X MX  13 

2 

+ 

YMETAi 

**  2 

«■  ZNPSQ) 

R4  = 

SQRT 

( XMXI4 

2 

YMETA4 

+ * 2 

* ZNPSQ) 

Q25  = 

D 12  ( 

11  ) 

Q2  6 = 

0 23  < 

11  ) 

Q2  7 = 

034  ( 

11  I 

Q28  = 

D 41  ( 

11  ) 

VX  = Oo  0 
VY  = 0.0 
VZ  = G « 0 

IF  ( Q25  ) 1420,  1430,  1420 
1423  TEMP  = R1  ♦ R2 

TEMPI  = TEMP  - Q25 
TEMP2  = TEMP  + Q25 
ARGi  = 1,0 

IF  l TEMPI  ,NE.  0,0  «AND.  TEMP2 
TEMP  = ARGi  / Q25 
VX  = ETA2M1  * TEMP 
VY  = - XI2M1  * TEMP 
1433  IF  C Q26  ) 1435,  1440,  1435 


FLOV  121 
FLOV  122 
FLOV  123 
FLOV  124 
FLOV  125 
FLOV  126 
FLOV  127 
FLOV  128 
FLOV  129 
FLOV  130 
FLOV  131 
FLOV  132 
FLOV  133 
FLOV  134 

0,0  FLOV  135 

FLQV  136 
FLOV  137 
' FLOV  138 

FLOV  139 
FLOV  140 
FLO'*  141 
FLOV  142 
FLOV  143 
FLOV  144 
FLOV  145 
FLOV  146 
FLOV  147 
FLOV  148 
FLOV  149 
FLOV  150 
FLOV  151 
FLOV  152 
FLOV  153 
FLOV  i 54 
FLOV  155 
FLOV  156 
FLOV  157 
FLOV  158 
FLOV  159 
FLOV  160 
FLOV  161 
FLOV  162 
FLOV  163 
FLOV  164 
FLOV  165 
FLOV  166 
FLOV  167 
FLOV  i £8 
FLOV  169 
FLOV  170 
FLOV  171 
FLOV  172 
FLOV  173 
FLOV  174 
FLOV  175 

'IE,  a. Q > ARG1=  ALOG (TEMP1/TEMP2 ) FLOV  176 

FLOV  177 
FLOV  178 
FLOV  179 
FLOV  ISO 
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1435  TEMP  = R2  + R3 

TEMPI  = TEMP  - Q26 
TEMP2  = TEMP  4 Q26 


1440 

1450 


0 .AND,  TEMP2  .ME.  0.0  ) ARG  3=  ALOG ( TEMPI/ TEMP2 ) 


1460 

1470 


1480 


1502 
150  4 
1506 
1508 

1510 


FLOV 
F LOV 
FLOV 
FLOV 

AND.  TEMP2  .ME.  D.O  ) ARG2=  ALOG  < TEMPI/ TEMP2 » FLOV 

FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 
FLOV 

1600 ,1502,1522FLOV 
IF  ( { -XMXI2*  £TA2M1-YMETA2*XI3M2)/Q2fe)  1630 , 1 504, 1504FLOV 


ARG2  = 1.0 
IF  ( TEMPI  *N£.  0.0 
TEMP  = ARG 2 f Q2  6 
VX  = VX  - ETA2M1  * TEMP 
V Y = VY  - XI3H2  * TEMP 
IF  ( Q27  ) 145B,  1*60,  1450 
TEMP  = R3  + R4 
TEMPI  = TEMP  - Q27 
TEMP2  = TEMP  ♦ Q27 
ARG  3 = 1.0 
IF  { TEMPI  .NE.  O 
TEMP  = ARG 3.  7 Q27 
VX  = VX  4 ETA4M3  * TEMP 
VY  = VY  - XI4M3  * TEMP 
IF  ( Q28  ) 14  7 C , 1480,  1470 

TEMP  = R4  + R1 
TEMPI  = TEMP  - J2B 
TEMP2  = TEMF  + Q28 
ARG4  --  1.0 

IF  ( TEMPI  .NE.  0.0  .AND.  TEMP2  .'JE.  C.O  ) ARG4= ALOG IT  EM P1/TEMP2 ) 

TEMP  = ARG4  / Q26 
VX  = VX  - ETA4M3  * TEMP 
VY  = VY  - XI1M4  * TEMP 
IF  ( ZNPSQ  .NE.  O.C  i GO  TO  1510 
TEST  = SORT (TSQI  ID*  1.0E-3) 

I F I Q2  5 . GT  • T ES  T ) IF  ((  XMXI  1*ETA2N1-YMETA1*XI2M1)  /Q25) 

IF ( Q26. GT.TEST ) 

IF  CQ27.  GT • TEST ) IF! I XMXI3*ETA4M3-YMETAl*XI4M3) /Q27 ) 16 00 , 1 50 6, 1506FLOV 
IF ( Q28 • GT. TESTI  IFt (-XMXI4*ETA4M3-YMETA4*XI1M4) /Q28) 1600 , 150 8, 1506 FLOV 

VZ  = 6. 283 1853 IE 0 FLOV 

GO  TO  1606  FLOV 

IF  C XI2  Ml  .NE.  0.0)  VZ=  AT ANC ANUMi/ ( ZNF*R1) )- AT  AN ( ANUM2/ (ZNF*R2 1 ) FLOV 
IF  CXI3M2  .NE.  S • 0) VZ=VZ+AT  ANCANUM3/ (ZNP*R2) )~  AT  AN  I ANUM4/ I ZNP*R3 ) ) FLOV 
IF  (XI4M3  .NE.  0 .0)  VZ=VZ4ATAN(ANUM5/ <ZNP*R3)  )-AT  AN  (ANUM6/ (ZNF*R4)I  FLOV 
IF  CXI1M4  .NE.  0.0) VZ=VZ4-AT  AN!  ANUM7/ <ZNP*R4 ) I - AT  AN  < ANUM8/ CZNF*R1)  ) FLOV 
C FLOV 

C TRANSFORM  INDUCED  VELOCITY  COMPONENTS  TO  REFERENCE  COORDINATE  SYSTEM  FLOV 
C EQUATION  I 79  ) FLOV 

FLOV 


181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 
203 
20  4 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 
217 
216 

219 

220 
221 
222 


1600 

X ( 

12)  = 

All  III) 

* 

VX  4 A21 

(ID  * 

VY  4 A3  1 (ID  » VZ 

FLOV 

223 

Y ( 

I?)  = 

A12  III) 

* 

VX  4 A22 

III)  * 

VY  4 A3  2 (ID  * VZ 

FLOV 

224 

Z ( 

12)  = 

A13  III) 

* 

VX  4 

A23  (ID  * 

VY  4 A33  III)  * VZ 

FLOV 

225 

1700 

CONTINUE 

FLOV 

226 

FLOV 

227 

2000 

VXPP 

= VXPP 

* 

SI  G III ) 

* 

XII) 

FLUV 

226 

VYPP 

= VYPP 

* 

SI  Gill) 

¥ 

YU) 

FLOV 

229 

VZPP 

= VZPP 

4 

SIGII1) 

¥ 

Z(l) 

FlOV 

230 

GO  TO 

2300 

FLOV 

231 

2100 

VXPP 

= VXPP 

4 

SIGII1) 

* 

(XII) 

XI 2)  ) 

FLOV 

232 

VYPP 

= VYPP 

4 

SIG  III ) 

* 

(Y(l) 

4 

YI2)  ) 

FLOV 

233 

VZPP 

= VZPP 

4- 

SI  Gill ) 

¥ 

(Z(i) 

4 

Z I 2 ) ) 

FLOV 

234 

GO  TO 

2300 

FLOV 

235 

2200 

VXPP 

= VXPP 

4 

SI G III ) 

¥ 

(XU) 

4 

XI2)  ♦ 

X (3 ) + XI  4) ) 

FLOV 

236 

VYPP 

= VYPP 

4 

si Giii) 

¥ 

(Yll) 

+ 

YC2)  4 

Y I 3)  4 Y I 4)  ) 

FLOV 

237 

VZPP 

= VZPP 

4 

SI  Gill! 

¥ 

(Zll) 

4 

Z(  2)  4 

Z (3)  4 Z(  4) ) 

FLOV 

238 

2204 

IF  ( 

NS  YM  .1 

ECU 

2 ) GO 

TO  2300 

FlOV 

239 

VXPP 

= VXPP 

- 

SI  GUI) 

¥ 

(XI5) 

4 

X ( 6 ) 4 

X (7)  4 X I 8 ) ) 

FLOV 

240 
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\/YPP  * VYPP  - SIG(Il)  * C Y ( 5)  + Y ( 6 1 ♦ Y(7I  + Y(8>> 

VZPP  = VZPP  - SIGCIi)  * ( Z ( 5 ) + Z( 6)  ♦ Z<7)  + ZI8») 

2300  CONTINUE 

VXPP  = VXPP  * R8ETA**2  <-1.0 

VYPP  = VYPP  * RBETA 

VZPP  = VZPP  * RBETA 

RETURN 

ENO 


FlOV  2 41 
FLOV  242 
FLOV  243 
FLOV  24V 
FLOV  245 
FLOV  246 
FLOV  247 
FLOV  248 


♦DECK,  FLOAIR 

SUBROUTINE  FLOAIRt  X,  Z,  ECC,  VX,  VZ,  PSI,  IFLAG) 

THIS  COOE  RETURNS  AIFFLOW  VELOCITY  (VX,  V Z)  FOR  A GIVEN  POINT 
(X,  Z)  EXTERIOR  TO  AN  ELLIPSOID  Oc  REVOLUTION  IN  AN  AIRSTREAM, 

THE  ELLIPSOID  IS  PROLATE  WITH  MAJOR  AXIS  PARALLEL  WITH  THE  FREE 
STREAM  FLOW.  FLOW  IS  TOWARO  THE  POSITIVE  X AXIS.  PSI  IS  THE 
STREAM  FUNCTION  VALUE  AT  X,Z.  ECC  IS  THE  ELLIPSOID  ECCENTRICITY. 
IF(IFLAG)10C,100 ,200 
C INITIALIZE 

100  E2  = ECC**2 

OME2  = 1.0  - E2 
TEC  = 2.0  * ECC 

CX  =-ECC/(  ALOGCd.O  ♦ ECO/Cl.O  - ECC))  - TEC/0ME2) 

CZ  = TEC*CX 
CPSI  = ECC*CX 

C COMPUTE  FLOW  VELOCITIES  AND  STREAMFU NC T ION 

200  SQRM  = SQRTUX  ■*  ECC>**2  + Z**2) 

SQRN  = SQRTUX  - ECC)**2  ♦ Z**2) 

VX  =C X* ( AL  O G ( ( SCRH  « SQRN  «•  TEC)/ 

1 * 1.0 /SQRM  - i.O/SQRN)  + 1.0 

VZ  = CZ*Z*(  1.0/SQRM  - 1. 0/SQRN) / 

COSH  = (SQRM  f S QR  N) /TEC 
COS  = (SQRM  - SQRN) /TEC 

PSI  = CPSI*(  COSH  + 0.  '5*1  COSH**2  - l.0>* 

1 ALOG((COSH  - 1 .0 ) / ( COSH  ♦ 1.0)))  * ( 1.0  - C0S**2)  - Z**2/2.fl 
RETURN 
END 


VALUE 


(SQRM  * SGRN  - TEOI/EGC 
<X**2  ♦ 7**2  ♦ SQRM*SQRN  - E2) 


FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FlOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 

FLOA 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
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♦DECK*  ARYTRJ  ARYT 

SUBROUTINE  ARYTRJ  ARYT 

ARYT 

H.  G.  NORMENT,  ATMOSPHERIC  SCIENCE  ASSOCIATES  - NOVEMBER  197 « ARYT 

ARYT 

CALLS  TRAJECT  TO  COMPUTE  TRAJECTORIES  OF  PARTICLES  TO  OR  ABOUT  ARYT 
AN  ARBITRARY  3-0 IMENSIONAL  BODY;.  TRAJECTORIES  BEGIN  AT  AN  ARRAY  ARYT 
OF  POINTS  IN  SPACE.  THE  ARRAY  POINTS,  AND  CORRESPONDING  ARYT 

TRAJECTORIES,  ARE  OEFINEC  BY  SPECIFYING  AN  INITIAL  POINT , INCREME  NT ARYT 
VALUES  IN  THE  THREE  COORDINATE  DIRECTIONS,  AND  THE  ORDER  OF  ARYT 

INCREMENTING.  INPUT  INTEGERS  M<3)  SPECIFY  THE  OROER  IN  WHICH  ARYT 

INCREMENTING  IS  OONE  - ALLOWED  VALUES  OF  M ARE  1,2,3.  FOR  EXAMPLEARYT 
SUPPOSE  MCI  ) = 2*  MC2»sl,  M(3)-3,  HEN  Y IS  INCREMENTED  FIRST,  X IS  ARYT 
INCREMENTED  SECOND  AND  Z IS  INCREMENTED  LAST.  ARYT 

IF  TRAJECTORIES  ARE  NOT  CESIRED  FROM  ALL  OF  THE  ARRAY  POINTS,  THE  ARYT 

PARAMETER  NSKIP  CAN  BE  SfT  GREATER  THAN  ZERO,  AND  AFTER  THE  FIRST  ARYT 

TRAJECTORY  ONLY  EVERY  NSKIP+i  TH  TRAJECTORY  IS  COMPUTED.  ARYT 

ALSO  REQUIRED  ARE  - (IN  ORDER  OF  X AXIS  FIRST,  Y AXIS  SECOND,  ARYT 
Z AXIS  THIRD)  - INITIAL  COORDINATE,  INCREMENT,  NUMBER  OF  INCREMENTS  ARYT 
DESIRED  (INCLUDING  THE  INITIAL  C03RDINATE  VALUE).  ARYT 

ARYT 

SR  PART  CL  IS  CALLED  TO  READ,  PROCESS  AND  PRINT  PARTICLE  DATA.  ARYT 

THIS  SR  CAN  BE  ONE  OF  SEVERAL  THAT  TREATS  WATER  DROPS  OR  ONE  OF  ARYT 
VARIOUS  TYPES  OF  ICE  CRYSTALS.  ARYT 

ARYT 

UNIT  9 IS  A SCRATCH  UNIT  USEO  FOR  TRAJECTORY  DATA  STORAGE.  ARYT 

UNIT  10  IS  USED  FOR  TRAJECTORY  DATA  OUTPUT  FOR  PLOTTING.  ARYT 

ARYT 

FLOW  DATA  PREPAREO  BY  THE  HESS-SMITH  CODE  ARE  READ  FROM  UNIT  14  ARYT 
VIA  SR  SETFLO.  ARYT 

ARYT 

ALL  COORDINATES  ANC  TIMES  ARE  NORMALIZED  (DIMENSIONLESS)  ARYT 

ARYT 

GLOSSARY  ARYT 

ACC  DIAM/ELL  - USED  TO  COMPUTE  ACCELERATION  MODULUS  ARYT 

ALPHAG  ANGLE  BETWEEN  PRCJECTION  OF  INITIAL  VELOCITY  VECTOR  IN  ARYT 

X-Y  PL-iNE  AND  X AXIS  ARYT 

ALPHAR  ANGLE  BETWEEN  PRCJECTION  OF  FINAL  VELOCITY  VECTOR  IN  X-Y  ARYT 

PLANE  AND  X AXIS  ARYT 

BET  AO  ANGLE  BETWEEN  INITIAL  VELOCITY  VECTOR  AND  ITS  PROJECTION  ARYT 

IN  THE  X-Y  PLANE  ARYT 

BETAR  ANGLE  BETWEEN  FINAL  VELOCITY  VECTOR  AND  ITS  PROJECT  I CN  ARYT 

IN  THE  X-Y  PLANE  ARYT 

0 COORDINATE  INCREMENT  ARRAY  ARYT 

DIAM  DIAMETER  OF  A WATER  DROP  DR  ICE  AGGREGATE  ARYT 

BASE  DIAMETER  FOR  A PLATE  OR  CYLINDER  (MICROMETERS)  ARYT 

OLR  BASE  OIAMETER  TO  LENGTH  (CYLINDER)  OR  THICKNESS  (PLATE)  ARYT 

RATIO  ARYT 

ELL  CHARACTERISTIC  DIMENSION  DF  THE  300Y  ( METERS  ) ARYT 

EPSI(  ) PARAMETERS  USED  TO  CONTROL  LOCAL  ERROR  IN  THE  NUMERICAL  ARYT 

INTEGRATION  (SEE  OVOQ  GLOSSARY)  ARYT 

FN  FROUDE  NUMBER  ARYT 

FNR  RECIPROCAL  OF  THE  FROUDE  MUMBER  ARYT 

HI  INITIAL  TIME  STEP  FOR  NUMERICAL  INTEGRATION  (SEE  DVOQ)  ARYT 

HMAX  MAXIMUM  TIME  STEP  (SEE  OVDQ)  ARYT 

H MIN  MINIMUM  ALLOWED  TIME  STEP  ISEE  DVOQ)  ARYT 

IPLOT  IF  TRUE,  TRAJECTORY  DATA  ARE  COPIED  TO  UNIT  10  FOR  PLOTTNS ARYT 

N NUMBER  OF  COORDINATE  INCREMENT  STEPS  ARRAY  (INCLUDING  THE  ARYT 

FIRST  COORDINATE  VALUE)  ARYT 

NPOINT  ARRAY  POINT  TALLY  ARYT 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
16 
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20 
21 
22 

23 

24 
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30 

31 

32 

33 
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37 
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42 

43 

44 

45 
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48 

49 

50 

51 

52 
5 3 

54 

55 

56 

57 

58 

59 

60 
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C 


c 


c 


NS  KIP 

NUMBER  OF  ARRAY  POINTS  SKIPPEQ  BETWEEN  TRAJECTORIES 

ARYT 

61 

PC  ) 

CURRENT  VALUES  OF  INDEPENDENT  VARIABLES  - 

ARYT 

62 

PCI)  = X 

ARYT 

63 

PC2 ) = DX/DT 

ARYT 

64 

PC  3)  = Y 

ARYT 

65 

PC  4)  = OY/OT 

ARYT 

66 

PC  5)  = Z 

ARYT 

67 

PC  6)  = OZ/OT 

ARYT 

60 

PT 

DRAG  COE  FFICIENT*A  8S  CREYN3L0S  NUMBER)  FOR  GRAVITY 

SETTLI  N3 

' ARYT 

69 

OF  PARTICLES 

ARYT 

70 

RF 

FACTOR  TO  CONVERT  VELOCITY  DIFFERENCE  TO  REYNOLDS 

NUMBER 

ARYT 

71 

RHO 

AIR  DENSITY  CKG/M**3) 

ARYT 

72 

RHOP 

PARTICLE  DENSITY  CKG/M**3) 

ARYT 

73 

TEMP 

AIR  TEMPERATURE  CDEG.  KELVIN) 

ARYT 

74 

TPRINT 

OUTPUT  TIME  INTERVAL 

ARYT 

75 

V 

AIR  SPEED  CM/SEC) 

ARYT 

76 

VIS 

AIR  VISCOSITY  CKG/CM-SEG)) 

ARYT 

77 

VPGT 

PARTICLE  SPEED  AT  TARGET  *QINT 

ARYT 

78 

VT 

GRAVITY  SETTLING  SPEED  OF  PARTICLE 

ARYT 

79 

VTGT 

AIR  SPEED  AT  TARGET  POINT 

ARYT 

30 

X 

INITIAL  COCR  CINATE  ARRAY 

ARYT 

61 

XFINAL 

X COORDINATE  OF  THE  FINAL  PLANE 

ARYT 

82 

XI3  *YI3 

,ZI3  INITIAL  COORDINATES  3ASSED  TO  TRAJECT 

ARYT 

83 

ARYT 

84 

ARYT 

85 

COMMON 

XI3,YI3,ZI3, YI3P.EPS I C3), HI, HMINI,VT,PT ,COF,FNR 

/PACT  , 

ARYT 

86 

1 RF*  REO  * 

R,XPSTAR,YPSTAR,ZPSTAR,PC6) , TPRINT , IT ,ALP HA  0 , BETAO , 

IREC, 

ARYT 

87 

2 IPLOT* I PLT*  XPLOT 160 > , YPLCTC 60) , ZPLOT C 60 ) ,ALPHAR, BETAR, 

YPSTARP, 

ARYT 

68 

3ZPSTARP 

,XI3P,ZI3P,XP,YPfZP, XWP, XP®*ACC»DIR,JLIM 

ARYT 

89 

DIMENSION  H0LLCI8),  XC3),  OC3),  N(3J,  MC3),  SXC3),  SD(3), 

NSC3)  , 

ARYT 

90 

1 SXI (3) 

, SEQC6) 

ARYT 

91 

LOGICAL 

IPLOT 

ARYT 

92 

DATA  SEQ/  4HFIRS  * 4HT  , 4HSEC0,  4HND  , 4HTHIR,  4HD 

/ 

ARYT 

93 

DATA  STAR,  BLNK  / 3H  * , 3H  / , PI/3. 141  69.26536/ 

ARYT 

94 

JL I M=  0 

ARYT 

95 

NFIN=0 

ARYT 

96 

READ  AND  WRITE  DATA 

ARYT 

97 

READ  C 5 

,2600)  KASE 

ARYT 

98 

CALL  SETFLOCKASE) 

ARYT 

99 

READC5* 

lOOOHOLL,  IPLOT 

ARYT 

ICO 

READ (5, 

1100)V,  ELL,  RHO,  TEMP,  XFINAL 

ARYT 

101 

REA0C5* 

1100)  TPRINT,  HI,  HMINI,  EPSI 

ARYT 

102 

SET  DEFAULT  VALUES  FOR  NUMERICAL  INTEGRATION  ANO  PRINT 

PARAMET  ERS 

ARYT 

1C3 

IF C TPRINT  .EQ.  0.0)  TPRINT^O.i 

ARYT 

104 

IF CHI  . 

EQ.  0.3)  HI  = C • 1 

ARYT 

105 

IFCHMINI  .EQ.  0.  fl)  HMINI-.0.  005 

ARYT 

106 

IF(EPSICi)  .EQ.  O.C)  EFSI  Cl)  = l.  0E»5 

ARYT 

107 

IFCEPSIC2)  .EQ.  0.0  E FSIC2 )=i. QE"5 

* 

ARYT 

108 

IFCEPSIC3)  .EQ.  0.0  EPSI  ( 3 ) =1.  OE-5 

ARYT 

109 

VIS  = 145.8E-8  * TEMP**  C3.0/2.(J)/C110.4  + TEMP) 

ARYT 

110 

WRITE  (6 

,1200)  HOLL 

ARYT 

ill 

WRITE (6 

,1300)  V,  ELL,  RHC,  TEMP,  VIS 

ARYT 

112 

WRITE  C6 

,1400)  HI, HMINI, TFRINT, XFINAL 

ARYT 

113 

WRITE (6 

,1500)  EPSI  C 1 ) , EPSIC2),  E?SI(3) 

. 

ARYT 

114 

INITIALIZE 

ARYT 

115 

FN  = V**2/C9.8*ELL) 

ARYT 

116 

FNR  = 1 

• 0/FN 

ARYT 

117 

IF  C.NOT.  IPLOT)  GO  TO  5 

ARYT 

116 

REWIND 

10 

ARYT 

119 

WRITE  16,1800) 

ARYT 

120 

162 
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C ENTER  PARTICLE  LOOP 

5 CALL  PARTCL(V,ELL,RHC,VIS,TEMP,BIAM,GLR,RHOP,VT*RF ,PT, ACC , NFIN) 
IF(NFIN  .EQ,  0)  GO  TO  6 

IF  ( .NOT.  I PLOT ) RETURN 
ENDFILE  10 
REWIND  10 
RETURN 

6 COF  = PT*VT*FN 
R = RF  * VT 

READ  ( 5 , 810  0 ) M»  NSKIP 

IF(M(1)+M(  2>*M(3)  ,EQ.  6)  GC  TO  ID 

WRITE (6,8200) 

STOP 

10  DO  20  L = i»  3 

20  READ  C 5,800  0)  XCL),  D(L),  N(L) 

WRITE (6,2000)  Xfi),  0(11,  NCI) 

WRITE  (6,300  0)  X(2),  0(2),  N(2) 

WRITE  (6,40  00)  X C 3)  , 0(3),  N(3) 

WRITE  (6  ,9000) 

WRITE (6,50  0 0)  SE G (2*M ( 1) -1) , SEG(2*M(i)) 

WRITE  (6,60  00)  SEQ(2*M(  2)-i)  , SEG<2*MC2i  ) 

WRITE (6  ,7000)  SEQ(2*M(3 ) -1) , SEQ(2*M(3) > 

DO  40  L=i»  3 
LL=4-M(L> 

SD ( LL) =0 (L) 

SXI(LL)sXCL)-D-L) 

40  NS(LL)=N(L) 

N1=NS (1 5 
N2=NS( 2 ) 

N3=  NS ( 3 ) 

NPOINT=0 

SX(l)sSXICl) 

DO  500  1*1, N1 
SX(1)=SX(1)+SD(1) 

SX(  2)  =SXI(  2) 

DO  500  J=1,N2 
SX(2)=SX(2) +S  D ( 2 ) 

SX ( 3) =S  XI ( 3 ) 

DO  50 0 K=l,  N3 
SX(3)=SX(3) ^SDIS) 

NPO INT=NPOI NT+1 

IF ( MOD ( NPOI NT , NSKIP+l)  .N£.  1)  GO  TO  500 
DO  50  L=l»  3 
LL=4”M ( L) 

50  X (L) =SX  (LL) 

C INITIALIZE  FOR  TRAJECT 

XI3=X (1) 

YI3=X(2) 

ZI3=X ( 3) 

XPSTAR=XFI NAL 
XPP  = X FINAL 
ALPHAR=0.0 
BET  AR=0  .0 
YP  = 0.0 
ZP  = 0.0 

WRITE (6 ,1600)  XI 3,  YI3,  ZI3 
CALL  TRAJECT 

C PRINT  TRAJECTORY  OUTPUT 

REWINO  9 
WRITE  (6,9700) 


ARYT 

121 

ARYT 
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ARYT 

123 

ARYT 
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ARYT 
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ARYT 
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ARYT 
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ARYT 

128 

ARYT 
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ARYT 

130 

ARYT 

131 

ARYT 

132 

ARYT 

133 

ARYT 

134 

ARYT 

135 

ARYT 

136 

ARYT 

137 

ARYT 

138 

ARYT 

139 

ARYT 

1 AO 

ARYT 

141 

ARYT 

142 

ARYT 

143 

ARYT 

144 

ARYT 

145 

ARYT 

146 

ARYT 

147 

ARYT 

148 

ARYT 

149 

ARYT 

150 

ARYT 

1 11 

ARYT 

152 

ARYT 

153 

ARYT 

154 

ARYT 

155 

ARYT 

156 

ARYT 

157 

ARYT 

158 

ARYT 

159 

ARYT 

160 

ARYT 

161 

ARYT 

162 

ARYT 

163 

ARYT 

164 

ARYT 

165 

ARYT 

1 66 

ARYT 

167 

ARYT 

168 

ARYT 

169 

ARYT 

170 

ARYT 

171 

ARYT 

172 

ARYT 

173 

ARYT 

174 

ARYT 

175 

ARYT 

176 

ARYT 

177 

ARYT 

178 

ARYT 

179 

ARYT 

180 

163 


DO  494  IWRITE  = i.IREC 

READ  (9)NEVAL,KSTEP,  T,  Pll),  PI3),  P<5>,  P(2)  ♦ P(4)»  P(6),VX, 
2 VZ,  H,  R* AC 

WRITE  (6*8600)  KSTEP*  T,  Ml),  PI  3),  PI5),  PC2I  , PI4),  P(6),VX, 
2 VZ,  H,  R,  AC,  NEVAL 
494  CONTINUE 

COMPUTE  INITIAL  AND  FINAL  TRAJECTORY  ANGLES 
CALL  FLOVEL  IXI3,  YI3.ZI3,  VX,  VY,VZ,HI,  INBOOY) 

ALPHAC  = AT  AN  I VY/VX)  * 1(0. /PI 

8ETA0  = AT  AN!  I VZ-VT)  /SORT  (VX**2  + VY**2))  * 180. /PI 
ALPHAR  = ATAN(P(4)/P(2))*180./PI 
BETAR  = AT  AN  IP  (6 1/SS.RT  IP  (2 ) **2+P(4 ) **2)  ) *180  ./PI 
WRITE  (6,8800)  ALPHA  5,  BETAO,  ALP4AR,  BETAR  ' 

COMPUTE  ANO  PRINT  DRAG  VECTOR  AT  FINAL  POINT 
CALL  FLOVEL  CPUS,  PI3),  PI5),  VX,  VY , VZ,  HI,  INBOCY) 

SORT  I IVX  - P 1 2) )**  2 ♦ IVY  - P(4))**2  ♦ IVZ  - P(6)>**2  ) 

= (VX  - P(2))/0V 
= IVY  - P ( 4 )) /O  V 
= (VZ  - PI6D/0V 
ATAN ( COSB/COSA  ) * 57.29577951 


ov  = 

COSA 
COSB 
COSC 
ANG  = 


ARYT 
V Y,  ARYT 
ARYT 
VY,  ARYT 
ARYT 
ARYT 
ARYT 
ARYT 
ARYT 
ARYT 
ARYT 
ARYT 
ARYT 
ARYT 
ARYT 
ARYT 
ARYT 
ARYT 
ARYT 
ARYT 
ARYT 
ARYT 
ARYT 
ARYT 
ARYT 
ARYT 


18A4) 

~/7X , 10HAIR 


SPEED=1PE13.6, 


ARYT 

ARYT 

ARYT 

ARYT 

ARYT 

ARYT 


CNG  = ACOSI  COSC  ) * 57.29577951 
WRITE!  6,  3100  ) COSA,  CCSB,  COSC,  ANG,  CNG 
) COMPUTE  ANO  PRINT  AIR  ANO  PARTICLE  SPEEDS  AT  FINAL  POINT 

VA  = SQRT I VX** 2 + VY **2  ♦ VZ** 2 ) 

VP  = SQRT  (P(  2)  **2  * P(4)  **?!  + PI6)**2) 

WRI TE  ( 6 , 3200)  VA,  VP 
IF  (IPLOT)  WRITE  (10)  I FLT » I XPLOTI L) , YFLOTIL) , ZPLOT (L)  ,L= 1 ,IPLT) ARYT 
i ARYT 

500  CONTINUE 
GO  TO  5 

1000  FORMAT ( 18A4,  7X,L1) 

1100  FORMAT  (8F1Q.  5) 

1200  FORMAT ( 1H1, 5X,  15HARYTRJ  RUN  ID  -/  8X, 

1 300  FORMAT  ( 1H0  , 5X,  21HPH YSICAL  INPUT  DATA 

1 3X , 37HCHARACTERIST IC  DIMENSION  OF  THE  B0DY=1PE13 . 6/  7X,35HCENSITARYT 

2 Y AND  TEMPERATURE  OF  AIR  ARE  1PE13.6,  5H  AND  1PE13.6,20H  AIR  V IS  ARYT 

3COSITY  IS  1PE13. 6)  ARYT 

1400  FORMAT ( 1H0  , 5X,  2 SHNUMERICAL  INTEGRATOR  INPUTS  -/  7X,  10HTIME  STE  ARYT 
1P  = 1PE11 .4,  3X»  18HMINIMUM  TIME  STEP=1PE11. 4,  3X,  20HPRINT  TIME  I NT  ARYT 
2ERVAL=1PE11.4,  3X,  24HX  COORD.  OF  FINAL  RLANE=1PE11.4)  ARYT 

1500  FORMAT!  1H0  , 6X,  33HLOCAL  ERROR  TOLERANCES  FOR  OVDQ  -,  3 ( IP  E 14 .4 ) ) ARYT 
1600  FORMAT  (//1H0,  38H*  ******  INITIAL  COORDINATES  X=lPE12. 5,  ARYT 

2 3X , 2HY=1PE12.5,  3X,  2HZ=1PE12.5)  ARYT 

1800  FORMAT!  ///6X,  52HTRAJECT0RY  DATA  ARE  WRITTEN  ON  UNIT  10  FOR  PLOTV ARYT 
1TING//)  ARYT 

2000  FORMAT!  10X,  10HINITIAL  X=1PE11.4,  12H  INCREMENT=1PE11. 4,  ARYT 

1 19H  NUMBER  OF  VALUES=I4)  ARYT 

2600  FORMAT  (A4)  ARYT 

3000  FORMAT!  10X,  10HINITIAL  Y=1PE11.4,  12H  INCREM,ENT  = 1PE11. 4,  ARYT 

1 19 H NUMBER  OF  VALUES=I4)  ARYT 

3100  FORMAT  !/5X,  29HDRAG  VECTOR  AT  FINAL  POINT  -/  6X  , 18HDIRECT I CN  COS  ARYT 
1INES-3I1PE13.4) , 3X,  19HANGLES  A AND  GAHMA-2 (1PE13 • 4) ) ARYT 

3200  FORMAT ( 5X»  47HAIR  ANO  PARTICLE  SPEEDS  AT  THE  FINAL  POINT  ARE2 (1  PE ARYT 
115.5))  ARYT 

4000  FORMAT!  10X,  10HINIT I AL  Z=1PE11.4,  12H  INCREMENT=1PE11 . 4,  ARYT 

1 19H  NUMBER  OF  VALUES=I4)  ARYT 

5 C 00  FORMAT!  10X,  2 2HX  AXIS  IS  INCREMENTED  2A4)  ARYT 

6000  FORMAT!  10X,  22HY  AXIS  IS  INCREMENTED  2A4)  ARYT 

7000  FORMAT!  10X,  22HZ  AXIS  IS  INCREMENTED  2A4)  ARYT 

8(100  FORMAT!  2F10.0,  14)  ARYT 
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201 
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OOCTO  0 00  0 00  00  0000000  0 0000000000000000000000 


8100  FORMAT  ( 414}  ARYT  ,241 

8200  FORMAT  I///10X*  4 7H  INCREMENTING  SEQUENCE  IS  ERRONIOUS.  TRY  AGAIN.)  ARYT  242 

8600  FORMAT  (16,  10I1X  , 1PE 11.  4)/10X,  2HH=1PE11.4*  4H  R=1PE11.4,  5F  AC=ARYT 

11PE11.4,  8H  NEVAL=I6)  ARYT 

8700  FORMAT  ( /6H0KSTEP , 7X , 1HT  • 11X,  1HX,  11X,  1HY,  HXj  1HZ,  IflX,  ARYT 

1 3HVPX,  9X,  3HVPV,  9X,  3HVPZ,  10X,  2HVX,  10X,  2HVY,  10X,  2HV2)  ARYT 

8800  FORMAT ( /20X,  47HINITIAL  ANO  FINAL  TRAJECTORY  ANGLES  (DEGREES)  -ARYT 

1/  22X,  7HALPHA0-F1Q  .4,  5X,  6HBETA 0*F10 . 4/  22X,  7HALPHARsF10.4,  5XARYT 


2,  6HBETAR=F10.4) 
9000  FORMAT ( 1H0 ) 

END 


ARYT 

ARYT 

ARYT 


243 

244 
2 45 

246 

247 

248 

249 

250 

251 


*DECK»TANTRA 

SU3R0UTINE  TANTRA 

H.  G.  NORNENT,  ATMOSPHERIC  SCIENCE  ASSOCIATES  - NOVEMBER  1979 

DETERMINES  TANGENT  PARTICLE  TRAJECTORIES  TO  AN  ARBITRARY 
3 -DIMENSIONAL  BOOY. 

CALLS  TRAJECT  TO  COMPUTE  TRAJECTORIES  OF  PARTICLES  TO  OR  ABOUT 
AN  ARBITRARY  3-0IMENSI0NAL  BODY.  TRAJECTORIES  BEGIN  AT  POINTS 
ON  A CURVE  AS  SPECIFIED  eY  SR.  STRPNT , AND  THE  INITIAL  POINTS  l 
STEPPEO  TOWARD  THE  B COY  USING  FIRST  A COARSE  STEP  SIZE  UNTIL 
IMPACTION  OCCURS.  THEN  INITIAL  COORDINATES  ARE  BACKEO-UP  ONE 
STEP,  ANO  A FINE  STEP  SIZE  IS  USED  UNTIL  IMPACTION  REOCCURS. 

THE  TANGENT  TRAJECTORY  IS  TAKEN  TD  BE  THE  ONE  CALCULATED 
IMMEDIATELY  PRIOR  TO  THE  SECOND  IMPACTION.  POINTS  ON  THE  TANGI 
TRAJECTORY  ONLY  ARE  STORED  FOR  PLOTTING  LATER  IF  DESIRED. 

ALL  TRAJECTORIES  A FE  PRINTED. 

SR  PARTCL  IS  CALLED  TO  READ,  PROCESS  AND  PRINT  PARTICLE  DATA. 
THIS  SR  CAN  BE  ONE  OF  SEVERAL  THAT  TREATS  WATER  DROPS  OR  ONE  OF 
VARIOUS  TYPES  OF  ICE  CRYSTALS. 

UNIT  9 IS  A SCRATCH  UNIT  USEO  FOR  TRAJECTORY  DATA  STORAGE. 

UNIT  10  IS  USED  FOR  TRAJECTORY  DATA  OUTPUT  FOR  PLOTTING. 


FLOW  DATA  PREPARED  BY  THE  HESS-3MITH  CODE  ARE  READ 
VIA  SR  SETFLO. 


FROM  UNIT  14 


ALL  COORDINATES  AN C TIMES  ARE  NORMALIZED  (OIME NSIONLESSI 


GLOSSARY 
ACC 

ALPHAR 


OI AM/ELL  - USED  TO  COMPUTE  ACCELERATION  MODULUS 
ANGLE  BETWEEN  PROJECTION  OF  FINAL  VELOCITY  VECTOR  IN  X-Y 
PLANE  AND  X AXIS 

BETAR  ANGLE  BETWEEN  FINAL  VELOCITY  VECTOR  ANO  ITS  PROJECT  I CN 
IN  THE  X-Y  PLANE 

OCORS  COARSE  VALUE  OF  CEL  USEO  FOR  ROUGH  DETERMINATION  OF 
TANGENT  TRAJECTORY 

DEL  CURRENT  VALUE  OF  STEP  SIZE  USEO  IN  INCREMENTING  INITIAL 

COORDINATES  TOWARD  THE  BODY 

OFINE  FINE  VALUE  OF  DEL  USEO  FOR  PRECISE  DETERMINATION  OF 
TANGENT  TRAJECTORY 

OIAM  DIAMETER  OF  A WATER  OROP  OR  ICE  AGGREGATE 


TANT 

1 

TANT 

2 

TANT 

3 

TANT 

4 

TANT 

5 

TANT 

6 

TANT 

7 

TANT 

8 

TANT 

9 

TANT 

10 

•TANT 

,11 

TANT 

12 

TANT 

13 

TANT 

14 

TANT 

15 

1TANT 

16 

TANT 

17 

TANT 

18 

TANT 

19 

TANT 

20 

TANT 

21 

TANT 

22 

TANT 

23 

TANT 

24 

TANT 

25 

TANT 

26 

TANT 

27 

TANT 

28 

TANT 

29 

TANT 

30 

TANT 

31 

TANT 

32 

-TANT. 

33 

TANT 

34 

TANT 

35 

TANT 

36 

TANT 

37 

TANT 

38 

TANT 

39 

TANT 

40 

TANT 

41 

TANT 

42 

TANT 

43 

TANT 

44 
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c 


c 


FOR  A PLATE  OR  C YLINOER  (MICROMETERS) 

TO  LENGTH  (CYLINDER)  OR  THICKNESS  (PLATE) 


METERS 
IN  THE 


) 

NUMERICAL 


(SEE  OVDC) 


1C  FOR 


OCCUREO. 


P(i> 
P ( 2 ) 
P(  3) 
PC4) 
PI  5) 
P(  6) 


NUM8ER 


BASE  DIAMETER 
OLR  BASE  OIAMETER 

RATIO 

ELL  CHARACTERISTIC  DIMENSION  OF  THE  BOOY  C 

EPSI ( ) PARAMETERS  USED  TO  CONTROL  LOCAL  ERROR 
INTEGRATION  CSEE  OVDQ  GLOSSARY) 

FN  FROUOE  NUMBER 

FNR  RECIPROCAL  OF  THE  FROUOE  MUMBER 

HI  INITIAL  TIME  STEP  FOR  NUMERICAL  INTEGRATION 

HMAX  MAXIMUM  TIME  STEP  (SEE  OVDQ) 

HMIN  MINIMUM  ALLOWED  TIME  STEP  (SEE  D\/OQ) 

I PLOT  IF  TRUE,  TRAJECTORY  DATA  ARE  COPIED  TO  UNIT 

IT  WHEN  RETURNED  FR CM  TRAJECT 

WITH  A VALUE  OF  ZERO,  INDICATES  IMPACTION  HAS 
KT  TRAJECTORY  TALLY 

P(  ) CURRENT  VALUES  OF  INDEPENDENT  VARIABLES  - 

X 

OX/DT 
Y 

OY  vOT 
Z 

DZ/DT 

PT  ORAG  COE  FFICIENT*A8S  (REYNOLDS  NUMBER)  FOR  GRAVITY 

OF  PARTICLES 

RF  FACTOR  TO  CONVERT  VELOCITY  DIFFERENCE  TO*  REYNOLDS 

RHO  AIR  DENSITY  (KG/M** 3) 

RHOP  PARTICLE  DENSITY  (KG/M**3> 

TEMP  AIR  TEMPERATURE  (DEG,  KELVIN) 

TPRINT  OUTPUT  TIME  INTERVAL 
V AIR  SPEED  (M/SEC) 

VIS  AIR  VISCOSITY  (KG/IM-SECM 

VT  GRAVITY  SETTLING  SPEED  OF  PARTICLE  - 

XFINAL  X COORDINATE  OF  THE  FINAL  PLANE 

XI3  » YI3  *ZI3  INITIAL  COORDINATES  PASSED  TO  TRAJECT 

COMMON  XI3*YI3»ZI3,YI3P»EPSI  (3 ) ,HI  , H MINI , VT  ,PT  ,COF , FNR  ,P  ACT  , 
iRF , REO ♦ R, XPSTAR, YPST  AR, ZFST  AR*  P(6)  , TPRI NT , IT ,ALP HA  C, BETA  0 , IREC , 
2 I PLOT , I PL T»  XPLOT (60)  ,YPLCT( 60 ) , ZPLOT (60 ) , ALPHA R, BETAR, YPSTARF, 
3ZPSTARP,XI3P,ZI3F,XP,YP,ZP,  XWP,  XP3 ,ACC ,DLR, JLIM 
DIMENSION  HOLL  ( 18) 

LOGICAL  IPLOT 

DATA  SIGNAL/999999./,  KTLIM/  25/ 

JLIM=G 
NFI N=0 

READ  AND  WRITE  DATA 

READ  (5,2600)  KASE 
CALL  SETFLO (KASE ) 

READ(5, 1000) HOLL,  IPLOT 

RE ADC  5, 119  0) V,  ELL,  RHO,  TEMP,  XFINAL 
READ (5, 1100)  TPRINT,  H I,  HMlNI , EPS! 

SET  DEFAULT  VALUES  FOR  NUMERICAL  INTEGRATION  ANO  PRINT  P ARAMETEI 

IF (TPRINT  .EQ.  0.0)  TPRIKT=0.1 

IF(  HI  .EQ.  0.0)  HI=0.1 

IF  ( HMIN  I .EQ.  0.  0)  HHINI=fl.005 

IF  ( EPSI  (1)  .EQ.  0.0  EPSKi  )=1.  QE-5 

IF (EPSI  (2)  .EQ.  0.0)  EPSI (2 )-l. 0E-5 

IF (EPSI (3)  .EQ.  0. E)  EPSI (3 )-l. OE-5 

VIS  = 145.8E-8  * T EMP** (3.0/2.0)/(110*4  * TEMP) 

WRITE (6,1200)  HOLL 

WRI TE (6,1300)  V,  ELL,  RHC,  TEMP,  VIS 


TANT 

45 

TANT 

46 

TANT 

47 

TANT 

48 

TANT 

49 

TANT 

50 

TANT 

51 

TANT 

52 

TANT 

53 

TANT 

54 

TANT 

55 

NS  TANT 

56 

TANT 

57 

TANT 

58 

TANT 

59 

TANT 

60 

TANT 

61 

TANT 

62 

TANT 

63 

TANT 

64 

TANT 

65 

TANT 

66 

NGTANT 

67 

TANT 

68 

TANT 

69 

TANT 

70 

TANT 

71 

TANT 

72 

TANT 

73 

TANT 

74 

TANT 

75 

TANT 

76 

TANT 

77 

TANT 

78 

TANT 

79 

TANT 

80 

TANT 

81 

TANT 

82 

TANT 

83 

TANT 

84 

TANT 

85 

TANT 

86 

TANT 

67 

TANT 

88 

TANT 

89 

TANT 

90 

TANT 

91 

TANT 

92 

TANT 

93 

TANT 

94 

S TANT 

95 

TANT 

96 

TANT 

97 

TANT 

98 

TANT 

99 

TANT 

100 

TANT 

101 

TANT 

102 

TANT 

103 

TANT 

104 
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10 


20 


30 


40 


50 


WRITE  (6, 1400*  HI,HMINI,TFRINT,XFIN|AL 

TANT 

105 

WRI TE  ( 6 » 150  0)  EPSItl),  EPSK2),  EPSIC3) 

TANT 

106 

INITIALIZE 

TANT 

1Q7 

FN  = \l**2/  (9»8*£LL) 

TANT 

108 

FNR  = l.O/FN 

TANT 

109 

IF  (.NOT.  IPLOT)  GO  TO  5 

TANT 

110 

REWIND  10 

TANT 

111 

WRITE  (6,18001 

TANT 

112 

ENTER  PARTICLE  LOOP 

TANT 

113 

CALL  PARTCL(V, ELL »RHC, VIS, TEMP, OIAM 

»DLR, 

RHOP ,VT, RF ,PT 

, ACC, NFIN) 

TANT 

114 

IF( NFIN  .EQ.  01  GO  TC  6 

TANT 

115 

IF ( .NOT.  IPLOT)  RETURN 

TANT 

116 

ENDFILE  10 

TANT 

117 

REWIND  10 

TANT 

118 

RETURN 

TANT 

119 

COF  = PT*VT*FN 

TANT 

120 

R = RF  * VT 

TANT 

121 

MFIN=0 

TANT 

122 

SET  INITIAL  COOROI KATES 

TANT 

123 

DFINE=SIGNAL 

TANT 

124 

IT=1 

TANT 

125 

KT=  3 

TANT 

126 

CALL  STRPNT (XI3,  YI3,  ZI3,  DEL,  DCORS,  OFINE,  fcFIN) 

TANT 

127 

IF ( MFIN  .GT.  0 ) GO  TC  5 

TANT 

128 

KT=KT  + 1 

TANT 

129 

IF  ( KT  .GT.  KTLIM)  GO  TO  60 

TANT 

130 

XPSTAR=XFINAL 

TANT 

131 

XPP  = XFINAL 

TANT 

132 

ALPHA R=  0.0 

TANT 

133 

BET  AR=  0.0 

TANT 

134 

YP  = 0.0 

TANT 

135 

ZP  = 0.0 

TANT 

136 

WRI TE(6 ,1600)  XI 3 , YI3,  ZI3,  KT 

TANT 

137 

CALL  TRAJECT 

TANT 

138 

PRINT  TRAJECTORY  OUTPUT 

TANT 

i 39 

REWIND  S 

TANT 

140 

WRITE  (6,8700) 

TANT 

141 

00  30  IWRITE  = 1, IREC 

TANT 

142 

READ  ( 9 ) NE VAL , KSTEP,  T,  P(l),  P(3), 

P ( 5 ) 

, F (2)  , P(4)  , 

F ( 6)  , V/  X,  VY, 

TANT 

143 

V Z,  H,  R, AC 

TANT 

144 

WRITE (6,8600)  KSTEP,  T,  P(l),  PC3), 

P(  5) 

, F ( 2) » P ( 4)  , 

P(  6)  , VX,  VY, 

TANT 

145 

V Z,  H,  R,  AC,  NEVAL 

TANT 

146 

CONTINUE 

TANT 

147 

CHECK  FOR  IMPACTION  AND  ADJUST  DEL 

IF  NECESSARY 

TANT 

148 

IF ( IT  « LE.  0)  GO  TO  40 

TANT 

149 

IF ( DEL  . EQ.  -DFINE)  GO  TO  50 

TANT 

150 

IF ( DEL  .NE.  -DCORS)  GO  TO  20 

TANT 

151 

OEL=DFI NE 

TANT 

152 

WRITE (6  ,3000) 

TANT 

153 

GO  TO  20 

TANT 

154 

IMPACTION  HAS  OCCURED 

TANT 

155 

IT  = 1 

TANT 

156 

IF (DEL  .EQ.  -DCORS)  GO  TO  20 

TANT 

157 

IF ( DEL  .EQ.  DFINE)  W FITE ( 6,4000 ) 

TANT 

158 

KT  = KT-2 

TANT 

159 

DEL  =-  DEL 

TANT 

160 

GO  TO  20 

TANT 

161 

IF(  .NOT.  IPLOT)  GO  TO  10 

TANT 

162 

IF  (IPLOT)  WRITE  (10)  IFLT,  (XPLOT ( L) , YFLCT(L) » ZPLOT(L) ,L=i  ,1 FLT) TANT 

163 

GO  TO  10 

TANT 

164 

167 


60  WRITE (6*2900)  ITLIH  TANT 

GO  TO  10  TANT 

C TANT 

1000  FORMAT 1 18A4*  7X,L1)  TANT 

1100  FORMAT (8F10. 5)  TANT 


1200  FORMAT C 1H1,  5X,  32HT ANGENT  TRAJECTORY  CODE  RUN  ID  -/  8X,  18  A4)  TANT 
1300  FORMAT (1H0*  5X,  21HPWYSICAL  INPUT  DATA  -/7X.10HAIR  SPEE0*1PE 13. 6 , TANT 

1 3X,  37WCH ARACTERISTIC  CIMENSION  OF  THE  60DY=1PE 13 . 6/  7X.35H0ENSITTANT 

2 Y ANO  TEMPERATURE  OF  AIR  ARE  1PE13.6,  5H  AND  !PEi3.6,20H  AIR  VIS  TANT 


3C0SITY  IS  1PE13.6)  TANT 

1400  FORMAT  C 1H0,  5X,  2 EH  NUMERICAL  INTEGRATOR  INPUTS  -/  7X,  10H  TIME  STETANT 
1P=1PE11.4,  3X,  18HMINIMUM  TIME  $TEP  = iPEll. 4*  3K,  20HPRINT  TIME  INTTANT 
2ERVAL=1PE11.4,  3X,  24HX  COORO.  OF  FINAL  FLANE=1PE11.  4)  ' TANT 

1500  FORMAT < 1H0  * 6X,  33HL0CAL  ERROR  TOLERANCES  FOR  D VDQ  3 < 1PE14.4  > ) TANT 
1600  FORMAT ( //1H0»  38H*  * * * INITIAL  COORDINATES  X=1PE12.5*  TANT 

1 3X,  2HY=1PE12.5,  3X  , 2HZ=iPE12.5»  3X,  21HF0R  TRAJECTORY  NUMBER*  TANT 

2 14)  TANT 

1800  FORMAT ( ///6X,  51H  TRAJECTORY  DATA  ARE  WRITTEN  ON  UNIT  10  FOR  PLQTTTANT 

1ING//)  TANT 

20QO  FORMAT  ( ///5X,  14,  66H  TRAJECTORIES  HAVE  BEEN  COMPUTED.  GIVE  UP  ATANT 
1ND  TRY  THE  NEXT  CASE.//)  TANT 

2600  FORMAT  (A4)  TANT 

3000  FORMAT  ( //128HG*  *****-******+♦***********  *TANT 

1 SWITCH  TO  FINE  STEPSIZE  ********************  *TANT 

2 * * * * */)  TANT 

8 600  FORMAT  ( 16,  10  C1X  ,1PE  11.  4) /10X,  24H=iP£li.4,4H  R=1PE11.4,  5H  AC=  T ANT 

11PE11.4,  8H  NEVAL=I6)  TANT 

8 700  FORMAT  C /6H  OKSTEP , 7X , 1HT,  11X,  1HX,  11X,  1HY,  11X,  1HZ,  lflX,  TANT 

1 3HVPX,  9X » 3HVPY,  9X,  3HVPZ,  10X,  2HV X,  lflX,  2HVY,  10X,  2HVZ)  TANT 

4000  FORMAT  C ///  129H  ************************  * T A NT 
1 TANGENT  TRAJECTORY  IS  AS  FOLLOWS  ****************  TANT 

Z*  *****  *f)  TANT 

END  TANT 
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STRPNTC  X,  Y»  Z,  0,  DCORS,  OFINE,  M) 

H.  G.  NORMENT,  ATMOSFHERIC  SCIENCE  ASSOCIATES  - OECEMBER  197  < 

CALLED  BY  TANTRA  TC  CEFINE  TRAJECTORY  STARTING  COORDINATES  FOR 
DETERMINATION  OF  TANGENT  TRAJECTORIES  OF  PARTICLES  TO  A THREE- 
DIMENSIONAL  BODY,  t THIS  VERSION  STARTS  ALL  TRAJECTORIES  ON  A 
POINTS  ARE  STEPPED  ALONG  THE  LINE  TOWARD  THE  BODY  USING 
FIRST  A COARSE  STEP  SIZE,  AND  AFTER  IMPACTION  AND  BACK-UP  A FINE 
STEP  SIZE  UNTIL  IMPACTION  REOCCURS* 


♦DECK, STRPNT 

SUBROUTINE 
C 
C 
C 
C 
C 
C 
C 

c 

C 

c 

C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


GLOSSARY 

COS  A, CO SB, COS  G 


DIRECTION  COSINES  OF  THE  STARTING  POINT  LINE 


DCORS 
OFINE 

X, Y,Z 

XI,  Yl,Zi 


CURRENT  VALUE  OF  STEP  SIZE  USED  IN  INCREMENTING  INITIAL 
COORDINATES  TOW A TD  THE  BOfBY 

COARSE  VALUE  OF  □ USEO'-OR  ROUGH  DETERMINATION  OF 
TANGENT  TRAJECTORY 

FINE  VALUE  OF  0 USED  FOR  PRECISE  DETERMINATION  OF 
TANGENT  TRAJECTORY 
STARTING  COORDINATES 

POINT  USED,  ALONG  WITH  FIRST  STARTING  POINT,  TO  DEFINE 
THE  STARTING  POINT  LINE 


ARE  FINIS HEO 


TO  100 


DATA  SIGNAL/999999./ 

IF(OFINE  *LT.  SIGNAL)  GO  TO  200 

COPY  IN  STEP  SIZE  INCREMENTS  AND  INITIALIZE  FOR  A NEW  TANGENT  LOCATION 
RE  AO  (5,  110  0)  DCORS,  OFINE 
CHECK  IF  TRAJECTORIES  FOR  THIS  PARTICLE  SIZE 
M=0 

IF ( A3S ( DCORS)  ♦ ABSCDFINE)  *NE.  0.0)  GO 
M=1 

RETURN 

COPY  IN  A PAIR  OF  POINT  COORDINATES  TO  DEFINE  THE  STARTING  POINT  LINE. 

C THE  FIRST  COORDINATES  SPECIFY  THE  START  POINT  FOR  THE  FIRST 

C TRAJECTORY,  AND  THE  SECOND  COORDINATES  ARE  FOR  ANY  POINT  ON  THE 

C LINE  WHICH  IS  CLOSER  TOWARD  THE  B3DY. 

100  REACTS, 1100 ) X,  Y,  Z,  XI,  Yl,  Z1 
COMPUTE  DIRECTION  COSINES  OF  THE  STARTING  POINT  LINE 
R = SQRTUX1-X)  **2  + (Yl-Y)**2  ♦ (Zl-Z)**2) 

COSA  = «X1-X)/R 
COSB  = (Yi— Y)/R 
COSG  = (Zl-Z)/R 
0 = DCORS 

WRITE  4 6,1000)  X,  Y»  Z«  XI,  Yl,  Zi 
WRITE  f 6 ,1200) 

WRITE  *6  ,1300) 

RETURN 

COMPUTE  NEXT  SET  OF  STARTING  COORDINATES 
200  X = X + D*COS A 

Y = Y + D*COSB 

Z = Z * 0*C0SG 

RETURN 

1000  FORMAT  C/////5X,8 9HTRA JECTORIES  ARE  TO  BEGIN 
1Y  THE  POINTS  CX1,Y1,Z1,)  ANO  (X2,Y2,Z2)  -/ 

2 13H  ) AND  4 , 341PE35.5),  2H  )) 

1100  FORMAT ( 8F10 .0 ) 

1200  FORMAT ( 5X»  60HWITH  DIRECTION  COSINES  - {CO$ (ALPHA ), COS ( BETA ), COS  4 1 
1 MMA  ) ) - 3I1PE15.5)/) 

1 300  FORMATt  5X  , 49HSTARTING  POINT  INCREMENTS  ARE  - COARSE  INCREMENTS 


Z®  XI,  Yl, 
COSA,  COSB,  COSG 
DCORS,  OFINE 


ALONG  A LINE  DEFINED 
9X,2HC  , 3 (1PE1 5. 5)  , 


STRP 

1 

STRP 

2 

STRP 

3 

STRP 
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STRP 

6 

STRP 

7 

STRP 

6 

STRP 

9 

STRP 

10 

STRP 

11 

STRP 

12 

STRP 

13 

STRP 

14 

STRP 

15 

STRP 

16 

STRP 

17 

STRP 

18 

STRP 

19 

STRP 

20 

STRP 

21 

STRP 

22 

STRP 

23 

STRP 

24 

STRP 

25 

STRP 

26 

STRP 

27 

STRP 

28 

STRP 

29 

STRP 

30 

STRP 

31 

STRP 

32 

STRP 

33 

STRP 

34 

STRP 

35 

STRP 

36 

STRP 

37 

STRP 

38 

STRP 

39 

STRP 

40 

STRP 

41 

STRP 

42 

STRP 

43 

STRP 

44 

STRP 

45 

STRP 

46 

STRP 

47 

STRP 

48 

STRP 

49 

STRP 

50 

STRP 

51 

STRP 

52 

STRP 

53 

BSTRP 

54 

STRP 

55 

STRP 

56 

STRP 

57 

iA  STRP 

58 

STRP 

59 

LPSTRP 

60 
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1E12.5,  3X»  15HFINE  INCREMENT=1PE12.  5) 
END 


♦DECK, FAtWAT 

SUBROUTINE  FALWAKO,  RHO#  ETA,  T,  P,  V) 

C 

C H.  G.  NORMENT,  ATMOSPHERIC  SCIENCE  ASSOCIATES  - DECEMBER  1979 

C 

C COMPUTES  STILL-AIR,  TERMINAL  SETTLING  SPEED  OF  WATER  DROPS 

C ACCORDING  TO  THE  EQUATIONS  OF  BEARD  (JAS  33,  852  (1976)) 

C 

C GLOSSARY  (SI  UNITS) 

C C 4. 04G/3.0  WHERE  G IS  ACCELERATION  OF  GRAV7ITY  (9.8) 

C CDRR  DAVIES  NUMBER 

C D DROP  DIAMETER 

C ETA  VISCOSITY 

C P PRESSURE 

C PN  PHYSICAL  PROfERTY  NUMBER  TO  1/6  POWER 

C RHO  FLUID  DENSITY 

C RHOP  WATER  DENSITY 

C SIG  WATER  SURFACE  TENSION 

C T TEMPERATURE 

C V SETTLING  SPEED 

C 

DATA  C/13.3  66667/,  RHOP/IOOO./,  EX/Q  . 1 €666666667/ 

C 

COMPUTE  DAVIES  NUMBER 

CDRR  = C4 (RHOP-RHO )4RH04  C44  3/ET  A4*  2 
CHECK  DAVIES  NUMBER  VALUE  FOR  ROUTING 

IF (CDRR  .GT.  3.3261)  IF ( CQRR-58 249 , ) 100,160,200 
COMPUTE  VIA  STOKES-LAW  EQUATION 

V a CORR4ETA/ (24.04RHO4D) 

GO  TO  300 

COMPUTE  VIA  BEARDS  EQUATION  FOR  MEDIUM  SIZE  ORCPS 
100  Y = ALOG(CDRR) 

V = ETA/(RH04D)4EXP(-3.1 (657  + Y4(0. 992696  + Y4( -C. 153193E-2 
1+YM-0.937Q59E-3  + Y4(-0 .578878E-3  ♦ Y4  (0 . 8551 76  E-4 
2-Y40.327815E-5)i  )))  ) 

GO  TO  3 00 

COMPLTE  VIA  BEARDS  EQUATION  FOR  LARGE  DROPS 
2C0  SIG  = 7.570E-2  - 1.535E-4MT  - 273.0) 

PN  = (SIG443  4 RHO  442/( 9. 8 4 (RHOP-RHO)  4 ETA444))44EX 

V = ALOG(PN4C4(RHOP-  RHC)  4 D442/SIG) 

V = ET  A4PN/  (RHO4  0)  4 EXP(-5. 00015  + Y4  (5. 23778  + Y4(-2. 04914  ♦ 
1 YM0  . 475294  + Y4( -0 .0542819  ♦ Y40. 00238449) ))) ) 

RETURN 

CORRECT  SETTLING  SPEED  FOR  SLIP 
300  V = V4(  1.0  + 54.  08  84ETA4SQRT(T ) /P/D) 

RETURN 

END 


STRP  61 
STRP  62 


FALW  1 
FALW  2 
FALW  3 
FALW  4 
FALW  5 
FALW  6 
FALW  7 
FALW  8 
FALW  9 
FALW  10 
FALW  11 
FALW  12  ; 
FALW  13  I 
FALW  14  ] 
FALW  15  j 
FALW  16 
FALW  17 
FALW  18 
FALW  19 
FALW  20 
FALW  21 
FALW  22 
FALW  23 
FALW  24  I 
FALW  25  I 
FALW  26  j 
FALW  27  i 
FALW  28  j 
FALW  29  1 
FALW  30  | 

FALW  31  i 
FALW  32 
FALW  33  i 
FALW  34 
FALW  35 
FALW  36 
FALW  37 
FALW  38 
FALW  39 
FALW  40 
FALW  41 
FALW  42 
FALW  43 
FALW  44 
FALW  45 
FALW  46 
FALW  47 
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♦DECK, WCDRR 

FUNCTION  WCORRC 
C 
C 

c 
c 
c 
c 
c 


R > 


WCOR 

WCDR 

WCDR 

COEFFICIENT  WCDR 
FOR  A WATER  WCDR 


GIVEN  THE  REYNOLDS  NUMBER,  R,  THE  PRODUCT  OF  THE  DRAG 
AND  THE  THE  SQUARE  OF  THE  REYNOLDS  NUMBER  IS  RETURNEQ 
DROP  IN  AIR,  THIS  FUNCTION  SHOULD  BE  USED  ONLY  FOR  R ,GT,  200. 
< SEE  BEARD  AND  PRUPPACHER,  JAS  23,  106611969)1. 

THE  DATA  OF  GUNN  AND  KINZER,  J.  METEOR,  6,  24311949) , ARE  USED. 


IF ( R . GT.  200.  ) GO  TO  100 

WCDRR  = -1.0E20 

RETURN 

LOO  ALGR  = ALOGIO  ( R ) 

WCORR  = 10.0**(  21.38446  + ALGR  < 
1 16.83269  + ALGR  * ( -4.152207  + 
RETURN 
END 


( -28.81245  + ALGR  * 
ALGR  * 0.3672735  >»! 


) 
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♦DECK, CDRR 

FUNCTION  CORR(R) 

C 

C GIVEN  THE  REYNOLOS  NUM8ER,  R,  THE  PRODUCT  OF  THE  DRAG  COEFFICIENT 

C AND  THE  SQUARE  OF  R IS  RETURNED  FDR  A SPHERE.  SEE  NCRMENT,  TO-B 

C 64-102  tl  NOV.  1964). 

C 

IF { R .GT.  0.05)  IFCR-3.)  100,100,200 

CDRR  = 24.  ♦ R 

RETURN 

100  CDRR  = R*f  24.167  + R*f  3.254  - R»0. 23564)) 

RETURN 

200  IF ( R .GT.  330.)  GO  TO  300 

CDRR  = -28.339  ♦ R* ( 38.969  ♦ R ♦ CO. 73204  - R ♦ 0.56084E-3)) 

' RETURN 

300  CDRR  = R ♦ ( 93.462  ♦ F ♦ 0.37576) 

RETURN 

ENO 


CDRR 
CDRR 
CDRR 
CDRR 
CORR 
CDRR 
CDRR 
CORR 
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CORR 
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♦DECK, OVOQ 

SUBROUTINE  DVDQ!  NEQ,T,Y  ,F»K0,EPS,I  FLAG,H,HNIN» 

♦ HMAX, TPRI NT, TFI NA  L, MXST  EP » KSTEP, KEM AX , EMA  X, 

♦ KQ»YN*  OT, NEVAL, NG,NGE»  N5TOP»G»GT) 


VARIABLE  ORDER  INTEGRATION  SUBROUTINE 

FOR  THE  SOLUTION  OF  ORDINARY  DIFFERENTIAL  EQUATIONS. 

ANALYSIS  AND  COOING  BY  FRED  T.  KRDGH,  JET  PROPULSION 
LABORATORY,  PASADENA,  CALIF.  APRIL  1,  1969. 

MODIFIED  BY  CL  EVE  MOLER,  UNIV.  NEW  MEXICO,  OCT.  1972 

VARIABLES  IN  THE  CALLING  SEQUENCE  HAVE  THE  FOLLOWING 
DIMENSIONS  WHERE  N=NEQ  AND  K=KD  Ml *KD( 2)+...+KO(N) 

Y ( K)  ,F  ( N )*  KD(  N),EPS(N),'<Q(N)  , YN(K)  , 

DT( 20 , N)  ,G(NG)  ,GT  (NG). 

PARAMETERS  WHICH  MUST  BE  ASSIGNED  VALUES  BEFORE  THE  INITIAL 
ENTRY  ARE  IFLAC,  NG,  NEG,  T,  Y,  <D,  H,  HNIN,  HMAX, 

TPRINT,  TfINAL,  MXSTEP,  AND  CUSUALLY)  EPS. 

THE  USER  MUST  ALSO  PROVIDE  CODE  WHICH  ASSIGNS 
VALUES  TO  F (ONCE  PER  STEP  INITIALLY,  AND  TWICE  PER  STEP 
AFTER  GETTING  STARTED)  AND  EPS  (EITHER  INITIALLY,  OR  DURING 
THE  INTEGRATION  IF  A RELATIVE  ERROR  TEST  IS  USED). 

THE  FOLLOWING  PARAMETERS  GIVE  ADDITIONAL  INFORMATION  ABOUT  THE 
INTEGRATION  AND  ARE  USED  FOR  STORAGE.  THEY  SHOULD  NOT  8E 
CHANGED  BY  THE  USER.  IFLAG, KSTEP,  KEMA X, £MAX,KQ,  YN , AND  OT. 


THE  USAGE  OF  THE  VARIABLES  IS  GIVEN  BELOW. 

NEQ=NUMBER  OF  EQUATIONS  (INPUT) 

T=INDEPENDENT  VARIABLE  (INITIAL  VALUE  SUPPLIED  BY  THE  USER) 

Y(J)=CURRENT  VALUE  OF  A CEPENOENT  VARIA8LE  OR  DERIVATIVE. 
THE  INITIAL  VALUE  MUST  BE  SPECIFIED  BY  THE  USER  BEFORE 
THE  FIRST  ENTRY.  THE  DIMENSION  OF  Y MUST  BE 
AT  LEAST  AS  GREAT  AS  THE  SUM  OF  THE  ORDERS  OF 
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THE  DIFFERENTIAL  EGUAT  IONS  WHICH  ARE  BEING 
INTEGRATED* 

THE  J-TH  DERIVATIVE  OF  THE  I-TM  DEPENDENT  VARIABLE  IS 
STORED  IN  Y(K*J+-1>  WHERE  K=KD  111*  • ••♦KO  (1*11? 

1=1 1 o o • *NEQ»  J=8» ••• eK0  8I)~i  . 

(FOR  EXAMPLE,  FOR  THE  SYSTEM  F(1)=UFP,  FC2)=VPP,  WHERE  P 
DENOTES  A PRIME,  Y(1)=U,  Y(2)=U?v  Yt3)s»4.  Y(4)-VP.) 

FCI>*KD«I-TH  OERIVATIV"  OF  THE  I-TH  CGMFONENT  WITH  RESPECT 
TO  T,  1=1,2, ...» NEQ.  .HE  USER  MJST  PROVIDE 
THE  CODE  WHICH  COMPUTES  F GIVEN  Y AND  T. 

KD ( I) =T HE  ORDER  OF  THE  I-TH  DIFFERENTIAL  EQUATION  IN 
THE  SYSTEM.  KOill  MUST  BE  LESS  THAN  OR  EQUAL  TO  4. 

EPS (I)  IS  A PARAMETER  USED  TO  CONTROL  THE  LOCAL  ERROR. 

THE  ESTIMATED  LOCAL  ERROR  IS  KEPT  LESS  THAN  EPSCIJ  IN 
THE  <KO<I>«ll-ST  DERIVATIVE  OF  THE  I-TH  COMPONENT.  THUS 
FOR  EQUATIONS  WITH  ORDER  GREATER  THAN  ONE,  THE  ERROR 
IN  A DERIVATIVE  IS  ESTIMATEO.  IN  THIS  CASE  THE  VALUE  OF 
EPS  <11  REQUIRED  TC  OBTAIN  A GIVEN  ACCURACY  IN  THE  OEPENCENT 
VARIABLE  DEPENDS  ON  THE  SCALING. 

IF  ONE  WANTS  A RELATIVE  ERROR  TEST  THEN  ONE  SHOULD  SET  £PS(I> 
WHEN  IFLAG'-i  . 

IF  EPS(I)=0  AND  HCAX.NE.O,  I FLAG  IS  SET  EQUAL  8. 

IF  E PS  ( I ) = 0 AND  HHAX=0,  NO  ERROR  TESTS  ARE  PERFORMED 
AND  THE  ORDER  IS)  AND  STEPSIZE  ARE  NOT  CHANGED. 

THIS  OPTION  SHCULC  NOT  BE  USED  IF  KQ(I)=1  FOR  ANY  I. 

IFLAG  IS  USEO  FOR  COMMUNICATION  BETWEEN  THE  INTEGRATOR 

AND  THE  fROGRAM  WHICH  CALLS  IT.  TO  BEGIN  THE  INTEGRATION  THE 
USER  SHOULD  SET  I FLAG  = 0 AND  CALL  DVD Q.  THIS  WILL  CAUSE 
INITIALIZATION  OF  INTERNAL  VARIABLES  ANC  A RETURN  WITH 
IFLA  G=i . AFTER  THIS  INITIAL  ENTRY  THE  VALUE  OF  IFLAG 
SHOULD  NOT  BE  CHANGED  BY  THE  USER. 

THE  FOLLOWING  VALUES  OF  IFLAG  HAVE  THE  FOLLOWING  MEANINGS. 

=0  USED  TC  INITIALIZE  THE  INTEGRATOR. 

=1  THE  VALUE  OF  Y FOR  THE  CURRENT  STEP  HAS  BEEN 

PREDICTED.  THE  USER  SHOULD  COMPUTE  F AND  CALL  OVOQ  AGAIN. 

IF  A RELATIVE  ERRCR  TEST  IS  USEO  THE  NEW  VALUE 
OF  EPS  SHOULD  ALSO  8E  COMPUTED  HERE. 

=2  THE  VALUE  OF  V FOR  THE  CURRENT  STEP  HAS  BEEN 

CORRECTED.  THE  USER  SHOULD  COMPUTE  F AND  CALL  DVDQ. 

= 3 AN  OUTPUT  POINT  HAS  BEEN  REACHED  CSEE  DESCRIPTION 
OF  T PR  I NT  ) , PRINT  RESULTS  AND  CALL  DVDQ. 

=4  T=TFINAL  IF  DVDQ  IS  CALLED  WITH  T=T FINAL  AND 

IFLAG-4,  IFLAG  IS  SET  EQUAL  T3  8.  IF  THE  VALUE  OF 
TFINAL  IS  CHANGE!  THE  INTEGRATION  WILL  CONTINUE. 

=5  KSTEP=KSOUT  (SEE  THE  DESCRIPTION  OF  MXSTEP). 

=6  EMAX.GT..1  ANO  IT  APPEARS  TO  THE  SUBROUTINE  THAT 

REOUCING  H HILL  NOT  HELP  BECAJSE  OF  ROUND-OFF  ERROR. 

IF  THIS  OCCURS  A LARGER  VALUE  OF  EPS  CKEM AX ) SHOULD 

PROBABLY  BE  USED.  IF  EPSIKEHAX)  IS  NOT  INCREASED,  TOO 
SMALL  A STEPSIZE  IS  LIABLE  TO  BE  USED.  (WE  HAVE  FOUND  THAT 
REPLACING  EPS ( KE MAX)  WITH  32. *EMAX*EPS ( KEMAX ) WORKS  WELL.) 
INCREASING  EPS  IN  THIS  WAY  WILL  NOT  OEGRAOE  THE  ACCURACY, 
HOWEVER  IF  THE  NATURE  OF  THE  PROBLEM  CHANGES  IT  HAY  PAY  TO 
USE  A SMALLER  VALUE  GF  EPS  LATER  IN  THE  INTEGRATION. 

=7  ABS (H) .LT.HMIN.  TC  CONTINUE  WITH  THE  CURRENT 
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VALUE  OF  H,  SET  HMIN.LE.  ABS  IH)  AND  CALL  CVOQ. 

IF  THE  INTEGRATOR  HAS  JUST  HALVED  H ONE  MAY  CONTINUE 
WITH  TWICE  THE  STEPSIZE  BY  SIMPLY  CALLING  OVDQ.  (SUCH 
AN  ACTION  IS  RISKY  WITHOUT  A CAREFUL  ANALYSIS  OF  THE 
SITUATION.)  IF  THE  STEPSIZE  HAS  NOT  JUST  BEEN  HALVED 
(ABS(H)  .LT.HMIN  MAY  BE  DUE  TO  THE  USER  INCREASING  THE 
VALUE  OF  HMIN  OR  TO  HAVING  TOC  SMALL  AN  H AT  THE  END 
OF  THE  STARTING  PHASE.)  THE  INTEGRATION  WILL  CONTINUE 
WITH  THE  CURRENT  VALUE  OF  H AND  A RETURN  TO  THE  USER  WITH 
I FL AG=  7 WILL  BE  MADE  ON  EVERY  STEP  UNTIL  ABS (H I . GE .HMI N. 

=8  ILLEGAL  PARAMETER  IN  THE  CALLING  SEQUENCE.  IF  OVOQ 
IS  CALLED  WITH  I FLAG=8  THE  PROGRAM  IS  STOPPED. 

H=C URRE  NT  VALUE  OF  THE  STEPSIZE.'  IN  SELECTING  THE  INITIAL 
VALUE  FOR  H,  THE  USER  SHOULD  REMEM BER  THE  FOLLOWING— 

1.  THE  INTEGRATOR  IS  CAPABLE  OF  CHANGING  H QUITE  QUICKLY  AND 
THUS  THE  INITIAL  CHOICE  IS  NOT  CRITICAL. 

2.  IF  IT  DOES  NOT  LEAD  TO  PROBLEMS  IN  CCNPUTING  THE  DERIVATIVES 
(E.G.  BECAUSE  OF  OVERFLOW  OR  TRYING  TO  EXTRACT  THE  SQUARE. 
ROOT  OF  A NEGATIVE  NUMBER)  » IT  IS  BETTER  TO  CHOOSE  ,H  MUCH 
TOO  LARGE  THAN  MUCH  TOO  SMALL. 

3.  IF  H*TPRINT.LE.Q  INITIALLY,  AN  IMMEDIATE  RETURN  IS  MADE 
WITH  IFLAG=8.  THE  SIGN  OF  H IS  WHAT  DETERMINES  THE 
DIRECTION  OF  INTEGRATION. 

4.  IF  TPRI NT=  H* ( 2** K)  K A NCNNEGATIVE  INTEGER  THEN  OUTPUT 
VALUES  WILL  BE  OBTAINED  WITHOUT  DOING  AN  INTERPOLATION. 

HMIN  AFTER  GETTING  STARTED,  AND  WHENEVER  H 

IS  HALVED,  ABSIH)  IS  COMPARED  WITH  HMIN. 

IF  ABS ( H ) 6 LT  .HMI  F CONTROL  IS  RETURNED  TO 
THE  USER  WITH  IFLAG=7. 

HM AX  THE  STEPSIZE  IS  NCT  DOUBLED  IF 

DOING  SO  WOULD  MAKE  ABS ( H) . GT . H MAX 

TPRINT  ENA8LES  THE  USER,  TO  SPECIFY  THE  FCINTS  WHERE 

OUTPUT  IS  DESIREO.  LET  TOUT=T PRINT  ♦ THE  VALUE  OF  T THE  LAST 
TIME  CONTROL  WAS  RETURNEO  TO  THE  USER  WITH  IFL AG  = 3 • (INITIALLY 
TOUT=  THE  INITIAL  VALUE  OF  T.)  CONTROL  IS  RETURNEO  TO  THE 
USER  WITH  IFLAG=3  WHENEVER  T=TOUT.  IF  TOUT  OOES  NOT  FALL 
ON  AN  INTEGRAT I (N  STEP,  OUTPUT  VALUES  ARE  OBTAINED  BY 
INTERPOLATION  ON  THE  FIRST  STEP  THAT  (T-TOUT  )*H.GT  .0 . 
INTERPOLATED  VALUES  FOR  BOTH  Y ANO  F ARE  COKPUTEO. 

(NOTE  THAT  A RETURN  KITH  IFLA G=3  IS  ALWAYS  MADE 
BEFORE  TAKING  THE  FIRST  STEP.) 

TFINAL  CONTROL  IS  RETURNED  TO  THE  USER  WITH  IFL AG=  4 WHEN 
T REACHES  TFINAL.  IF  TFINAL  DOES  NOT  FALL  ON  AN  INTEGRATION 
STEP  VALUES  AT  TFINAL  ARE  OBTAINED  BY  EXTRAPOLATION. 

MXSTEP  ON  THE  INITIAL  ENTRY,  AND  ON  ENTRIES 
WITH  2. LT.IFLAG.LT. 6 KSOUT  IS  SET  EQUAL  TO 
KSTEP  +MXSTEP • AT  THE  END  OF  EACM  STEP  KSTEP  IS  INCREMENTED 
AND  COMPAFED  WITH  KSOUT.  IF  K STEP . GE.  KSOUT  CONTROL  IS 
RETURNED  TO  THE  USER  WITH  IFL  AG  = 5.  (THUS  IF  TPRINT  IS 
SUFFICIENTLY  LARGE,  CONTROL  WILL  BE  RETURNEO  TO  THE  USER 
WITH  IFLAG=5  EVERY  MXSTEP  STEPS. ) 

KST£P=NUMBER  OF  INTEGRATION  STEPS  TAKEN  (COKPUTEO 
BY  THE  INTEGRATOR. ) 
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KEMAX=INDEX  OF  COMPONENT  RESPONSIBLE  FOR  THE 
VALUE  OF  EMAX  ISEE  BELOWl  . 

EMAX=LA RGEST  VALUE  IN  ANY  COMPONENT  OF  (ESTIMATED  ERROR) /EPS  (I I 
OROIN ARILY  THE  STEFSIZE  IS  HALVED  IF  EHAX.GT..1.  WITH  A 
RECENT  HISTORY  OF  LOCAL  ROUND-OFF  PROBLEMS  VALUES  Or  EMAX  AS 
LARGE  AS  i ARE  PERMITTED.  THE  SrEPSIZE  IS  NOT  HALVED  ON  ANY 
STEP  THAT  ROUND  OFF  ERROR  APPEARS  TO  BE  LIMITING  THE  PRECISION. 

KQ (I )=HIGHEST  OROER  DIFFERENCE  USED  IN  INTEGRATING 
THE  I-TH  EQUATION.  (COMPUTED  BY  THE  INTEGRATOR) 

YN= A VECTOR  WITH  THE  DIMENSION  OF  Y USED  TO  STORE 
THE  VALUE  OF  Y AT  THE  END  OF  EASH  INTEGRATION  STEP. 

DT  = AN  ARRAY  WITH  DIMENSI CN  DT (20, MEQ)  USED  TO 
STORE  THE  DIFFERENCE  TABLE. 

NEV AL=NUMBER  OF  TIMES  F IS  EVALUATED  t=  NUMBER  OF 

RETURNS  MADE  WITH  IFLA C=1  OR  2).  (COMPUTED  BY  OVOQ. ) 

NG  MUST  BE  SET  = 0 BY  THE  USER  IF  THE  GSTOP  FEATURE  IS 
NOT  USEO.  OTHERWISE  SEE  BELOW. 


A GSTOP  IS  DEFINED  AS  A RETURN  WHICH  IS  MADE  TO  THE  USER  WHEN  A 
USER  SPECIFIED  FUNCTION  G PASSES  THROUGH  ZERC.  THE  USER  MAY 
SPECIFY  ANY  NUM8ER  OF  FUNCTIONS  G OF  TWO  TYPES.  ZEROS  OF  THE  FIRST 
TYPE  ARE  LOCATED  WITHOUT  REQUIRING  A DERIVATIVE  EVALUATION 
BEYOND  THE  ZERO.  THIS  TYPE  OF  GSTDP  REQUIRES  THAT  G BE  EVALUATED 
BEFORE  EACH  DERIVATIVE  EVALUATION.  ZEROS  OF  THE  SECOND  TYPE  ARE 
LOCATED  USING  INTERPOLATION,  WHICH  IS  MORE  ACCURATE  THAN  THE 
EXTRAPOLATION  USED  IN  THE  PRECEDING  CASE  AND  ONLY  REQUIRES  ONE 
EVALUATION  OF  G PER  STEP.  THUS  ONE  SHOULD  USE  THE  SECOND  TYPE  OF 
GSTOP  IF  POSSIBLE.  USERS  NOT  USING  THE  GSTOP  FEATURE  NEEO  READ 
NO  FURTHER. 

THE  GSTOP  FEATURE  IS  INVCKEO  BY  USING  A NONZERO  VALUE  OF  NG  . 

IT  IS  TURNEO  OFF  BY  SETTING  NG=0  . IT  IS  NOT  NECESSARY  TO 
MAKE  SEPARATE  CALLS  TO  DVDQ  TO  00  THIS. 

NG=  THE  NUMBER  OF  COMPONENTS  IN  G TO  BE  EXAMINED  FOR  A ZERO. 

NGE=THE  NUMBER  OF  COMPONENTS  OF  G THAT  MUST  BE  EXAMINED  FOR 
A ZERO  BEFORE  COMPUTING  THE  DERIVATIVES  (FIRST  TYPE  OF 
GSTOP).  IF  NGE.LT.C  OR  NGE.GT.NG,  IFLAG  IS  SET 
EQUAL  8 AND  AN  IMMEDIATE  RETURN  IS  MADE.  IF  NGE.GT.I), 

G (1),  G ( 2 ) » . . . , G(NGE ) ARE  EXAMINEO  FOR  A ZERO  BEFORE  EACH 
DERIVATIVE  EVALUATION,  THE  REMAINING  COMPONENTS  (IF  ANU 
ARE  EXAMINEO  AT  THE  E NO  OF  EACH  STEP. 

NSTOP=  THE  COMPONENT  OF  G RESPONSIBLE  FOR  A GSTOP  (COMPUTED  EY 
THE  INTEGRATOR). 

G=  A VECTOR  CONTAINING  THE  CURRENT  VALUES  OF  THE  FUNCTIONS 
WHOSE  ZEROS  ARE  TO  BE  DETERMINED. 

GT*-  A VECTOR  KITH  THE  SAME  DIMEMSION  AS  G USED  BY  THE 
SUBROUTINE  FOR  TEMPORARY  STORAGE. 
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DVOQ 
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DVOQ 
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OVOQ 
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OVOQ 
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OVDQ 
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DVOQ 
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DVOQ 
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OVOQ 

205 

OVOQ 

2C  6 

OVOQ 

207 

DVDQ 

208 

OVOQ 

209 

OVDQ 

210 

OVOQ 

211 

OVOQ 

212 

OVDQ 

213 

OVOQ 

214. 

OVDQ 

215 

DVOQ 

216 

DVDQ 
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DVOQ 
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OVDQ 
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OVDQ 

RETURNS  FROM  CALLING  OVDQ  WITH  IFLAG. GT. 8 SHOULO  BE  INTERPET6Q  OVDQ 
AS  FOLLOWS.  OVDQ 

IFLAG  OVDQ 

- 9 COMPUTE  G(N6E+  2)  ,..  . ,G(NG>  (THE  COMPONENTS  OF  G WITH  QVQQ 

ZEROS  TO  BE  LOCATED  USING  INTERPOLATION} • THEN  CALL  OVOQ.  OVOQ 

NO  RETURN  IS  MADE  WITH  IFLAG=9  IF  NGE=NG.  OVDQ 

=10  COMPUTE  G( II ,G(?),...,G (NGEI  (THE  COMPONENTS  OF  G WITH-  OVOQ 

ZEROS  TO  BE  LOCATED  USING  EXTRAPOLATION} • THEN  CALL  OVDQ  • OVOQ 
NO  RETURN  IS  MAOE  WITH  IFLAG=ifl  IF  NGE=0.  OVOQ 

= 11  A GSTOP  HAS  BEEN  FOUND.  G(NSTOP)  = G.  PRINT  RESULTS.  IF  THEIR  OVOQ 
ARE  NO  DISCONTINUITIES  CALL  OVDQ  TO  CONTINUE  THE  INTEGRATION.  DVOQ 
=12  G(NSTOP)  CHANGES  SIGN,  BUT  THERE  IS  DIFFICULTY  IN  CONVERGING  OVOQ 

TO  A ZERO.  THE  USER  NAY  WISH  TO  MAKE  A SPECIAL  CHECK  TO  BE  OVOQ 

CERTAIN  THAT  EVERYTHING  IS  ALL  RIGHT.  TO  CONTINUE  THE  OVOQ 

INTEGRATION  CALL  DVOC,  OVOQ 

OVOQ 

OVOQ 

SUBROUTINE  DVOQC NEQ,T,Y»F,KD, EPS, IFLAG ,H,HMIN,  OVOQ 

* HMAX.TPRI NT, TFI NA  L»  MXSTEP  , KSTEP, <EMAK  * EMAX,  OVDQ 

* KQ,YN,DT,NE\VAL,NG,NCE,NSTOP,G,GTI  OVOQ 

INTEGER  NEQ,KD, IFLAG, MXSTEP, KSTEP, KEMAX  ,KQ, NE VAL , NG ,NGE , NS  TOP  OVDQ 

REAL  T, Y,F, EPS, H, HMIN ,HMAX ,TPRINT,TFI NAL , EMAX,  DVOQ 

2 YN»DT»  G»GT  OVOQ 

DIMENSION  Y(i),F(l),YN(l),DT(20,l) , KG ( 1) ,KQ(1I  »EPS (1 > * G (1) » GT( i)  DVOQ 
INTEGER  IB  » IFL* IFLG , IFLS, I FLGS , I3K, IGKM,KBIT2 ,KDMAX ,KOO, KOC,  OVOQ 

2 LD0UB,LFD,LGSS,LGSC,LGSE,NE,NGA,IM1,KK, JM2 , K MAXO ,KM, KMD ,KM1 , OVOQ 

3 KQMAX,  KQM, KQQ, KQ1.KQQ2, LRNO , JS , KSOUT.LSC ,LSTC ,NV , I , J , K, L OVOQ 

REAL  FAC,  GAM  , GAS,00  ,E  IGHTHt-GI,  HH,  EPSGS  ,EfiRMX,  ERND,  OVOQ 

2 TWO,FRNO, RG, ETA , TG, 0 NEP1 , RND, RNOC, RQMAX ,TL ,E 2H AVE , OVDQ 

3 E2HMAX,E2HFAC,E2F,TOLT,PT,TP,PTSi,PTS2,PTS3,PTS4,PTS5,TPSl,  OVDQ 

4 TPO,TPOl,TPS3,TPS5,TPS4,TPS2,TPS6,TPD2,0,P01,PG75,E,Pl,  OVOQ 

5 P25  *P5,P75 ,S  » ABS, AMCC* AMIN1* AMAXi, SIGN  OVDQ 

DIMENSION  GAM (20 *4),GAS(20I , ETA (13, 18)  OVOQ 

DIMENSION  00(261 ,0(25), PT<21> ,FAC(3i ,GI(2),RG(3)  OVDQ 

EQUIVALENCE  (DD(2),0(11)  OVOQ 

DATA  KB  IT 2 /O/  OVOQ 

OVOQ 

OVOQ 

CHECK  IFLAG  OVOQ 

’ OVOQ 

IF  (IFLAG)  1190,  ifl,  60  OVDQ 

OVOQ 

CHECK  TO  INITIALIZE  CONSTANTS  OVDQ 

OVOQ 

10  IF  (KBIT2)  50,12,50  DVOQ 

OVOQ 

DETERMINE  MACHINE  PRECISION  DVOQ 

OVOQ 

12  RND=1.  DVOQ 

14  RN0=RN0/2.  OVDQ 

KBI T2=K  BIT  2+1  OVOQ 

IF ( 1. +RNO  .GT,  1.)  GO  TO  14  DVOQ 

RNQ=8 . * RNO  OVOQ 

KQM  AX  = 0 .3*  FLO  AT  ( KB  IT  2+1 ) OVOQ 

IF(KQMAX.GT.19)  KQMAX=19  OVDQ 

KBIT2=2*KBIT2+2  DVOQ 

OVOQ 

KQMAX  GIVES  THE  MAXIMUM  CROER  OF  POLYNOMIAL  APPROXIMATION  USEO.  OVDQ 
THERE  IS  LITTLE  POINT  IN  HAVING  KQMAX  MUCH  BIGGER  THAN  THE  NUMQER  OVOQ 


224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 
2 40 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 
2 52 
2 53 
2 54 

255 

256 

257 

258 
2 59 
260 
261 
2 62 

263 

264 

265 
2 66 

267 

268 

269 

270 
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* OF  DECIMAL  DIGITS  IN  THE  MANTISSA. 

RND  IS  APPROXIMATELY  2**(3-B)  WHERE  B IS 
THE  NUMBER  OF  BITS  IN  THE  MANTISSA. 

KBIT2  = 2-*8+2  WHERE  B IS  THE  NUMBER  OF  BITS  IN  THE  MANTISSA, 

IF  THE  DERIVATIVES  ARE  NCT  COMPUTEO  TO  THE  ACCURACY  EXPECTED 
FROM  THE  WORD  LENGTH  OF  THE  COMPUTER  (FOR  EXAMPLE  BECAUSE  OF 
CANCELLATION  PROBLEMS  OR  TABULAR  DATA)  , THEN  THESE  CONSTANTS 
CAN  BE  CHANGED  TO  REFLECT  THE  NUM3ER  OF  BITS  WHICH  ARE 
SIGNIFICANT  IN  THE  COMPUTED  DERIVATIVES • (THIS  IS  NOT  NECESSARY, 
BUT  IS  WISE  IF  THE  ACCURACY  REQUESTED  IS  DIFFICULT  TO  OBTAIN 
BECAUSE  THE  DERIVATIVES  KAVE  SO  FEW  SIGNIFICANT  DIGITS.) 

ON  IBM 3 60*  KQHAX  WILL  = 16,  RND  = 8.880-16,  KB  IT  2 = 1C8 
ON  CDC6600 , KQMAX  WILL  = 14,  RND  = 2.64E-14,  K9IT2  = 98 
ON  UNIVAC  1108,  KQMAX  KILL  = 18,  RNO  = 6,940-18,  KBIT2  = 122 


«MAX0=4 

KMAXO  IS  THE  MAXIMUM  ORDER  DIFFERENTIAL  EQUATION  THIS 
IMPLEMENTATION  WILL  INTEGRATE. 

F AC  ( 1 ) = 1 , 

FAC ( 2) =FAC ( 1) / 2. 

FAC  (3 ) = FAC ( 2) /3. 

TWO  =2 • 

Pi=.l 
P01=.01 
P25=. 25 
P5=  .5 
P75=. 75 
Pfl  75=  • 0 75 
ONE P 1=1.1 
PTC  1J  =1. 

KM=KQMAX+1 
DO  16  1=1, KM 

PT(I+1)=2.*PTII) 

16  CONTINUE 

COMPUTE  GAS  AND  GAM 

GAS ( I ) IS  THE  I-TH  ADAMS -MOULTON  CORRECTOR  COEFFICIENT  AND 
GAM ( I , J ) IS  THE  I-TH  ADAMS- FALK NER  PREDICTOR  COEFFICIENT 
FOR  INTEGRATING  J-TH  ORDER  DIFFERENTIAL  EQUATIONS, 

I = 1,2,...  ,KQMAX+ J,  J = 1,2,.  KMAXO. 

KMD=KM+KMAXO 
DO  20  K = 1 » KMD 
S=K 

D(K)  = i./S 
20  CONTINUE 

GAM ( 1, 1 ) =D ( 1) 

DO  22  J=2, KMAXO 

G AM ( 1 , J) =0( J)*FAC( J-l) 

22  CONTINUE 

DO  26  1=2, KM 
KK=KMD+1-I 
DO  24  K=1,KK 
S = I-1 

D ( K ) = D ( K) -DC  K + l) /S 
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24 

CONTINUE 

OVDQ 

344 

! 

j 

GAM (I ,1>=D«1) 

DVDQ 

345 

i 

j 

00  26  J=2,KMAX0 

OVOQ 

346 

1 

GAMCI,  J»=DIJi*FAC(J“l> 

OVDQ 

347 

1 

26 

CONTINUE 

DVOQ 

348 

j 

GAS(1>  = 1. 

DV  DQ 

3 49 

i 

00  28  1 = 2*  KM 

DVDQ 

3 50 

i 

GASm=GAMII,i)-GAMI-i,i> 

DVOQ 

351 

m 

28 

CONTINUE 

OVDQ 

352 

■ 

DVDQ 

353 

1 

GENERATE  ETA 

OVDQ 

354 

1 

DVOQ 

355 

■ 

ETA(I'J)*  1=1*2* • • • * J IS  USED  IN  THE  FIRST  MODIFICATION  OF 

THE 

DV  DQ 

356 

% 

I-TH  DIFFERENCE  CF  A J-TH  ORDER  METHOD  AFTER  THE  STEFSIZE 

IS 

DVOQ 

357 

HALTED. 

DVDQ 

3 58 

ETA(I*J)»  J=l*  2,  • • • * 1-1  IS  USED  IN  THE  SECONC  MOOIFICATICN 

OF 

OVDQ 

359 

THE  (J+ll-ST  DIFFERENCE  OF  AN  I-H  ORDER  METHOD 

DVOQ 

360 

DVDQ 

361 

K=KQMAX -1 

OVDQ 

362 

EIGHTH=FAC  C 2) *F AC ( 2 >*F AC (2) 

DVOQ 

363 

ETA (1,1 )=EIGHTH 

OVDQ 

364 

ETA (2* 1 )=EIGHTH 

DVOQ 

365 

TP=FAC( 2)*FAC(2) 

OVDQ 

3 66 

1 

DO  33  J = 2,K 

DVOQ 

367 

1 

TP=TP/2. 

OVDQ 

368 

ETA(J* J»=  (TP  + ETA  (J-l,  J-1U/2. 

DVDQ 

369 

f 

IF  ( J • ECU  2)  GO  TO  32 

DVDQ 

370 

JM2=J-2 

DVDQ 

3 71 

DO  30  IB  = 1» JM2 

OVDQ 

372 

1 = J “IB 

OVDQ 

373 

1 

ETA (I* J)  = (ET A(I+i,J> *ETA(I-1, J-l))  /2. 

DVDQ 

374 

30 

CONTINUE 

OVDQ 

375 

32 

ETA(l,J»=ETA(2,J)/2. 

DVOQ 

3 76 

1 

33 

CONTINUE 

DVDQ 

377 

DO  34  1=1, K 

DVDQ 

378 

| 

TP  = 0 • 

OVDQ 

379 

DO  34  J=1,I 

OVDQ 

380 

| 

TP=TP+ET  A ( J , I) 

OVDQ 

381 

5 

ETA  (1  + 1*  J)  =t  P 

DVDQ 

3 82 

i 

34 

CONTINUE 

OVDQ 

383 

i 

TP=FAC( 2) 

OVDQ 

384 

.| 

DO  36  J=l, K 

DVDQ 

385 

i 

TP=TP/2. 

DVDQ 

386 

1 

D (J)=ETA ( J*l* J)+TP 

OVDQ 

387 

36 

CONTINUE 

DVOQ 

388 

DO  38  J=l*  K 

OVDQ 

389 

i 

i 

DO  38  1=1, J 

OVDQ 

3 90 

1 

ETA  (I* J)=ETA  (I » J )/D (J) 

DVOQ 

391 

J 

38 

CONTINUE 

OVOQ 

392 

j 

KM1=K-1 

DVDQ 

393 

j 

DO  40  J = l»  KM1 

OVOQ 

394 

, 

D(J)=D(J  + 1I/D4J> 

OVOQ 

395 

j 

40 

CONTINUE 

DVOQ 

396 

] 

DO  42  1=2, KM1 

DVDQ 

397 

:i 

DO  42  J-l, I 

OVDQ 

398 

.} 

ETA (I+1»J) =-ETA( 1+2* J)  ♦ ETA  ( 1*1 , J)  *0  ( I» 

DVDQ 

399 

42 

CONTINUE 

DVDQ 

4u  0 

i 

TP=  EIGHTH 

OVOQ 

4G1 

i 

DO  46  1=2, KM1 

DVDQ 

402 

TP=TP/2* 

OVDQ 

403 

178 
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S=TP 

OVOQ 

404 

00  44  J=i,I 

DVDQ 

405 

S=S+ETA  (1  + 1,  Ji 

OVOQ 

406 

44 

CONTINUE 

OVOQ 

407 

I M1=I 

OV  DQ- 

406 

00  46  J=i,IMi 

DVOQ 

409 

ETA(I,J)=ETA(I+i  ,J)/S 

OVDQ 

410 

46 

CONTINUE 

OVOQ 

411 

DVDQ 

412 

INITIALIZE  VARIABLE- 

OVDQ 

413 

OVOQ 

414 

50 

PTS1=PT  Cl) 

DVOQ 

415 

PTS2=PT  <2) 

DVDQ 

416 

PTS3=PTC3) 

OVOQ 

417 

PTS4=PT (4) 

OVDQ 

418 

PTS5=PT  (5) 

DVDQ 

419 

LGSS=0 

OVOQ 

420 

LGSO=0 

OVOQ 

421 

LGSE=0 

OVDQ 

422 

LFD  = 0 

DVDQ 

423 

E2HAVE=0. 

OVDQ 

424 

E2HMAX=0. 

OVDQ 

425 

DO  52  1=1,  KMB 

OVDQ 

426 

DD(I)=0. 

DVDQ 

427 

52 

CONTINUE 

OVOQ 

428 

KSTEP=-1 

OVDQ 

429 

NE=NEQ 

DVDQ 

430 

IF  CNE.LE.O)  GO  TO  1190 

DVDQ 

431 

HH=H 

OVOQ 

432 

NV  = 0 

DVDQ 

433 

KDHAX=0 

DVDQ 

434 

DO  56  J=i, NE 

DVOQ 

435 

KQ( J) =1 

DVOQ 

436 

DO  54  I=i,KQMAX 

DVDQ 

437 

DT ( I, J) =0 • 

OVDQ 

438 

54 

CONTINUE 

OVDQ 

439 

KDD=KQ( J) 

OVOQ 

440 

IF  ((KOD.EQ.fi)  .OR. 

(KDD.GT.KMAXO)  ) HH  = 0. 

OVDQ 

441 

IF  CKDD.GT.KOMAX) 

KDMAX=KOD 

OVDQ 

442 

N V=NV+KDD 

OVDQ 

443 

56 

CONTINUE 

OVOQ 

444 

OVOQ 

445 

IF  ( (TPRINT*HHI .LE.O 

.)  GO  TO  1190 

DVDQ 

446 

ERRMX=Pi 

DVOQ 

447 

ERNO=0. 

DVOQ 

448 

EMAX=ERNO 

DVDQ 

449 

RN0C=RN0*P25 

OVOQ 

450 

LDOUB=0 

OVDQ 

451 

E2HFAC=P25 

OVDQ 

4 52 

LSC=8 

OVDQ 

453 

LST  C=4 

DVDQ 

454 

LSC  ANO  LSTC  ARE  USED  IN  COMBINATION  AS  FOLLOWS 

OVOQ 

4 55 

LSTC=4,  LSC=4 

FIRST  TIME  THROUGH  THE  FIRST  STEP 

DVDQ 

456 

LSTC=3,  LSC=4 

SECCNO  TIME  THROUGH  THE  FIRST  STEP 

DVOQ 

457 

(NECESSARY  TD  CHECK  STAEILITY) 

OVDQ 

458 

LSTC=  2,  LSC  = 4 

THIRD  TIME  THROUGH  THE  FIRST  STEP 

DVDQ 

459 

ICNLV  OCCURS  IF  INSTABILITY  POSSIBLE) 

OVOQ 

460 

LSTC=  2,  LSC=2 

SECCNO  STEP  (IF  KQ(I)=2  , 1=1,..,, 

> NEQ) 

DVDQ 

461 

LSTC=1,  LSC=0 

STARTING  , ONE  DERI  i/ATI  YE  EVAL.  PER 

STEP. 

OVDQ 

462 

LSTC=1,  LSC .GT • 0 

SET  WHEN  STARTING  TWO  DERIV.  EVAL. 

PER  STEP 

OVOQ 

463 
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6Q 


65 


LSTC=-1  LSC.LT.O  SET 

WHEN  HALVING 

THE 

STEPSIZE 

OVOQ 

464 

IN  THE  LAST  TWO  CASES  LSC 

IS  SET  EQUAL 

TO 

LSTC* (MAXIMUM  KQ<I> 

DVOQ 

465 

+1) e AT  THE  END  OF  EACH 

STEP  IF  LSC* 

NE 

.0 

IT  IS 

REPLACED  BY 

OVOQ 

466 

LSC-LSTC  UNTIL  LSC=0»  AT 

WHICH  TIME 

LSTC 

IS  SET  EQUAL  TO  0. 

DVDQ 

467 

WHEN  00U8LING  H,  LSTC 

IS 

SET  EQUAL 

TO 

-1 

ANO 

LSC  TO  -3. 

OVDQ 

468 

UNDER  CERTAIN  CONDITION 

c 

w 

WHEN  KQ( I ) = 

1* 

LSTC  IS 

SET  =-i  ANO  LSC= 

-5  OVOQ 

469 

DVDQ 

470 

KS0UT=M  XST  EP 

OVDQ 

471 

T0UT=T 

OVDQ 

472 

IFL=13 

OVDQ 

473 

IFL AG=1 

DVOQ 

474 

NG  A=0 

OVDQ 

475 

NEVAL=  0 

OVOQ 

476 

IF(NG.N£.0J  GO  TO  1420 

OVOQ 

477 

GO  TO  315 

DVDQ 

478 

END  OF  INITIALIZATION 

DVOQ 

479 

OVOQ 

480 

DVOQ 

481 

ENTRY  WITH  IFLAG.GT. 0 

DVDQ 

482. 

OVOQ 

483 

CHECK  FOR  GSTOPS 

DVDQ 

484 

DVOQ 

485 

IF(NG.EQ.NGA)  GO  TO  65 

OVDQ 

486 

IF(NG.LT.O)  GO  TO  1190 

OVOQ 

487 

NG A=NG 

OVOQ 

488 

LGSS=-NGA 

OVOQ 

489 

LGSD=0 

DVDQ 

490 

LGSE=0 

DVDQ 

491 

IFLG=-2D 

OVDQ 

492 

DVOQ 

493 

DVOQ 

494 

IF  (IFL.LT.2)  GO  TO  320 

OVOQ 

495 

IF  (IFL.EQ.2)  GO  TO  80 

OVOQ 

496 

IF  (IFL.GT.5I  GO  TO  1180 

DVOQ 

497 

OVDQ 

498 

SET  STEP  STOP 

OVOQ 

499 

KSQUT=KSTEP+MXSTEP 

OVOQ 

5 U 0 

IF  (IFL.EQ.5)  GO  TO  210 

OVOQ 

501 

IF  (IFL.EQ.4)  GO  TO  1210 

DVOQ 

50  2 

DVDQ 

503 

SET  PRINT  STOP 

OVDQ 

504 

TOUT=T+  TPRI  fT 

OVDQ 

505 

DVOQ 

506 

TPS1=ABSIAM0D( (TOUT“T)/HH, 

TWO)  -PTS1) 

OVOQ 

507 

LFD=- 1 

OVOQ 

5C8 

IF  (TPS1.GE.P5)  LFD=1 

OVOQ 

509 

DVDQ 

510 

LFD  IS  USED  TO  INDICATE 

WHETHER  OIUBLING  H 

IS  PERMITTED. 

OVOQ 

511 

IF  LFD.LT.O  AT  THE  END  OF 

A STEP  THEN 

DOUBLING 

H IS 

OVOQ 

512 

NOT  PERMITTED*  THE  SIGN 

OF 

LFO  IS  CHANGEO 

JUST 

BEFORE  THE 

DVOQ 

513 

END  OF  EACH  STEP.  IF  T PRINT  = H*f  POWER 

OF 

2) 

THEN 

OVDQ 

514 

OUTPUT  VALUES  WILL  BE  OB TAINEQ  WITHOUT 

INTERPOLATION. 

OVDQ 

515 

OVOQ 

516 

GO  TO  200 

OVDQ 

517 

OVDQ 

518 

OVDQ 

519 

ENTRY  WITH  IFL  AG  = 2 

OVOQ 

520 

OVDQ 

521 

UPDATE  DIFFERENCE  TABLE 

OVDQ 

522 

ANO  COMPUTE  KQM=MAXIMUM 

VALUE  OF  <Q< I) , 

1= 

1 9 2 9 • 

• . « NEQ. 

OVDQ 

523 

180 
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c 


8 S KQM=  0 

DO  90  1=1*  NE 
KQQ=KQ(I) 

IF  (KQQ.GT.KQM)  KQM=KQQ 
D (1 ) =F  (I ) 

00  85  K=1,KQQ 

D (K+i)=D(K)-DT(K,I> 

DT(K,I )=D(K) 

85  CONTINUE 

DT(KQQ*i,I)=D(  KQQ+i) 

90  CONTINUE 

END  OF  UPDATING  DIFFERENCE  TABLE 

STORE  YU)  IN  YNIJ) 

DO  95  J=1,NV 
YN  ( J ) — Y ( J ) 

95  CONTINUE 

LFD=-LFD 

TL-T 

KSTEP=KSTEP+1 

IF  (LGSS)  1430,110,1510 
100  IFL  AG=2 

110  IF  (LSC.EQ.0)  GO  TO  140 
LSC=LSC-LSTC 
IF  (LSC.EQ.0)  GO  TO  130 
IF  (LSTC.NE.(-i) ) GO  TO  140 
IF  (LD0U8.LT. 0)  RNCC=RNO*Pl 
120  E2HA VE=E2HM  )X 
TPS1=PTS1 
GO  TO  190 

130  IF  (ABS(HH)  .LT.HMIK)  GO  TO  1300 
LSTC=  0 

140  IF  (LDOUB.NE.  1)  GO  TC  150 

IF  C(LFD.GT.O)  .AND.  (ABS(HH+HH)  .LE.HMAX)  ) GO  TO  1D3Q 
GO  TO  200 

150  RQMAX=PTSl/FLOAT  (KQM+3) 

IF  ((LSTC.NE.O).OR.(E2HAVE.EQ.O.))  GO  TO  120 
TPS1=E2HMAX/E2HAVE 
IF  (TPS1-PTS1)  160,190,  170 
160  E2HFAC=AMIN1(PG7  S,E2HFAC-RQMAX, E2HFAC* TFS1) 

GO  TO  180 

170  T P S 1 = T P S 1 * T P S 1 

E2HFAC=AMIN1(PTS1,E2HFAC*TPS1) 

180  RNDC=  ( O NEP1-E2HF  AC ) * RND 
E2HAVE=P'5* (E2HMAX+E2HAVE) 

19  C ERRMX=AMAX1 (PI, ERRMX-RQMAX*TPS1 ) 

E2HFAC  IS  A FACTOR  WHICH  IS  TAKEN  TIMES  AN  INITIAL  ESTIMATE  CF 
E2H  TO  GET  A FINAL  \i ALUE  0r  E2H.  (E2H=ESTIMATE  OF  WHAT 
([ESTIMATED  ERROR )/ (REQUESTED  ERROR)  WOULD  BE  IF  H WERE 
DOUBLED. ) 

E2HMAX  IS  THE  MAXIMUM  VALUE  OF  THE  INITIAL  ESTIMATE  OF  E2H  OVER 
ALL  COMPONENTS  WITH  KQ(I).3T.l. 

E2HAVE  IS  A WEIGHTED  AVERAGE  OF  PAST  VALUES  OF  E2HMAX. 

THE  VALUE  OF  E2HFAC  TENDS  TO  BE  SMALLER  WHEN  E2HMAX  IS 
CONSISTANTLY  SMALLER  THAN  E2HAVE. 
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OVDQ  563 
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CHECK  FQR  PRINT  STCP  ANO  FOR  T REACHING  T FINAL 

OVOQ 

584 

200 

TPD= (TOUT-TLI/HH 

OVOQ 

585 

TPQ1=(TFINAL-TLJ  /HH 

OVOQ 

566 

OVOQ 

587 

IF  (LGSE.LT.0)  GO  TO  1780 

DVDQ 

588 

IF  (TPOi.LT.FACf  1)  ) GO  TO  1220 

OVOQ 

5 69 

IF  (TPD.LE.0.)  GO  TO  1280 

OVOQ 

590 

QVOQ 

591 

CHECK  FOR  STEP  STOP 

OVOQ 

592 

IF  (KSOUT.GT.KSTEP)  GO  TO  210 

OVOQ 

593 

OVOQ 

594 

IFL  = 5 

OVOQ 

595 

GO  TO  310 

OVOQ 

5 96 

OVOQ 

597 

CHECK  TO  SEE  IF  ROUNC-OFF  ERROR  IS  PROMINENT 

OVOQ 

598 

210 

IF  CEMAX.EQ.ERNO)  GO  TO  220 

OVOQ 

599 

IT  IS 

OVOQ 

600 

IFL =6 

OVOQ 

601 

IF  (EMAX.GE.Pi)  GO  TO  310 

OVOQ 

602 

IF  ULSTC.GE.O)  .OR.CLOOUB.EQ.il)  ERRMX=PTS1 

OVOQ 

683 

OVOQ 

604 

220 

IFL  -1 

OVOQ 

605 

230 

T=TL+HH 

OVOQ 

606 

OVOQ 

6C7 

START  A NEW  STEP 

OVOQ 

608 

OVOQ 

609 

PREOICT 

O VDQ 

610 

240 

J=0 

OVOQ 

611 

OO  290  1=1, NE 

OVOQ 

612 

KOD=KO( I ) 

OVOQ 

613 

KDC=KOD 

OVOQ 

614 

250 

K QQ=KQ(  I ) 

OVOQ 

615 

TPO  = 0 . 

OVOQ 

616 

K = KDC 

OVOQ 

617 

260 

TPD  = TPD«-DT (KQQ»I)*G AM(KQQ,KDC) 

OVOQ 

618 

KQQ=KQQ-1 

OVOQ 

619 

IF  CKQQ.GT.0)  GO  TO  260 

OVOQ 

620 

270 

K=K- 1 

OVOQ 

621 

IF  (K.LE.C)  GO  TO  280 

OVOQ 

622 

L=J  + K 

OVOQ 

623 

TPO  = YN(L  + l)*FAC(K) *HH*TPD 

OVOQ 

624 

GO  TO  270 

OVOQ 

625 

280 

J=J  + 1 

OVOQ 

626 

Yl  J)  = YNC J)fHH*TPD 

OVOQ 

627 

KDC=KDC-1 

OVOQ 

628 

IF  (KDC.GT.0)  GO  TO  250 

OVOQ 

629 

290 

CONTINUE 

% 

OVOQ 

630 

END  OF  PREOICT 

OVOQ 

631 

OVOQ 

632 

IF  (IFL)  1 240 ,320,300 

OVOQ 

633 

300 

IF  (LGSD.NE.Q)  GO  TO  1520 

OVOQ 

634 

OVOQ 

635 

310 

IFLAG=IFL 

OVOQ 

636 

315 

IF  (IFL AG. LE. 2)  NEVAL=NEVAL+1 

OVOQ 

637 

OVOQ 

63  8 

RETURN 

OVOQ 

639 

OVOQ 

640 

OVOQ 

641 

ENTRY  WITH  IFL  AG  = 1 

OVOQ 

642 

320 

ERND=0  . 

OVOQ 

643 
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330 


3 40 


C 


350 


C 

360 


EMA  X=0 • 

E2HMAX=C. 

J = 0 

IF  (LD0U8.  GE.B)  L00ua=i 

LOOUB  IS  SET  IN  THE  LOOP  BELOW  AS  FOLLOWS 
LDOUB=0  HALVE 
LD0U8=i  DOUBLE 
L00UB=2  00  NOT  DOUBLE 

LOOUB.  LT.Q  AT  THE  BEGINNING  OF  THE  LOOP  INOICATES  THE  FOLLOWING 
=-3  STEPSIZE  HAS  JUST  BEEN  HALVED.  IF  A DISCONTINUITY  IS 
NOT  INDICATED  MCOIFY  THE  DIFFERENCE  TABLE  AND  REPEAT 
THE  STEP. 

=-2  STEP  AFTER  LD0UB=-3.  PROCEED  AS  USUAL  (ORDER  IS  NOT 
CHANGED) 

=-l  STEP  AFTER  LDCUB=-2.  MODIFY  THE  DIFFERENCE  TABLE  ONCE 
AGAIN  AND  REPEAT  THE  STEP. 

IF  LD0U8  IS  SET  EQUAL  TO  -4  THE  ORDER  IN  AT  LEAST  ONE  COMPONENT 
HAS  BEEN  GREATLY  REDUCED  ANO  THE  STEP  IS  REPEATED, 


BEGINNING  OF  LOOP  FOR  CORRECTING,  ESTIMATING  THE  ERROR, 

AND  ADJUSTING  THE  NUMBER  OF  DIFFERENCES  USED 

DO  790  1=1, NE 
K0D=KD(I) 

KQQ=KQ(I) 

KQQ  GIVES  THE  ORDER  OF  THE  PREDICTOR  FORMULA  A.ND  KQQ+1  THE 
ORDER  OF  THE  CORRECTOR  FORMULA. 

KQ1=KQQ+1 
D(i)  = F(I) 

FORM  THE  DIFFERENCE  TABLE  FROM  PREDICTED  DERIVATIVE  VALUES. 
DO  330  K=1,KQI 

D <K+1)=D(K)-DT  (K,I) 

CONTINUE 

D (K ) GIVES  THE  (K-l)-ST  DIFFERENCE  FORMED  FROM  PREDICTED 
DERIVATIVE  VALUES 
TPS 3=  A9S  (D( KQQ+1) ) 

IF  (LDOUB.LT .0  ) GO  TO  720 

IF  (KQQ.  NE.  1 ) GO  TO  520 

KQ( I) =1  IS  TREATED  AS  A SPECIAL  CASE 

E2H=PTS2 

TPS5=OT ( 3 , I ) 

IF  (LSTC.LT.2)  GO  TO  3 70 
FIRST  STEP  OF  INTEGRATION 
IF  CLSTC.NE.4)  GO  TO  350 
TPS4=  0 . 

IF  (KOD.GT.l)  TPS3=AMAXl(TPS3,A3S(HH*0(i) )) 

TPS3=TPS3*P1 
GO  TO  510 
DT(2,I)  = D(2) 

D(2)=0(1)-DT(5,I) 

TPS2=-D(  2) 

TPS  3=  PTS  5*ABS(TPS2? 

FIRST  STEP  THAT  KQ(I)=1 
0T(7, I)=PT(4) 
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661 1 
682 
6 83  | 
684  i 
6 85  j 
6 86  ! 
687  1 
66  8 ' 
689  ; 
690' 
6 91 

692 

693 

694 

695 

696 

6 97 

698 

699  * 

700 

701 

702 
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183 


oo  oooooooo  ooo 


370 

380 

390 

40  0 

41G 

420 

430 

440 

450 


460 

470 

480 


490 


500 


510 


IF  (LSTC-2)  420,380.380 
IF  (TPS5.EQ.0.)  GO  TO  360 
IF  (0T(6,I)  .EQ.0.)  GO  TO  400 
TPS2=  0T( 5 ,1) -OT( 1,11 
TPS4=0T (4,1) 

TPSi=  A8S ( TPS4I 

TPS4=TPS2+SIGN(PTS2,TPS4)»TPS5*TPS1 
IF  (TPS4.GT. (-TPS1I)  GO  TO  410 
TPS6=-PTS1 
GO  TO  450 

FIRST  STEP  AFTER  THE  STEPSIZE  HAS  BEEN  CHANGEO 
DT(6,I)=PT(i) 

TPS6=0. 

GO  TO  450 

IF  (TPS4.LT. TPS1)  GO 
IF  (TPSi.EQ.O. > GO  TO 
TPS6=PTS  1 
GO  TO  450 
KQ( I) =2 

IF  (2-LSTC)  510, 

TPS6=TPS4/TPS1 
TPS4=TPS5«-TPS6 
IF  (TPS4.LT. P25) 

INCREASE  E2H  IF 
E2H=PTS4*TPS4 
IF  (2-LSTC)  460,470,480 
LSC=C 
GO  TO  510 

(TFS5-P25  ) 4 3 0 , 460,46  0 
(TPS4.GT.PTS2)  GO  TO  490 
(TPS4.GT.P5)  0(2)  =0(2)  *GAM  (2,  1) 

TO  510 


TO  440 
390 


510,  520 


GO  TO  430 
(-S).GT.. 25 


GO  TO  500 


(AND  HENCE  OF  E2H)  IS  INCREASEO  IF  (-SJ.GE.8 


AND  0(2>=2*( CORRECTED  Y - 
ARE  USED  TO  COMPUTE  <-S)  ON 


520 


IF 
IF 
IF 
GO 

IF  (TPS4.LT. PTS4) 

TPS4=PTS4 
O (2  ) = D (2 ) /PT  (3  ) 

THE  ESTIMATE  OF  E 
TPS3=  TPS3*0T (7,1) 

GO  TO  510 

0(2)=0(2)*(PTS2*(TFS4-PTS1)/(T,PS4*TPS4)) 

IF  (TPS4.GE.3.  ) E2H=E2H*QT  (7,  I) 

STORE  0(  l)  = PREOICTEO  DERIVATIVE 
PREDICTED  Y)/H  0(1)  ANO  D(2) 

THE  NEXT  STEP. 

OT(5, I ) =0 ( 1 ) 

DT  (4,  I)=0  (2) 

D ( 4) =TPS4 

STORE  0(4)=  CURRENT  ESTIMATE  OF  (-S).  (-SI.GT.3  IS  AN  INDICATION 

THAT  THE  STEPSIZE  SHOULD  BE  LIMITEQ  BECAUSE  OF  STABILITY  PROBLEMS. 
S=H* (ESTIMATE  OF  EIGENVALUE  OF  F) =H* (DIFFERENCE  BETWEEN  PREDICTED 
AND  CORRECTED  DERIVATIVE  VALUES)/! DIFFERENCE  BETWEEN  PREDICTED 
ANO  CORRECTED  INTEGRALS  OF  THE  DERIVATIVE  VALUES) 

THE  TREATMENT  OF  THE  CASE  KQ(I)=i  COULD  BE  IMPROVED  BY  USING  A 
SPECIAL  METHOD  FOR  STIFF  EQUATIONS  WHEN  (-S).GT.3  (MAYBE). 

(THE  ENTIRE  TREATMENT  OF  THE  CASE  KQ(I>=1  IS  FAR  FROM  IDEAL.) 

OT ( 3, I)=D (4) 

CORRECT 
KDC  = 0 

T PD=0  (KQ1) 

J= J + K OD 
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K=J 

530  TPD=HH*TPD 
KOC=KOC+l 

Y(K>  = YlK>  + GAM<KQQ+i,KOC>  + TPO 
K*  1 

IF  IKOC.LT.KQD)  GO  TO  530 
C END  OF  CORRECT 

C 

IF  CEPS  (I ) * NE*  0,  ) GO  TO  560 
550  IF  (HMAX)  1190,760,1190 
560  TPS4=ABS <D<KQQ*2)) 

TPS2=ABSCO(KQ<i7> 

TPS6=HH/EPS (II 
C 

E=ABS (GAS (KQQ+1) *TPS3*TPS6) 

C E GIVES  ABSC f ESTIMATED  ERRORJ/EPS (I J ) 

C 

LRND= 1 


LRND=  1 MEANS  NO  ROUNO-OFF  ERROR 
= 0 MEANS  SCME  RO  IND-OFF  ERROR 
=-1  MEANS  EXTREME  ROUNO-Of-  ERROR 


FRND=RNDC*ABS  CPT (KQQ+2)*D  <11 ) 

C CHECK  TO  SEE  IF  ROUND  OFF  ERROR  IS  DOMINANT 

IF  UTPS3+TPS4  P.GT.FRNO)  GCI  TO  570 
LRND=  0 

IF  <CPTS4*TPS2>  .LT.FRNE)  LRND=-1 

C 

570  IF  (E.LE.ERND)  GO  70  5 90 
IF  CE.LE.EMAXJ  GO  TO  5 £0 
EMAX=£ 

KEM AX=I 

580  IF  (LRND.LE.  0)  GO  TO  5 90 
ERND=  E 

IF  (ERND.GT.ERRMX)  LDOUB=  0 
590  IF  (LDOUB.LE.G)  GO  TO  760 
TPSi=  ABS  ( OD  < KOQP  ) 

TPS  5 = TPS 1 

IF  CKGQ-2)  600,610,620 
600  E2H=E*E2H 

IF  (E2H.LT.P01)  GO  TO  760 
IF  (0 (4) .LT.3.  ) GO  TO  770 
LSTC=-i 
L SC=- 5 
GO  TO  770 
610  TPS1=TPS2 

IF  (LSTC.NE.2J  GC  TO  620 
KQ(I) =3 
, TPS2=0. 

TPS4=0. 

LRNO=D 

620  E2H=TPS2+TPS3+TPS4 

E 2H  = A BSC  GAS ( KQQ~1) *PT < KQQ+1) *E2H*TPS6) 

C E2H  IS  USED  AS  AN  ESTIMATE  OF  WHAT  THE  VALUE  OF  E WOULD  8E 

C IF  H WERE  DOUBLED.  THE  ESTIMATE  IS  CONSERVATIVELY  LARGE. 

IF  (E2H.GT.E2HMAX)  E2HMAX=E2H 
C 

IF  CLRND)  630,  640,660 

C EXTREME  ROUND-OFF  ERROR — REDUCE  E2H 
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OVOQ  821 
DVOQ  822 
OVDQ  823 


185 


OO  oo  ooo  oo  o o oo  o o o 


c 


630 

K=(KBIT2/KQQ)-4 

DVOQ 

8 24 

IF  (K.LE.3)  GO  TO  640 

DVDQ 

625 

IF  (K.GT.KQMAX)  K=KQMA  > 

DVOQ 

826 

E2H=£2H/PT(K+1> 

OVDQ 

8 27 

GO  TO  650 

DVDQ 

828 

64  G 

E2H=AMIN1CE2H»E2H*3.*E  iHFAC) 

DVOQ 

8 29 

650 

E2H=E2H*P1 

DVOQ 

830 

TPS6=PTS4 

OVDQ 

831 

GO  TO  670 

DVOQ 

832 

OVDQ 

833 

660 

E2H=E2H*E2HFAC 

DVOQ 

834 

TPS6=KQQ+2 

DVOQ 

835 

TEST  TO  SEE  IF  DIFFERENCES  DECREASE  MORE 

RAPIDLY 

THAN 

NECESSARY 

DVDQ 

836 

DVOQ 

8 37 

670 

IF  (TPS5.LT, (TPS3*TPS6)>  GO  TO  680 

OVDQ 

8 38 

IF  (TPS2.LE.  (TPS4*TPS6)J  GO  TO  760 

OVDQ 

839 

THEY  00  INCREASE  KQ(I) 

DVOQ 

840 

IF  ( KQQ.NE.  K QMAX  ) KQ(I)=KQ1 

DVOQ 

841 

GO  TO  760 

DVOQ 

842 

DVOQ 

843 

TEST  TO  SEE  IF  DIFFERENCES  DECREASE  TOO 

SLOWLY 

DVDQ 

844 

680 

TPS6=TPS6*P25 

OVDQ 

845 

IF  ( (TPSi.GT.(TPS3*TPS6))  .OR.  (T»S2,GT.  (TPS4*TPS6) ) ) GO 

TO  760 

DVOQ 

846 

THEY  DO 

DVOQ 

8 47 

IF  (LSTC.LE.0)  GO  TO  750 

OVDQ 

848 

IF  (E2H.LT. POD  GO  TO  750 

DVDQ 

849 

IF  (LSC-LSTC)  69 0 s 75 8,  770 

DVDQ 

850 

690 

IF  (KSTEP-4)  750,700,713 

DVDQ 

851 

700 

KQ1=L  STC 

DVOQ 

852 

710 

LSC=KQ1 

DVDQ 

853 

END  OF  ONE  DERIVATIVE  EVALUATION  PER  STEP 

DVDQ 

854 

GO  TO  770 

DVDQ 

855 

DVOQ 

856 

AFTER  HALVING  H.  REOUCE  KQ(I)  IF  A DISCONTINUITY 

HAS  OCCURRED. 

DVDQ 

857 

720 

IF  (LOOUB.EQ.i-2n  GO  TO  343 

OVOQ 

858 

DT (KQQ+1, I 1=0 (KQQ+1) 

DVDQ 

6 59 

IF  (LDOUB.EQ. ( -1) ) OT ( KQQ+1, I)=3 (KQQ+2) 

DVDQ 

860 

K=KQQ 

OVOQ 

861 

730 

IF  (K.EQ.l)  GO  TO  740 

DVDQ 

862 

IF  f (ABS(OiK-l) ) »GT»(PT(2i*ABSO (K+l) ))) 

• O R. 

ovnQ 

863 

1 

(ABS(D(K) J.GT. (PT(2)*ABS(D(K+2))))  ) GO 

TO  740 

OVJQ 

864 

K=K-1 

D<?  DQ 

865 

GO  TO  730 

DVOQ 

866 

740 

IF  ( ( K+K) .GE.KQQ)  GO  TO  780 

DVDQ 

8 67 

L,00UB=-4 

OVOQ 

868 

E2H  = 9. 

DVDQ 

869 

KQQ=K+1 

DVDQ 

870 

DVOQ 

871 

OVOQ 

872 

DIFFERENCES  DECREASE  TOO  SLOWLY  REOUCE  KQ(I). 

OVDQ 

873 

750 

KQ( I) =KQQ-i 

DVDQ 

8 74 

IF  (KQQ.EQ.2)  DT(3,I>=0. 

DVDQ 

875 

760 

IF  (E2H.LT. POD  GO  TO  780 

OVDQ 

876 

770 

LD0U8=2 

DVOQ 

877 

780 

CONTINUE 

OVDQ 

8 78 

DVDQ 

879 

DVDQ 

880 

790 

CONTINUE 

DVDQ 

881 

DVDQ 

682 

END  OF  LOOP  FOR  CORRECTING,  ESTIMATING  THE 

ERROR, 

ETC. 

OVDQ 

883 

186 


1 


c 

OVOQ 

884 

c 

DVOQ 

885 

IF  (IFL.LT.O)  GO  TO  1250 

DVDQ 

886 

c 

TEST  FOR  HALVING  H 

OVDQ 

887 

IF  (LD0U8)  800*950,870 

DVOQ 

888 

800 

LDOUB=L  DOUB+i 

OVDQ 

889 

IF  (LD0U3+1)  8 10,870,820 

OVDQ 

690 

810 

IF  (LOOUB.EQ. (-2) ) GC  TO  820 

OVDQ 

891 

c 

ORDER  IN  AT  LEAST  ONE  CO  hPONENT  HAS  BEEN 

GREATLY  REDUCED 

DVDQ 

8 92 

LDQUB=0 

OV  OQ 

893 

GO  TO  220 

OVDQ 

894 

820 

DO  860  1*1, NE 

OVOQ 

895 

KQQ=KQ(I> 

OVOQ 

896 

TP=DT  (KQQ+1,1) 

OVDQ 

897 

IF  CKQQ.LE,  3 ) GO  TO  860 

OVOQ 

898 

IF  (LOOUB.NE.O)  GO  TO  840 

OVOQ 

899  . 

DO  830  K=3» KQQ 

OVOQ 

900 

c 

SECOND  MODIFICATION  OF  DIFFERENCE  TABLE 

AFTER  HALVING  H 

OVOQ 

901 

QT  d K, I )=DT  <K,  U + ETA  CKQQ-i, K-2)  *TP 

OVOQ 

902 

83-0 

CONTINUE 

OVOQ 

903 

GO  TO  860 

OVOQ 

904 

840 

00  850  K=2,KQQ 

OVOQ 

905  ; 

c 

FIRST  MODIFICATION  OF  DIFFERENCE  TABLE 

AFTER  HALVING  H 

OVOQ 

906 

OT<K,I)=DT<K,I)+ETA<K-i,KQQ-lS*TP 

DVDQ 

907 

850 

CONTINUE 

DVDQ 

908  ; 

860 

CONTINUE 

OVDQ 

909  | 

IFL=0 

OVOQ 

910 

GO  TO  240 

OVDQ 

911  \ 

c 

OVDQ 

912 

870 

IFL=2 

OVDQ 

913 

IF  (LST C«L E, 0 ) GO  TO  300 

OVDQ 

914  ■ 

IF  C2-LSTC)  880,900,940) 

DVOQ 

915  i 

880 

LST  C=LSTC~ 1 

OVOQ 

916 

IF  CLSTC.EQ.3*  GO  TO  890 

OVOQ 

917 

IF  (LSCJ  920,960,920 

OVOQ 

918 

8 90 

IFL*1 

OVOQ 

919  1 

GO  TO  300 

OVOQ 

920  1 

900 

IF  (LSC-2J  910,939,920 

OVOQ 

921  1 

910 

LSTC=0 

OVOQ 

922  ] 

920 

LD0UB=2 

DVDQ 

923  | 

GO  TO  80 

OVOQ 

924 

930 

LSTC=1 

.OV’CQ 

925  1 

LSC=0 

OVOQ 

926 

GO  TO  8 0 

OVOQ 

927  | 

940 

IF  (LSC  / SCO, 00, 300 

OVOQ 

928  | 

c 

OVDQ 

929  | 

c 

HALVE  H 

OVOQ 

930  | 

950 

HH=FAC<2)*HH 

OVOQ 

931 

IF  <LSTC.LT. 2)  GO  TO  990 

OVOQ 

932 

ERN0=P25*ERND 

OVOQ 

933 

c 

IN  LOOP  TO  FIND  A NEW  INITIAL  STE^SIZE 

DVOQ 

934 

IF  (ERND.GE.P1 1 GO  TO  950 

OVOQ 

935 

LST  C=4 

DVDQ 

936 

960 

LSC=4 

DVDQ 

937  | 

DO  970  1=1, NE 

OVOQ 

938 

KQ ( I ) =1 

OVDQ 

939 

970 

CONTINUE 

DVOQ 

940  ; 

IF  CLSTC-31  8 90,890,1170 

DVDQ 

941  1 

c 

DVDQ 

942  i 

c 

ENTRY  AFTER  IFLAG=7 

OVOQ 

943  1 
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980  IF  CLDOUB.EQ.O)  GO  TO  990 
LSC=1 
LSTC=1 
GC  TO  140 

C TEST  TO  SEE  IF  H IS  TOO  SMALL  FOR  HALTING 

990  IF  JABSCHHI.GE.HHIfi)  GO  TO  1040 
IF  IIFL.EQ.7i  GO  TO  1010 
1000  IFL=7 

GO  TO  1020 
C 

1010  HH=HH+HH 
IFL=2 
1020  H=HH 

GO  TO  310 


ERROR  CRITERIA  PERMIT  DOUBLING 
1030  HH=HH+HH 

IF  CLSTC.EQ.l)  GO  TO  1090 
LSC=-3 

1040  LST C=-l 

CHANGE  THE  STEPS IZE 
1050  OO  1160  IS1,NE 
KQQ=KQ(  I) 

IF  <KQQ.NE.li  GO  TO  1070 
DT(6,I)=0. 

0<3)=DT<3,I)*PT<2) 

IF  (O  (3)  • GT.PT  (3)  ) LSC=-6 
IF  (LOOUe.NE.O)  GO  TO  1060 
KQM=8 

IF  CD (31 .GE.PT  15  ))  OT  (7,1) =DT  <7, 1) *PT  i2i 
□ <3)=0<3)/PF (3 ) 

1060  OT(3, I)=D(3) 

GO  TO  1160 

BEGINNING  OF  LOOP  FOR  CHANGING  3IFFEREhCE  TABLE  TO 
CORRESPOND  TO  NEW  VALUE  OF  H 
1070  DO  1060  K=1,KQQ 

OCK)=OTCK.Ii/PTCK) 

IF  (LDOUB • EQ .0 ) O <K i =D <K) /PT << I 
1080  CONTINUE 

KQQ2=KQQ-2 

IF  CKQQ2)  1160.1140,1090 
1090  DO  1130  J>1,KQQ2 

IF  (LDOUB. NE.0)  GO  TO  1110 

HALVE 

K=KGQ 

1100  0!K-i)=D<K-i)+D<K) 

K=K  “1 

IF  IK*  J-KQQI  1130,1130, liOO 

C 

C DOUBLE 

1110  DO  1120  K=J,  KQQ2 

D <K*1I  = 0 <K*l)-0<K  + 2i 
1120  CONTINUE 

1130  CONTINUE 
C 

1140  OO  1150  K=2»  KQQ 


DVDQ  944 
DVDQ  945 
OVOQ  946 
OVDQ  947 
OVOQ  948 
OVOQ  949 
OVOQ  950 
DVDQ  951 
OVOQ  952 
DVDQ  953 
OVOQ  954 
OVOQ  95* 

OVOQ  956 
OVOQ  957 
OVOQ  958 
OVOQ  959 
OVDQ  960 
DVDQ  961 
OVOQ  982 
OVOQ  963 
OVOQ  964 
OVOQ  965 
OVOQ  966 
OVOQ  967 
OVOQ  968 
OVOQ  969 
VOQ  970 
OVDQ  971 
OVOQ  972 
OVOQ  973 
OVOQ  974 
OVOQ  975 
OVOQ  976 
OVOQ  977 
OVOQ  978 
OVOQ  979 
OVOQ  9 60 
OVOQ  981 
OVDQ  982 
OVOQ  963 
DVDQ  984 
OVOQ  985  , 

OVOQ  966  j 

OVOQ  987  | 

OVOQ  988  j 

OVOQ  989  | 

OVOQ  990  ,] 

OVOQ  991  j 

OVOQ  992 
OVOQ  993 
OVOQ  994 
OVOQ  955 
OVDQ  996 
OVOQ  997 
OVDQ  998 
OVOQ  999 
OVDQ160C 
OVOQ 10 01 
OVOQ1002 
OVOQ1O03 
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1150 


1160 

1170 


1180 

1190 

12  00 
40  00 

1210 

1220 

C 

1230 

C 

C 

1240 

1250 

C 

C 

1260 


1270 


IF  (LDOUB.NE.O)  0<KI=0(K)*f  i<) 

DT(K,I  )=D(K)*PT(K) 

CONTINUE 

DIFFERENCE  TABLE  NOW  CORRESPONDS  TO  NEK  VALUE  OF  H 

CONTINUE 

H=HH 

IF  (LDOUB.NE.O)  GO  TO  75 
LFD  =1 

IF  (LSTC.GE.0)  GO  TO  220 

LD0U8=-3 

LSC=LSTC-KQM 

GO  TO  2 20 

END  OF  CHANGING  STEPSIZE 


K=I FL-5 

GO  TO  (220.980,1200. 1570 .1570. 1 720 , 1720 » 80 , 148 0,  1450,163 

ILLEGAL  VALUE  OF  PARAMETER  INTEGRATION  CAN  NOT  PROCEED 
IFL  = 8 
GO  TO  310 
WRITE  ( 6,  4000) 

FORMAT  (26H0IFLAG=3  IN  CALL  TO  DV3Q1.) 

STOP 


IF  (T-TFINAL)  200,1190,  200 


IFL  =4 

IF  (KSTEP.NE.O  ) GO  TO  12  70 
TPD2=TPD 

ESTIMATE  ERROR  H HEN  EXTRAPOLATION  FROM  INITIAL  POINT  IS 
HH=HH*TPDi*P75 

IFLS= IFL 
IFL=-1 
GO  TO  23C 

IF  ( ( LG SD. EQ. 0 ) • OR. ( IFL S. NE . 4) ) GO  TO  60 

LGSE=-1 

TPD=FAC (1) 

GO  TO  1020 
HH=H 

IF  (EMAX.LT.P01)  GO  TO  1260 

ERROR  IS  TOO  LARGE,  REOUCE  H ANO  REPEAT  THE  FIRST  STEP 

IF  (TPD1.LT.0.  ) GO  TO  1190 

LDOUB=i 

ERND=FAC(1)/TPD1 
ERND=ERND*  ERND*  P 25 
GO  TC  9 50 

IFL=IFLS 

IF  (IFL.NE.4)  GO  TO  1790 

TPD=TPD2 

IFLAG=3 

IF  (TPOl.GT.TPDl  GC  TO  1280 

T^TFINAL 

TPO=TPD 1 


OVDQIO  84 
DVOQ1005 
DVOQ1006 
OVDQIO 07 
DVDGU008 
OVDQ1009 
DVOQ1U10 
OVOQlOll 
OVDQ1Q 12 
OVDQIO 13 
OVDQIO 14 
OVDQ1015 
OVDQ1016 
DVDQ10 17 
DVDQ1018 
OVOQ1019 
OVDQ1C20 
0,1570),  KD  VOQ13  21 
DVDQ1022 
OV  DQ 10  23 
OVDQ1024 
OVOQIO 25 
DVDQ1026 
OVDQIO 27 
OVDQIO 28 
DVGQ1D 29 
OVDQIO  30 
DVDQ1031 
DVOQ1032 
DVDQ1033 
OVOQIO  34 
OVOQIO  35 
OVOQIO  36 
REQUESTED  OVOQIO 37 
OVDQIO  30 
OVDQIO 39 
OVOQIO AO 
OVDQIO  41 
OVDQIO  42 
OVOQIO A3 
OVOQIO  44 
OVDQIO  45 
OVOQIO  46 
OVDQIO  47 
OVDQIO A8 
OVDQIO 49 
OVOQIO  50 
OVOQIO  51 
OVOQIO 52 
OVOQIO  53 
OVDQIO  54 
OVOQIO  55 
OVDQ1056 
OVOQIO  57 
OVOQIO  58 
OVOQIO  59 
OVDQ1060 
OVOQIO  61 
OVDQ1062 
OVDQ1CI63 
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1260 

1290 

C 

c 

1 300 


1310 

C 

C 

1320 

1330 

1340 


1350 


1360 

1370 

1380 

1390 


GO  TO  1290 
T=T  OUT 
XFL  = 3 

IF  KTPD.EQ.Q.J.ANC.  (IFLAG.LE.2))  GO  TO  310 

INTERPOLATE  FOR  CUTPUT 

TP=TPD 

0(  2)  = TP 

KQQ2=0 

KDC=0 

D (1 ) =PT  (1? 

DO  ( 1)  =P  T ( 1) 

OO  1310  K*  2*KQM 
DO (i ) =OD  Cl?  *PT  (1) 

TP=TP+PT  Cl? 

DCK+1I=<D(K)*TP>/DD<1) 

CONTINUE 
GO  TO  1350 

COMPUTE  THE  INTERPOLATING  INTEGRATION  COEFFICIENTS 

KQQ2=1 

L=KQM-KOC 

KDC=K0C+1 

IF  (L.LE.O)  GO  TO  1350 
TP=C. 

K=L 

J=L*KDC 
JS= J”K 

TP=TP+G AS! K) *D( JS+1) 

K=K~1 

IF  (K.GT.O  ) GO  TO  1340 
D(J)=TP 

OCJ)  IS  THE  INTEGRATION  COEFFICIENT  FOR  THE  INTERPOLATION  WHICH 
CORRESPONDS  TO  GAM( J-KDC,KDC) • 

L=L-1 

GO  TO  1330 

ENO  OF  COMPUTING  INTEGRATION  COEFFICIENTS 

PERFORM  THE  PARTIAL  STEP  INTEGRATION 
J=0 

00  1415  1=1, NE 
KDD=KD (I) 

IF  (KDC.GT.KDQ)  GO  TO  1410 
TP=0. 

KQQ=KQC  D + KQQ2 
L=KQQ-KOC 

IF  (L.LE.O)  GO  TO  1370 
TP=TP+OCKQQ)*DT(L,I) 

KQQ=KQQ-i 

IF  (KQQ)  1390,1393,1360 
K=J+KOO 
L = KOC 
L=L-1 

IF  (L.EQ.O)  GO  TO  1400 
TP=TP*HH+YN(K)*FAC (L)*TPO 
K=K“1 

GO  TO  1380 
F ( I ) = TP 


OVOQIO  £4 
OVOQ1G65 
0V0Q1D66 
OVOQIO 67 
QVOQ1Q68 
QVOQ1069 
OVOQ1O70 
DVOQ1071 
OVOQIO 72 
OVOQIO  73 
OVOQIO 74 
OVOQIO  75 
OVOQ1076 
OVOQIO  77 
OVOQIO  76 
OVOQIO 79 
OVOQIO  80 
OV0Q1081 
OVOQIO 82 
0VDQ108  3 
OVOQIO  84 
OVOQIO  35 
OVOQIO 86 
0V0Q1C87 
OVOQIO  88 
OVOQIO  89 
OVOQIO 90 
0V0Q1C91 
OVOQIO 92 
OVOQIO  93 
OVOQIO  94 
OVOQ1095 
OVDQIO  96 
OVOQIO  97 
OVOQ1098 
OVDQ1099 
OVOQ.llOO 
OVDQliOl 
DVOQ1102 
0 VOQ11Q3 
DVDQ1104 
OVOQ1105 
OVDQ1106 
OVDQ1107 
DVDQ1106 
DVOQ1109 
OVOQlllO 
0 VOQ1111 
0V0Q1112 
0V0Q1113 
0V0Q1114 
DV0Q1115 
DV0Q1116 
0V0Q1117 
OVDQ1118 
0VDQH19 
OVOQ1120 
OVOQ1121 
DV0Q1122 
DV0Q1123 
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GO  TO  1415 

0VQQ1124 

1400 

YIK) = YN CK)+HH*TP 

DVDQ1125 

1410 

J=  J + KDD 

0VOQ1126 

1415 

CONTINUE 

DVOQ1127 

IF  CKDC.NE.KDNAX)  GO  TO  1320 

0V0Q1128 

END  OF  PARTIAL  STEP  INTEGRATION 

0VDGU129 

IF  (LGSE)  1890,310,1810 

DVDQ1130 

• 

OVDQ1131 

INITIALIZE  FOR  GSTOPS 

OVOQ1132 

1420 

NGA=TABS(NG» 

0VDQ1133 

LGSS=-NGA 

DVDQli 34 

LGSD=B 

DVGQH35 

LGSE=S 

DVDQ1136 

IFLG=“20 

DVDQli 37 

IF  (NG)  1425,315,315 

OVOQ1136 

1425 

IFLG=-IFL 

DVDQ1139 

IFLG=-IFL 

DVOQ1140 

1430 

LGS0=NGE 

DVDQ1141 

IF  CLGSO)  1190,1450,1440 

OVDQ1142 

1440 

IFL=15 

DVDQ1143 

GO  TO  1470 

DVOQil  44 

ENTRY  WITH  IFL=15 

DVDQ1145 

1450 

LGSS=0 

OVDQ1146 

IF  (LGSD-NGA)  14  60,148  0,119  0 

DVDQ1147 

1460 

LGSS=LGSD+1 

OVDQII 46 

IFL=14 

DVDQ1149 

1 470 

IFL  AG  = I FL- 5 

DVDQli 50 

GO  TO  315 

DVDQ1151 

ENTRY  WITH  IFL=14 

DVDQli 52 

1480 

OO  1490  1*1, NGA 

DVDQ1153 

GT ( 1 5 =G CD 

OVDQii 54 

1490 

CONTINUE 

DVDQli 55 

GO  TO  1730 

OVDQII £6 

ENO  OF  INITIALIZATION  FOR  GSTOPS 

DVDQ11 £7 

OVDQII £8 

ENTRY  TO  EVALUATE  G AT  THE  END  OF  THE 

STEP 

OVDQII £9 

1500 

LGSE=1 

DVOQU60 

1 510 

IGK=LGS  S 

DVDQli 61 

IFLG=0 

OVOQ1162 

IFL  = 9 

DVDQ1163 

GO  TO  310 

DVDQli 64 

ENTRY  TO  EVALUATE  G BEFORE  EVALUATING 

THE  DERIVATIVES 

DVDQli 65 

1520 

IFLG=IFL 

DVDQli 66 

IFL=10 

OVDQ1167 

1530 

IFLAG=1 0 

OVDQII 68 

IGKH=LGSD 

DVDQ1169 

1540 

IGK  = 1 

DVDQ117Q 

1 550 

GO  TO  315 

•* 

DVDQ1171 

1560 

IGK  = IGK  +1 

DVDQli 72 

IF  CIGK.GT.IGKMI  GO  TO  1650 

DVDQli 73 

ENTRY  WITH  IFL  = 9,10,  AND  17 

OVDQ117  4 

TEST  FOR  G CHANGING  SIGN 

DVDQli 75 

15  70 

IF  (GIIGK!*GT 1 IGK) ) 1600,1580,1593 

DVDQli 76 

1580 

IF  (GTCIGKJ .NE.O.)  GO  TO  1600 

DVDQli 77 

IF  (TL.EQ.TG)  GO  TO  1560 

OVDQ1178 

1590 

IF  CLGSE.GT.0)  G T « IG  K > = G < I G K> 

DVDQli 79 

GO  TO  1560 

DVDQ1180 

G CHANGES  SIGN  — PREPARE  FOR  ITERATION  TO  FIND  ZERO 

DVDQli 61 

1600 

NST  OP=I GK 

OVDQII 62 

IFLGS^IFL 

DVDQ1163 
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1610 

1620 


1630 


1640 


1650 
1 660 


1670 

1680 

C 

C 

1690 

1700 


COMPUTE  INITIAL  VALUE  FOR  RG  (=RATI0  OF  PARTIAL  STEPSIZE  WHERE 
G IS  KNOWN/THE  INTEGRATION  STEPSIZE) 

IF  (IFLG.EQ  .0)  GO  TO  161C 
RG  ( 3)  = F AC(  1) 

RG  1 2 ! =0  » 

IF  ( (IFLG.EQ.2) .AND. (IGK.LT.LGSSM  RG(2)=FAC(1) 

GO  TO  1620 
RG ( 3 ) =0  o 
RG(2)=-FAC(i) 

IF  (LGSE.lt • 0 1 RG (3) -TPO 

LGS  E=”3 

GI  ( 2) -GT  (IGK) 

EPSGSsRNO 

IFL=16 

K=1 

GO  TO  1640 

END  OF  PREPARATION  TC  BEGIN  THE  ITERATIC  h 

ENTRY  WITH  IFL=16 
ITERATE  TO  FIND  GSTOP 
K=i 

IF  ((GI  (2)*G(IGK> ) .GT.0.  ) K=2 

IF  (A9S (GI (Kl> .GT.ABS(G(IGK)) ) GO  TO  1640 

CONVERGENCE  PROBLEMS 

LGSE=LGSE-1 

IF  (LGSE.EQ.f-5H  EPSGS=PTS1 

EPSGS=£PSGS*PTS4 

GI  (K)  = G (IGK) 

RG ( K ) = RG ( 3 ) 

SECANT  ITERATION  (GIVES  NEW  PARTIAL  STEPSIZE/H) 

TPDsRG  (l)-(GI  (i)MRG(2)  -RG(  1)  ) )/(GI  (2)  -GI(1)I 
T=TL  + TP  D*HH 

TEST  FOR  CONVERGENCE  CF  ITERATION 
IF  (ABS  (TPD-RG(3) ) .LE.EPSGS)  GO  TO  1560 
RG ( 3 ) =TPD 
GO  TO  1300 

IF  (10-IFL)  1660,1700,100 
IF  (IGKM.NE.NGA)  GO  TO  1710 
IF  (LGS£.GT.(-3) ) GO  TO  1690 
IF  (LSTC.NE.4)  GO  TO  1670 

ESTIMATE  ERROR  --  GSTOP  IS  THE  RESULT  OF  EXTRAPOLATING  FROM 

THE  INITIAL  POINT 

TP01=TPD 

RG ( 3 ) =TPD 

GO  TO  1230 

IFL=ii 

IF  (LGSE.LT.I-4) ) IFL=12 
IFL  AG  = I FL 

TEST  TO  SEE  IF  GSTOP  IS  PRECEDEO  3Y  ANOTHER  STOP 

IF  ( (HHMT-TOUT)  .LE.0.)  .AND  . (HH*(T-TFI  NAL)  .LE.0.  ) ) GO  TO  1300 

IT  IS 

RG ( 3) =TPD 

IFLS=IFL 

GO  TO  200 

LGSE=1 

IFL=IFL  G 

IF  (IFL.LT.0J  GO  TO  60 
IGKM=NG A 
IFL= IFLG 
GO  TO  310 


DVDQ1184 
0V0Q1185 
DVOQ1186 
DVOQ1167 
0V0Q1188 
0V0QU89 
D VOQ119C 
0V0Q1191 
OVOQU92 
DV0Q1193 
0V0Q1194 
OVOQ1195 
DVOQ1196 
DVOQ1197 
DVDQll'aS 
DVOQU99 
OVOQ12GO 
0VDQ12Q1 
DVOQ1202 
DVOQ1203 
OVOQ1204 
OVDQ1205 
OV  OQ 120  6 
OVOQ120  7 
DVDQ1208 
DVDQ1209 
DVDQ1210 
OVOQ1211 
DVOQ1212 
0V0Q1213 
0V0Q1214 
0V0Q1215 
0V0Q1216 
0V0Q1217 
OVDQ1218 
0VDQ1219 
OVDQ1220 
0VDQ1221 
OVOQ1222 
0V0Q1223 
0VDQ1224 
OVOQ1225 
0VDQ1226 
OVOQ1227 
DV0Q1228 
0V0Q1229 
OVOQ1230 
OVOQ1231 
OVOQ1232 
DV0Q1233 
DVDQ1234 
DV0Q1235 
0VDQ1236 
0V0Q1237 
OVDQ1238 
OVOQ1239 
OVDQ1240 
OVOQ1241 
0VDQ1242 
OVDQ1243 
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1710  IFL-17 
IFL AG=9 
IGKM=NGA 
GO  TO  315 

C ENTRY  WITH  IFL=11  AND  12 

C SET  PARAMETERS  TO  INDICATE  A GST0>  HAS  BEEN  FOUND 

1720  GT  (NSTOP)  = 0 ♦ 

1730  LGSE=1 

IGKM=NG A 
TG=TL 

IF  (IFLG)  1740*1 760 » 1770  . 

1740  IF  (IFL.LT.13)  GO  TO  1750 

IF  (IFLG. EQ. (-20)1  GO  TO  100 
IFL=-IFLG 
GO  TO  310 
1750  HH*H 

GO  TO  200 
1760  TPD-fJ  • 

T=TL 
LGSE*-2 
GO  TO  1300 

1770  IF  CIFLG-3)  220,200,200 
1 780  IF  (LGSE.EQ.  (-1)  ) GOTO  1790 
LGS  E=-l 
GO  TO  1220 
1790  TPO=RG( 3) 

T=TL+TPD*HH 

IF  (LGSE.NE. (-1) ) GO  TO  1670 
IFL=IFL  S 
LGSE=-3 
GO  TO  1680 

1800  IF  (LGSE+2)  1550,1500,310 
1610  IF  (TPO.LE.O.)  GO  TO  31C 
LGS  E=-2 
1820  IFLG=IFL 
. IFL=17 
IFLAG=9 

IF  (LGS D .GT.  0)  GO  TO  1530 
GO  TO  1540  • 

END 


070Q1244 
D70Q1245 
D7DQ1246 
D7DQ1247 
07DQ1248 
0VDQ1249 
D70Q125O 
07DQ1251 
07DQ1252 
DVDQ1253 
D7DQi254 
07001255 
07001256 
D70Q1257 
07001258 
07001259 
07001260 
D70Q1261 
07001262 
070Q1263 
07001264 
07DQ1265 
07001266 
07001267 
070012  68 
OVO01269 
07001270 
070Q12  71 
07  001272 
D70Q12  73 
07001274 
070Q1275 
070Q1276 
07001277 
D7DQ12  78 
07001279 
070Q1280 
07001281 
070Q1282 
070Q1283 
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